Question

vb中如何让access中某一字段的内容显示在listbox中？

比如如何在点击command1之后在listbox中显示出c:\student.mdb中 表stu 姓名字段中的内容？

请高手指教

Answer 1

'首先要在工程引用中引用：microsoft activex data objects 2.5 library 然后复制下面代码:
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim have As Boolean
Private Sub Command1_Click()
List1.Clear
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\student.mdb;Persist Security Info=True;Jet OLEDB:Database Password="
SQL = "select * from stu"
Rs.Open SQL, Conn, 1, 3
Do While Rs.EOF = True
List1.AddItem "" & Rs("姓名")
Rs.movenext
Loop
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
End Sub

Answer 2

引用ludecai223的回答：
'首先要在工程引用中引用：microsoft activex data objects 2.5 library 然后复制下面代码:
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim have As Boolean
Private Sub Command1_Click()
List1.Clear
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\student.mdb;Persist Security Info=True;Jet OLEDB:Database Password="
SQL = "select * from stu"
Rs.Open SQL, Conn, 1, 3
Do While Rs.EOF = True
List1.AddItem "" & Rs("姓名")
Rs.movenext
Loop
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
End Sub

遍历过程中应是
Do While Rs.EOF=False才对