主题：[求助]设置外部数据源是提示错误

设置外部数据源时选不了数据库，出现以下错误，是什么问题呢

 

此主题相关图片如下：企业微信截图_15226472293183.png

里面有好几个IP地址，我的IP地址默认在IP4里，需要改到IP1里吗

我的项目即有外部数据表又有内部数据表，发布后的项目，当外部数据源连接不通时，普通用户如何才能进入项目

设置本地数据源的时候出现以错误，是什么原因呢

 

此主题相关图片如下：qq图片20180627092245.png

If e.Name = "CWGL" Then
    Dim s As String = "Provider=SQLOLEDB;Password=12345678;Persist Security Info=True;User ID=sa;Initial Catalog=aaaa;Data Source=111.111.11.111"
    e.ConnectionString = s
    Dim ljFile As String = e.ProjectPath &  "ljzhc.txt" 

    If Filesys.FileExists(ljFile) Then 

        Dim  ljzhc As  String = FileSys.ReadAllText(ljFile,Encoding.Default) '
        If Connections.TryConnect(s) = False Then '
             e.ConnectionString = e.ConnectionString.Replace(s,ljzhc) '
        End If
     End If
End If

 

上面的代码哪里有问题，项目进不了，闪掉了

If e.Name = "CWGL" Then

    If Network.Ping("111.111.11.111",1000) = False  Then '
         e.ConnectionString =  "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & e.ProjectPath & "ABCD.accdb;Persist Security Info=False"

    End If
End If

 

上面这样是可以的，但我采用下面这种形式好象不行，整个字串不能用变量替换吗

Dim ljFile As String = e.ProjectPath &  "ljzhc.txt"

If e.Name = "CWGL" Then
If Filesys.FileExists(ljFile) Then
Dim  ljzhc As  String = FileSys.ReadAllText(ljFile,Encoding.Default) 
    If Network.Ping("111.111.11.111",1000) = False  Then 
         e.ConnectionString = ljzhc

    End If
End If
End If

显示的内容同e.ConnectionString =  "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & e.ProjectPath & "ABCD.accdb;Persist Security Info=False"是一样的

 

此主题相关图片如下：qq图片20180630205349.png