救急，VB程序，求高手.

2025-05-24 01:23:28

推荐回答（4个）

回答1：

放弃odbc，用OLEDB:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"

回答2：

放弃odbc，用OLEDB
放弃Adodc，用Adodb
'Ctrl+t找Microsoft DataGrid Control....
'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....

Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite"
SqlStr = "Select * From 某个表"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid修改数据源

回答3：

连接字符串
dim sa as string
dim oC as oledb.OleDbConnection
sA = "Provider=Microsoft.jet.oledb.4.0;data source=" & " 数据库含路径"& ";Persist Security Info=False ;jet oledb:database password=" & “密码”
oc.ConnectionString = sA
oc.Open()

回答4：

不知道哦