收录日期:2019/03/27 11:13:18 时间: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"就错了三.

(高分)谁有Allok MPEG4 Converter的注册码? 几个简单的汇编题目,做对100分答谢 谢谢请教个ibatis配置文件问题 一直没弄懂“相位”的概念,不知道谁能够给我解释一下,到底什么是相位? 【列车员嫌乘客吃饭慢 将其强行撵出餐车】 搞笑评论 asp.net分页的数据全部打印和客户端读卡问题 如何用myeclipse 新建多个tomcat 应用,给他们分配不同的端口号 Component 问题 借贵宝地发个招聘信息,C++工程师(无锡) 哪位能帮个忙? 如何禁用启用设备???? 你老婆怀孕了,我姓毛,请取个名字 求一条随机sql语句 ASP 多表查询怎么写 走好求职路,从选择IT职业培训机构开始 frameSet里实现打印功能 请问这样是分布式吗?? 数据库连接和记录集应该在哪里调用close()和release()?析构函数还是其他?为什么? 关于下拉列表问题 我拆分了一个视图,加了个对话框。现在在对话框上添加了一个组合框控件。怎么给这个控件添加选项呢? 问题问题~~ 拜托各位看看~~ 笔记本电脑和台式电脑的屏幕大小问题 有无人用C#写外挂呢?我想写个DNF的外挂吖,哈哈,有无高手给段代码学习学习吖! 参加2009深圳双选会(招聘会)的经历 我想学习delphi 想知道它与VB相似吗? 求一个 C#写的C语言的解析器。 读取bmp文件,逐个像素显示(24位色深,对齐错误!) 鼠标坐标的进一步问题 tabstrip在工具箱里找不到啊 ???? rowfilter表达式中变量的特殊字符处理