vb如何连接数据库

来源：百度知道 编辑：UC知道 时间：2024/06/06 06:25:26
vb编程的时候怎么把不同access表的内容显示在一个窗体里呢？

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sq As String

Sub 加载发货窗体数据()
'ADO方法
On Error Resume Next
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\Data.mdb"
sq = "select * from 店铺名称表 order by 店铺名称"
rs.Open sq, cn
rs.MoveFirst

Do While Not rs.EOF
Form1.店铺名称.AddItem rs.Fields("店铺名称")
Form1.调货店2.AddItem rs.Fields("店铺名称")
Form1.调货店1.AddItem rs.Fields("店铺名称")
rs.MoveNext
Loop

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

你这不是连接数据库的问题，是数据显示问题嘛。

这需要从access数据库中建立查询表。