比如如何在点击command1之后在listbox中显示出c:\student.mdb中 表stu 姓名字段中的内容？
请高手指教
'首先要在工程引用中引用：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
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
温馨提示：答案为网友推荐，仅供参考
第1个回答 2018-07-10
遍历过程中应是
Do While Rs.EOF=False才对
Do While Rs.EOF=False才对
