[讨论]adodc问题 - VB6论坛 - 编程论坛档案馆

编程论坛 → 开发语言 → 『 VB6论坛』 → [讨论]adodc问题

标题：[讨论]adodc问题

只看楼主

tiger111

等　级：新手上路
帖　子：74
专家分：0
注　册：2007-8-19

楼主

问题点数：0 回复次数：4

[讨论]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

搜索更多相关主题的帖子: adodc　

2007-09-07 06:35

西风独自凉

等　级：贵宾
威　望：43
帖　子：3380
专家分：28
注　册：2007-8-2

第 2 楼

得分:0

必须把data文件夹移到你程序路径中。。
这样就可以了，你试下。
Public Function ConnectString() As String
dim strAppPath as string
strAppPath = App.Path & "\Data\wx.mdb"
ConnectString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & strAppPath & ";PWD=;"
End Function

[此贴子已经被作者于2007-9-7 8:07:45编辑过]