这段代码调用Access数据库，显示“找不到可安装的ISAM”？什么意思。

[Jason78]

请大家帮帮看看这段代码，调用Access数据库，为什么会弹出如下对话框：

“实时错误'-2147467259 （80004005）'
找不到可安装的ISAM。”

代码如下：

Private Sub cmdOK_Click()

Dim Rs As New ADODB.Recordset
Dim Connstr As String

Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & App.Path & "\database.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=12345"

Rs.CursorType = adOpenStatic
Rs.Open "select * from date", Connstr
…………
End Sub

调试会发现代码行“Rs.Open "select * from date", Connstr”黄色。

奇怪的是我把此行作如下改动后就可以正常运行Connstr = ……& "Data Source=database.mdb……"

请帮忙。

谢谢大家

[Jason78]

ps:
我的database.mdb是和应用程序放在同一目录的

请大伙儿多帮忙，指导小弟

[ljhdi]

Set Rs = New ADODB.Recordset

[tztz520]

Rs.Open "select * from [date]", Connstr

[dufeiyan9170]

Rs.Open "select * from [date]", Connstr

[warlord]

Data Source是参数关键字,不能忽略.

[Jason78]

还是不行,各位说说毛病出在哪里呢.

[Jason78]

是不是相对路径的引用语法有误啊?

[duoduo7753]

Private Sub cmdOK_Click()
dim cn as new adodb.connection
Dim Rs As New ADODB.Recordset
Dim Connstr As String

Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & App.Path & "\database.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=12345"

cn.open connstr
Rs.CursorType = adOpenStatic
Rs.Open "select * from date", cn
…………
End Sub
再试,我也不知道能不能通过!

[duoduo7753]

好像这样比上面的好!
Private Sub cmdOK_Click()
dim cn as new adodb.connection
Dim Rs As New ADODB.Recordset
Dim Connstr As String

Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=12345"

cn.open connstr
Rs.CursorType = adOpenStatic
Rs.Open "select * from date", cn
…………
End Sub

[longyangyang]

Set Rs = New ADODB.Recordset

[Jason78]

各位楼上的朋友们，
通不过。

我就是想知道为什么我的程序代码中用了& App.Path & 就运行不了呢。

我想知道。

[Programer_Zjw]

这样写试试：datasource= app.path & database.mdb；

[Programer_Zjw]

这样写试试：datasource= app.path & "\"database.mdb；

[of123]

你的问题是丢了 Data Source=

Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=12345"

[wumylove1234]

'返回程序路径
Public Function MyAppPath() As String
If right$(App.Path, 1) = "\" Then
MyAppPath = App.Path
Else
MyAppPath = App.Path & "\"
End If
End Function

用这个函数替换你连接字符串中的app.path

[Jason78]

阿伟，毁于随，

还是出现同样的错误窗口：
“实时错误'-2147467259 （80004005）'
找不到可安装的ISAM。”

[wlk]

Connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + app.path +"\database.mdb;";

[Jason78]

好的，楼上两位，你们的方法通过。

开始给分。

谢谢