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

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

 

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

提示这个，说明你 【服务器名称】写错。

 

照着设置一次

 

http://www.foxtable.com/webhelp/scr/2348.htm

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=714469&ID=104284&skin=1

 

如果还提示错误，把端口号加上，如 192.168.1.108,1433

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

 

设置ip那里不重要。重要是，你防火墙开放了端口、安全组（或者路由器）开放了端口，输入服务器地址的时候，带上端口号。

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

本机放一个相同表结构的access数据库，当连接不到正式数据库时，连接本机access数据库

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

 

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

BeforeConnectOuterDataSource 事件写代码

 

If e.Name = "数据源名称" Then
    If Network.Ping("192.168.1.100",1000) = False  Then '如果服务器IP无法接通
        e.ConnectionString = "你的access数据源的连接字符串" 
    End If
End If

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 '如果服务器IP无法接通
        e.ConnectionString = "你的access数据源的连接字符串" 
    End If
End If