请问VB6中ListView控件如何和数据库绑定，比如说ADODC控件

Dim link1 As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim pubdatapath As String

Sub opendatabase(datapath As String)'打开数据库函数

If link1.State = 1 Then '如果以连接过，则关闭，初始化下次事务

link1.Close: list2.ListItems.Clear: list2.ColumnHeaders.Clear: c.Clear: list1.ListItems.Clear

End If

link1.ConnectionString = "Provider=microsoft.jet.oledb.4.0data source=" &datapath

link1.Open

pubdatapath = datapath

Set biaoming = link1.OpenSchema(adSchemaColumns)'创建数据库记录集

tablename = ""

Do Until biaoming.EOF

If biaoming("table_name") <>tablename Then '列出所有表

tablename = biaoming("table_name")

list1.ListItems.Add , , tablename

End If

biaoming.MoveNext

Loop

Set biaoming = Nothing

menu1.Enabled = True

list1_MouseUp 1, 0, 10, 10

End Sub

Private Sub Command1_Click() '打开数据库

d.DialogTitle = "打开一个数据库文件进行浏览"

d.InitDir = App.Path

d.FileName = ""

d.Filter = "Access数据库(mdb后缀,推荐格式)|*.mdb"

d.ShowOpen

If d.FileName = "" Then Exit Sub

opendatabase d.FileName

End Sub

我的采用的是javabena+jsp

一个javabean

public ArrayList selectCourseInfo()throws Exception {//下拉框显示课程信息

ArrayList list = new ArrayList()

try {

db.open()

ResultSet rs = db.select("select * from CourseInfo")

while (rs.next()) {

list.add(new CourseInfo(rs.getInt(1), rs.getString(2),rs.getString(3)))

}

} catch (Exception e) {

e.printStackTrace()

} finally {

db.close()

}

return list

}

然后在jsp中调用

<tr><td>课 程:<select name="course">

<%try{

ArrayList list=m.selectCourseInfo()

if(list.isEmpty()){

out.println("没有数据显示")

}

for(int i=0i<list.size()i++){

CourseInfo c=(CourseInfo)list.get(i)%>

<option><%=c.getName()%></option>

<%}}

catch(Exception e){}

%></select>

</td></tr>

这样就可以动态的显示了

Menu 控件提供多个可以对其进行编程的事件。这使您可以在每次发生事件时都运行一个自定义例程。下表列出了受支持的事件。

事件

说明

MenuItemClick 单击菜单项时发生。此事件通常用于将页上的一个 Menu 控件与另一个控件进行同步。

MenuItemDataBound

当菜单项绑定到数据时发生。此事件通常用来在菜单项呈现在 Menu 控件中之前对菜单项进行修改。

珠海市世纪信通网络科技有限公司是个垃圾公司，经常加班，想法设法的去克扣你的工钱，到你不想干的时候什么补助，什么出差津贴就都没了，人走后，说政策变了，按公司现在的政策你没有钱拿，晕，这样的破公司，老板是混啥吃的。

---