主题：[求助]连接局域网ACCESS数据库的问题（搞定）

Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "ZJGL" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        e.C";Data Source = "& ip &" ; Persist Security Info=True;Jet OLEDB:Database Password=admin888 "
    End If
End If

以上代码错在哪里？

IP.TXT内容如下\\Kuhome\ZJGL\ZJGL.md

加一个：

messagebox.show(e.SelectString)

看看到底是什么。

提示SelectString不能加到BeforeConnect...中

他爸，你就直接给个正确答案得了

给不出来的，前面是我打错了：


Messagebox.show(e.ConnectionString)

Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "ZJGL" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& ip &";Persist Security Info=False;Jet OLEDB:Database Password=admin888"
    End if
End if

搞定

改成这样试试
在e.ConnectionString 后面加上
="Provider=Microsoft.Jet.OLEDB.4.0;

不知为何复制时总要掉些代码，我也没注意，所以老大可能没看懂

论坛有设置吧

  Dim ipFile As String = e.ProjectPath & "ip.txt"

为何还要e.projectpath ?
应该不用才对啊