| 以文本方式查看主题 - 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:56:00 -- 设置端口映射了吗？ If Network.Ping(b,1000) = True Then e.ConnectionString = e.ConnectionString.Replace(a, b) Messagebox.Show("您使用的是远程网络") End If
|
|
| -- 作者：有点蓝 -- 发布时间：2021/8/8 20:25:00 -- 窗口afterload
If Network.Ping(b,1000) = True Then e.form.controls(“lable1”).text = "您使用的是远程网络" End If |
|
| -- 作者：有点蓝 -- 发布时间：2021/8/10 22:04:00 -- 代码？ |
|
| -- 作者：有点蓝 -- 发布时间：2021/8/10 22:27:00 -- 错误所在事件：窗口,工作台,AfterLoad，不是BeforeConnectOuterDataSource |
|
| -- 作者：有点蓝 -- 发布时间：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
|
|
| -- 作者：有点蓝 -- 发布时间：2021/8/11 8:33:00 -- ping不要端口，连接数据库再加端口。 另外不要在内网访问自己的外网，要找外网的电脑测试。 域名判断可以加上TryConnectHost：http://www.foxtable.com/webhelp/topics/2709.htm
|
|
| -- 作者：有点蓝 -- 发布时间：2021/8/11 10:11:00 -- 先不用管这些代码。新建一个项目，直接在数据源设置里使用外网地址能不能连接数据库？ |
|
| -- 作者：有点蓝 -- 发布时间：2021/8/12 9:23:00 -- 看2楼啊！把菜单数数据源默认设置为本机，然后ping远程，如果ping的通就连接，而不是ping127.0.0.1，127.0.0.1是本机ip，永远都是通的，不管有没有联网。 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(b,1000) = True Then e.ConnectionString = e.ConnectionString.Replace(a, b) Messagebox.Show("您使用的是远程网络") End If End Select |
|
| -- 作者：有点蓝 -- 发布时间：2021/8/12 9:50:00 -- 我测试没有问题，请上传实例测试 |
|
| -- 作者：有点蓝 -- 发布时间：2021/11/14 20:43:00 -- 菜单下使用内部链接改为 Provider=SQLOLEDB.1;Password=yifa;Persist Security Info=True;User ID=sa;Initial Catalog=2021city;Data Source=192.168.1.153 |