[讨论]adodc问题
我每当把程序的路径改变下,adodc1路径不是合法路径,这是为什么,有何解决方法。谢谢附 模块中一段代码
Public Function ConnectString() As String
Dim strAppPath As String
strAppPath = App.Path
If Right(strAppPath, 1) <> "\" Then
strAppPath = strAppPath & "\"
End If
strAppPath = strAppPath & "Data\wx.mdb"
ConnectString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & strAppPath & ";PWD=;"
End Function
adodc1路径
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\work\btwork\复件 (2) 复件 new\Data\wx.mdb;Persist Security Info=False