收录日期:2018/12/11 04:20:48 时间: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"就错了三.

多个人开发的ASP。net工程,最后如何合并? 我把checkboxlist设置enabled为false,就去不到selecteditem的value了,但是dropdownlist可以 快帮忙分析一下JSP连MSSQL出现下面问题的原因! 1000分求助:帮我编译一个源代码! 请教各位! 工作之余,轻松一下:谁还敢自称熟读金庸 文件间拷贝 很奇怪的问题。我的列表框的滚动条没有了。没有分,看大家兴趣了。 在WinXP上安装 SQL Server企业版时提示:只有客户端组件才可用于安装。 利用键盘钩子,只能记录英文(以下代码可记录英文)。 请问如何才能记录中文? sun.servlet.http包的下载 工作之余,轻松一下:谁还敢自称熟读金庸 这道题目看上去…… 如何做下列查询? ACPI,AGP,PXE,UAA,display adapter各指身麼 基类出现 “has incomplete type”是啥问题? 如何让PHP执行一个驻留后台的循环代码 ??自己写的copy函数,拷贝目的文件里面每个字符后面都有一个空格,怎么回事?? 神州电脑到底怎样?有用过的来说说 .net2005 怎么送分?? 谢谢FLASHASP perl操作Windows注册表 如何将ACCESS的两个表的关连存到一个DATASET中去 大家都知道在SQL里有个right()函数,我看帮助它是返回varchar型,那么如果在where子句里做判断的话,可不可以直接和整形比较? 如何使用web版em,连接到指定数据库(sid)? 如何获得文件夹下所有文件 VC结构与DELPHI的问题? 100分,请问:开发数据库系统是不是用PowerBuilder比用Delphi功能更强大些 VC DLL与DELPHI