收录日期:2018/07/17 00:03:54 时间:2016/05/18 06:54:48 标签:数据库(包含打印,安装,报表)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
str = "provider=microsoft.jet.oledb.3.51;persist security info=false;data source=" & str & "\Anamnesis.mdb"
多了个"\"


 str = "provider=microsoft.jet.oledb.3.51;persist security info=false;data source=" & App.Path & "\Anamnesis.mdb"
str = "provider=microsoft.jet.oledb.4.0;persist security info=false;data source=" & App.Path & "\Anamnesis.mdb"
没错,多了个“\”
请问上面那个str = App.Path是什么意思?
逻辑错误
你的程序不管有没有“\”程序运行时都执行
str = "provider=microsoft.jet.oledb.3.51;persist security info=false;data source=" & str & "\Anamnesis.mdb"

app.path就是把路径指向你程序所在的目录
既然你在前面
If Right(str, 1) <> "\" Then
str = str + "\"
End If
这里就加上了"\"了你在后面
str = "provider=microsoft.jet.oledb.3.51;persist security info=false;data source=" & str & "\Anamnesis.mdb"
里面还 ....& "\Anamnesis.mdb"就错了三.