Question

vb中怎么读取mdb中所有数据

我用的是VB6，同时希望提供ADO的，有更好的话也可以。答案好的话，追加分数。

表的格式如下：
id clocktime
1 2010-7-29 3:56:23
2 2010-6-19 5:24:31
……………

我有个Listbox
已经连接了数据库
我想把每行的时间读取到LISTBOX里面
但是我只能输出一行的
怎么把所有的都输出？

Answer 1

VB读取Mdb数据库一个表的数据可使用ADO数据对象或ADO数据控件实现。

• 通过选择“工程”菜单中的“引用...”来为 ADO 对象库添加一个引用，然后在“引用...”对话框中选择 Microsoft ActiveX Data Objects 2.0 Library
  

  

• 点上图确定。工程就引用了ADO。

• 运行代码示例：

  Private Sub Command1_Click()

      Dim cn As New ADODB.Connection '定义数据库的连接

      Dim rs As New ADODB.Recordset '声明一个 Recordset 对象变量

      Dim sql As String

  
  

      sql = "select * from jishijilu"

  cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"

      cn.Open

      rs.CursorLocation = adUseClient

      rs.Open sql, cn, adOpenDynamic, adLockOptimistic

      Set DataGrid1.DataSource = rs

  End Sub

Answer 2

你的问题其实就 通过VB 读取数据的问题：

1，首先你的用ADO

2,就是如何用代码实现。

Dim cn As ADODB.Connection,rs As ADODB.Recordset
Dim Strcn As String,Strrs as String
Private Sub Command1_Click()
Set cn=New ADODB.Connection
Set rs=New ADODB.Recordset
Strcn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你的数据库文件路径;Persist Security Info=False"
cn.Open Strcn
Strrs="select * from 你要读取的表名 order by id"
rs.Open Strrs,cn,adOpenForwardOnly,adLockReadOnly
Do While not rs.EOF
   list1.AddItem rs(1)
   rs.MoveNext
Loop
rs.Close
cn.Close
End Sub

 代码就是用的楼上的，我只是格式化一下，向楼上的人致敬！

Answer 3

Dim cn As ADODB.Connection,rs As ADODB.Recordset
Dim Strcn As String,Strrs as String
Private Sub Command1_Click()
Set cn=New ADODB.Connection
Set rs=New ADODB.Recordset
Strcn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你的数据库文件路径;Persist Security Info=False"
cn.Open Strcn
Strrs="select * from 你要读取的表名 order by id"
rs.Open Strrs,cn,adOpenForwardOnly,adLockReadOnly
Do While not rs.EOF
list1.AddItem rs(1)
rs.MoveNext
Loop
rs.Close
cn.Close
End Sub

Answer 4

LISTBOX绑定数据源和数据字段。

Answer 5

看看，晚上试试