Question

VB中如何实现将Access数据库中的数据全部列出？

我有一个名为db1.mdb的数据库文件，我想在VB中的listbox或者其他的也行，列出这个数据库中所有的“code”字段的数据，请问该怎么实现？

最好是在list里实现，其他的方法也可以，我们老师说可以用跟ado相关的其他控件实现，请问具体该怎么实现？谢谢！！

Answer 1

假设你的db1.mdb在你的当前目录下：
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=;Persist Security Info=False;"

Sql = "select code from 表名" '这里的表名填写你的表名
rs.Open Sql, cn, 1, 1
Do While Not rs.EOF
List1.AddItem rs!code
rs.MoveNext
Loop

cn.Close
Set cn = Nothing

Answer 2

list就可以