用 ado 动态连接 MDB 时出错!
Sub Read_MyDB()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strAppPath ,strMyDB As String
strAppPath = App.Path
If Right(strAppPath, 1) <> "\" Then strAppPath = strAppPath & "\"
strMyDB = strAppPath & "Data\Status.mdb"
ConnectString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & strMyDB & ";PWD=MQ2004"
Set cnn = New ADODB.Connection
cnn.Open ConnectString
Set rst = New ADODB.Recordset
SQL = "select * from user_Form "
rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
rst.MoveFirst
.....
End Sub
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strAppPath ,strMyDB As String
strAppPath = App.Path
If Right(strAppPath, 1) <> "\" Then strAppPath = strAppPath & "\"
strMyDB = strAppPath & "Data\Status.mdb"
ConnectString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & strMyDB & ";PWD=MQ2004"
Set cnn = New ADODB.Connection
cnn.Open ConnectString
Set rst = New ADODB.Recordset
SQL = "select * from user_Form "
rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
rst.MoveFirst
.....
End Sub
...全文
请发表友善的回复…
发表回复
qhhyq 2005-03-09
- 打赏
- 举报
这儿没法帖图!
提示“[microsoft][odbc microsoft access 驱动程序] 不能打开数据库‘(未知的)’,应用程序可能无法识别数据库,或该文件可能破坏”
提示“[microsoft][odbc microsoft access 驱动程序] 不能打开数据库‘(未知的)’,应用程序可能无法识别数据库,或该文件可能破坏”
xmuyyd 2005-03-08
- 打赏
- 举报
提示的错误信息是什么呢?
qhhyq 2005-03-08
- 打赏
- 举报
我是用 ODBC方式连接的,出错了!至于用 OLEDB方式我的代码通过了,如下:
' OLEDB方式:方式比较好,存取速度快
ConnectString2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strMyDB & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=2004"
还是请教 用 odbc 方式连接时出问题的原因?
' OLEDB方式:方式比较好,存取速度快
ConnectString2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strMyDB & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=2004"
还是请教 用 odbc 方式连接时出问题的原因?
sesame_shrimp 2005-03-05
- 打赏
- 举报
连接字符串不要自己写,可以自动生成
seraph2 2005-03-05
- 打赏
- 举报
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\SAME.mdb;Persist Security Info=False;Jet OLEDB:Database Password=aaa
我的ADO连接方式,使用OLEDB方式连接,查看一下这样是否出错!
我的ADO连接方式,使用OLEDB方式连接,查看一下这样是否出错!
pcwak 2005-03-05
- 打赏
- 举报
错误信息是什么
qhhyq 2005-03-05
- 打赏
- 举报
出错语句是这句:
rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
我引用了“ADO 2.6 ”
不知是哪儿的问题!请各位指出!
rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
我引用了“ADO 2.6 ”
不知是哪儿的问题!请各位指出!