以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]设置外部数据源是提示错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116893)

--  作者:lgj716330
--  发布时间:2018/4/2 13:41:00
--  [求助]设置外部数据源是提示错误

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

 


图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_15226472293183.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/4/2 14:20:00
--  

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

 

照着设置一次

 

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


--  作者:lgj716330
--  发布时间:2018/4/2 14:33:00
--  
里面有好几个IP地址,我的IP地址默认在IP4里,需要改到IP1里吗
--  作者:有点甜
--  发布时间:2018/4/2 14:40:00
--  
以下是引用lgj716330在2018/4/2 14:33:00的发言:
里面有好几个IP地址,我的IP地址默认在IP4里,需要改到IP1里吗

 

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


--  作者:lgj716330
--  发布时间:2018/6/26 21:49:00
--  

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


--  作者:有点蓝
--  发布时间:2018/6/26 22:12:00
--  
本机放一个相同表结构的access数据库,当连接不到正式数据库时,连接本机access数据库


--  作者:lgj716330
--  发布时间:2018/6/27 9:22:00
--  

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

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180627092245.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/6/27 9:54:00
--  

BeforeConnectOuterDataSource 事件写代码

 

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


--  作者:lgj716330
--  发布时间:2018/6/27 21:03:00
--  

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

 

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


--  作者:有点甜
--  发布时间:2018/6/27 21:59:00
--  

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