（求救呀！！！）回答给分！！！___在线等待！

Question

如何在VB中加载窗体时把access中的数据库(IMSI.mdb)中的表(courseinfo)在窗口
中显示时把某一字段（coursename）所有中列的名字都显示在命名为(list1)中的下
拉列表框中!请详细一点给我解答！一定送分！！！

Answer 1

dim Rst as adodb.recordsetset rst=new adodb.recordset
rst.open "select * from yourtable",dbconn
For I = 1 To Rst.Fields.Count
    list1.AddItem Rst.Fields(I).Name
Next

Answer 2

谢谢 golden24kcn(不甜) 和SoHo_Andy(冰) 的回答！
请问（ golden24kcn(不甜) ）：rst.open "select * from yourtable",dbconn
中的dbconn是否代表表中的字段来的！

Answer 3

Dim rs As New ADODB.Recordset
    Dim strsql As String
    strsql = "select 字段名 from 表"
    rs.CursorLocation = adUseClient
    rs.Open strsql, conn, adOpenKeyset, adLockPessimistic
    
    Do While Not rs.EOF
        List1.AddItem rs!字段名
        rs.MoveNext
    End If

Answer 4

Private Sub Form_Load()
    Dim rs As New ADODB.Recordset
    Dim strsql As String
    strsql = "select 字段名 from 表"
    rs.CursorLocation = adUseClient
    rs.Open strsql, conn, adOpenKeyset, adLockPessimistic
    
    Do While Not rs.EOF
        List1.AddItem rs!字段名
        rs.MoveNext
    Loop
End Sub

Answer 5

Dim cn  As New ADODB.Connection                '定义数据库的连接
Dim rs   As New ADODB.Recordsetcn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\IMSI.mdb;Persist Security Info=False"
rs.open "select coursename from courseinfo",dbconn
do while not rs.eof
    list1.AddItem rs!coursename
    rs.movenext
Next
rs.close
set rs=nothing
cn.close
set cn=nothing

Answer 6

Dim cn  As New ADODB.Connection                '定义数据库的连接
Dim rs   As New ADODB.Recordsetcn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\IMSI.mdb;Persist Security Info=False"
rs.open "select coursename from courseinfo",cn
do while not rs.eof
    list1.AddItem rs!coursename
    rs.movenext
Next
rs.close
set rs=nothing
cn.close
set cn=nothing

Answer 7

引用ADO对象
Private Sub Form_Load()
   Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset   cnn.Open _
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=d:\db1.mdb;"   rst.Open "select * from students", cnn, adOpenDynamic, adLockPessimistic
   If Not rst.EOF And Not rst.BOF Then
        While Not rst.EOF
            List1.AddItem rst!Name
            rst.MoveNext
        Wend
   End If
   
   rst.Close
   cnn.Close
End Sub

Answer 8

中的dbconn是否代表表中的字段来的！
--------------------
dbconn指定数据库
比如
dbconn="c:\aaa.Mdb"