修改为相对路径
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''不是一个有效路径。我已经全改了阿,怎么还有这个路径