UC知道VB引用access数据库数据
来源：百度知道 编辑：UC知道 时间：2024/05/17 02:06:34
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\我的程序\123.mdb;Persist Security Info=False"
conn.Open App.Path + "\123.mdb"
我建立了这样的连接，但出现未找到提供程序，该程序可能为正确安装的错误？那位高手能帮我解决一下！！！
非常感谢！很急！！
在线等待
我在数据工程下这么连接完全没有问题，当把这段代码复制到我正在编辑的工程中就会出现未找到提供程序，该程序可能为正确安装的错误。
不知道为什么？
如何工程里面添加数据库的DLL文件?
Dim rs As New ADODB.Recordset
conn.Provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\我的程序\123.mdb;Persist Security Info=False"
conn.Open App.Path + "\123.mdb"
我建立了这样的连接，但出现未找到提供程序，该程序可能为正确安装的错误？那位高手能帮我解决一下！！！
非常感谢！很急！！
在线等待
我在数据工程下这么连接完全没有问题，当把这段代码复制到我正在编辑的工程中就会出现未找到提供程序，该程序可能为正确安装的错误。
不知道为什么？
如何工程里面添加数据库的DLL文件?
新建数据工程，VB会引用必要的DLL文件，然后使用你的代码。
记得先在工程里面添加数据库的DLL文件！
下面是我自己做的一段代码，你看看你的链接语句吧。
Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim SQL As String
Dim StrConn As String
StrConn = "PROVIDER=microsoft.jet.oledb.4.0;persist security info =false;data source=" & App.Path & "\数据库.mdb"
Conn.Open StrConn
SQL = "select * from Users"
rs.Open SQL, Conn, 1, 3
While Not rs.EOF
Combo1.AddItem rs!id
rs.MoveNext
Wend
Combo1.ListIndex = 0
rs.Close
Set rs = Nothing
Text1.Text = ""
End Sub