- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 双网切换 数据库 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=170703)
-- 发布时间：2021/8/4 14:47:00
-- 双网切换 数据库
Dim a As String = "127.0.0.1" \'本地IP
Dim b As String = "45469108.net,30798" \'远程IP
Select Case e.Name
Case "city","dufox" ,"rizhi" \'数据源
If Network.Ping(a,1000) = True Then
e.ConnectionString = e.ConnectionString.Replace(b, a)
Messagebox.Show("您使用的是远程网络")
End If
End Select
上面的数据库是在本地局域网，现在想通过外网链接数据。好像不行，是还有其他的设置吗
-- 发布时间：2021/8/4 14:56:00
--
设置端口映射了吗？
If Network.Ping(b,1000) = True Then
e.ConnectionString = e.ConnectionString.Replace(a, b)
Messagebox.Show("您使用的是远程网络")
End If
-- 发布时间：2021/8/8 8:06:00
--
想通过一个标签知道 目前链接是是外网还是内网 怎么获取
-- 发布时间：2021/8/8 20:25:00
--
窗口afterload
Dim a As String = "127.0.0.1" \'本地IP Dim b As String = "45469108.net,30798" \'远程IP |
If Network.Ping(b,1000) = True Then
e.form.controls(“lable1”).text = "您使用的是远程网络"
End If
-- 发布时间：2021/8/10 22:01:00
--
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2021.5.29.1
错误所在事件：窗口,工作台,AfterLoad
详细错误信息：
Ping 请求期间发生异常。
不知道这样的主机。
-- 发布时间：2021/8/10 22:04:00
--
代码？
-- 发布时间：2021/8/10 22:21:00
--
Dim a As String = "127.0.0.1" \'本地IP
Dim b As String = "ert.oicp.net，56006" \'远程IP
Select Case e.Name
Case "city","dufox" ,"rizhi" \'数据源
If Network.Ping(b,1000) = True Then
e.ConnectionString = e.ConnectionString.Replace(a, b)
Messagebox.Show("您使用的是远程网络")
Else
Messagebox.Show("您使用的是公司网络")
End If
End Select
此主题相关图片如下：企业微信截图_20210810222126.png
数据原始链接是127的
此主题相关图片如下：企业微信截图_20210810222457.png
此主题相关图片如下：企业微信截图_20210810222901.png
[此贴子已经被作者于2021/8/10 22:28:09编辑过]
-- 发布时间：2021/8/10 22:27:00
--
错误所在事件：窗口,工作台,AfterLoad，不是BeforeConnectOuterDataSource
-- 发布时间：2021/8/10 22:29:00
--
BeforeConnectOuterDataSource
这个是我在打开系统的时候就要判断网路的来源啊 难道不是吗
现在是外网连不上，不会知道系统是选择的内网还是外网
[此贴子已经被作者于2021/8/10 22:30:20编辑过]
-- 发布时间：2021/8/10 22:58:00
--
5楼提示的是窗口的错误，BeforeConnectOuterDataSource如果有错，那是另外一个问题。ping的时候不要加端口
Dim a As String = "127.0.0.1" \'本地IP
Dim b As String = "ert.oicp.net，56006" \'远程IP
Dim c As String = "ert.oicp.net" \'远程IP
Select Case e.Name
Case "city","dufox" ,"rizhi" \'数据源
If Network.Ping(c,1000) = True Then
e.ConnectionString = e.ConnectionString.Replace(a, b)
Messagebox.Show("您使用的是远程网络")
Else
Messagebox.Show("您使用的是公司网络")
End If
End Select