listbox 和数据库

Question

用ACCESS创建表,在VB窗体中有两个LISTBOX,第一个LISTBOX的作用就是显示数据表中的所有字段,然后单击一个字段名,另一个LISTBOX就显示这个这个字段的所有记录。初学，向大家请教啦！谢谢! 

Answer 1

private sub LoadList1(byval r as ADODB.Recordset)  'r是你打开的数据库
  Dim i As Integer   For i = 0 To r.Fields.Count - 1    '第一个列表框增加数据库中的字段
    list1.Add Trim(r.Fields(i).Name) 
  Next end sub
private sub LoadList2(byval Index as integer,byval r as ADODB.Recordset) 
'加载数据至第二个列表框
'index 是你在第一个列表框中点击的 ListIndex
'r是你打开的数据库  list2.Clear 
  Do While Not r.EOF 
     list2.add Trim(r.Fields(index).Value)) 
     r.MoveNext 
  Loop 
end sub

Answer 2

private sub LoadList1(byval r as ADODB.Recordset)  'r是你打开的数据库
  Dim i As Integer   list2.Clear  '每次加载要清空上次加载的内容
  For i = 0 To r.Fields.Count - 1    '第一个列表框增加数据库中的字段
    list1.Add Trim(r.Fields(i).Name) 
  Next end sub
private sub LoadList2(byval Index as integer,byval r as ADODB.Recordset) 
'加载数据至第二个列表框
'index 是你在第一个列表框中点击的 ListIndex
'r是你打开的数据库  list2.Clear  '每次加载要清空上次加载的内容
  Do While Not r.EOF 
     list2.add Trim(r.Fields(index).Value)) 
     r.MoveNext 
  Loop 
end sub