编程论坛 → VB6论坛

修改为相对路径

shuchong1122 发布于 2016-09-18 21:38， 4021 次点击

Sub main()

Dim strAccess As String

'联接access数据库
strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=App.path + '\液压缸.mdb';Persist Security Info=true"
Set ADOcn = New Connection
ADOcn.Open strAccess '联接access数据库
Frmdl.Show
End Sub

之前的一个程序，现在需要把绝对路径改为相对路径，已经把所有的窗体和模块信息都改成了相对路径，结果运行时出现了下面的提示。是哪里的问题啊

'E：\液压缸\App.path + '\液压缸.mdb''不是一个有效路径。我已经全改了阿，怎么还有这个路径

6 回复

#2

风吹过b2016-09-18 22:12

初步看到的是你把组合路径的表达式放在双引号里了。
strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\液压缸.mdb;Persist Security Info=true"
'此处有BUG，当应用放在根目录运行时出现错误

#3

ZHRXJR2016-09-19 00:14

strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=App.path + '\液压缸.mdb';Persist Security Info=true"

修改为：
strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\液压缸.mdb;Persist Security Info=True"
你的 “液压缸.mdb” 数据库文件必须在你的程序文件的根目录，这样才可以。

#4

xiangyue05102016-09-19 08:39

最近怎么老是有这样的帖子，最基本的字符串操作都能搞错……

#5

恩典3332016-09-19 08:41

cha

#6

初始元灵2016-10-10 15:01

版主正解，一下捉到三个诶。

#7

pengzhanggui2016-10-10 15:07

回复 4楼 xiangyue0510

多多体谅

1