VB中怎么连接ACCESS数据库,并且读取表中数据?

来源：百度知道 编辑：UC知道 时间：2024/05/25 01:19:52
我的数据库放在F:\vb数据\DataBase\DataBase2007.mdb
程序在:F:\vb数据\
请问怎么连接数据库(可移植的),并且把表admin_user中的数据用DataGrid
读出来?哪位大虾帮帮忙?

Set cn = New ADODB.Connection
sqldata="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.mappath("F:\vb数据\DataBase\DataBase2007.mdb ")
cn.Open sqldata
Set adors = New ADODB.Recordset
adors.Open strsql, cn
MSFlexGrid1.Rows = 1
While Not adors.EOF
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = adors.Fields(0)
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = adors.Fields(1)
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = adors.Fields(2)
adors.MoveNext
Wend

选添加ADODB控件
Function o_Connection() As ADODB.Connection
Dim Conn
Dim AuthConnectionString As String
Set Conn = CreateObject("ADODB.Connection")
AuthConnectionString = "DBQ=" & App.Path & "\don.mdb;Driver={Microsoft Access Driver (*.mdb)};"
Conn.Open AuthConnectionString
Se