Foxtable(狐表)用户栏目专家坐堂 → 关于外部数据库连接的问题


  共有3295人关注过本帖树形打印复制链接

主题:关于外部数据库连接的问题

帅哥哟,离线,有人找我吗?
晕了快扶我
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1199 积分:7102 威望:0 精华:0 注册:2013/3/4 18:02:00
关于外部数据库连接的问题  发帖心情 Post By:2014/5/19 10:56:00 [只看该作者]

两台服务器主机,一台不通时自动转另一台,都是内网的主机

If e.Name = "ERP" Then
    If Network.Ping("TESTSERVER",1000) = False  Then '如果第一个IP无法接通
        e.ConnectionString = e.ConnectionString.Replace("TESTSERVER", "BOSS-PC")
    End If
End If
If e.Name = "URP" Then
    If Network.Ping("TESTSERVER",1000) = False  Then '如果第一个IP无法接通
        e.ConnectionString = e.ConnectionString.Replace("TESTSERVER", "BOSS-PC")
    End If
End If

刚做测试,TESTSERVER 关闭,出现错误,这是啥原因呢?

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140519105447.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-5-19 10:56:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/19 10:57:00 [只看该作者]

图片点击可在新窗口打开查看  哪有 TESTSERVER  这种玩意

要用IP 或者域名

 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1199 积分:7102 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2014/5/19 10:58:00 [只看该作者]

以下是引用Bin在2014-5-19 10:57:00的发言:
图片点击可在新窗口打开查看  哪有 TESTSERVER  这种玩意

要用IP 或者域名

是内网的主机啊,用机器名不可以吗?另外,这两台都是SQL服务器


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/19 10:58:00 [只看该作者]

内网主机,用局域网IP

 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1199 积分:7102 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2014/5/19 11:15:00 [只看该作者]

还是不行啊,依然无法跳转第二个服务器?是不是因为是SQL服务器的原因?我总觉得修改连接字窜这里怪怪的

 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1199 积分:7102 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2014/5/19 11:16:00 [只看该作者]

If e.Name = "ERP" Then
    If Network.Ping("192.168.1.109",1000) = False  Then '如果第一个IP无法接通
        e.ConnectionString = e.ConnectionString.Replace("192.168.1.109", "192.168.1.106")
    End If
End If
If e.Name = "URP" Then
    If Network.Ping("192.168.1.109",1000) = False  Then '如果第一个IP无法接通
        e.ConnectionString = e.ConnectionString.Replace("192.168.1.109", "192.168.1.106")
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/19 11:17:00 [只看该作者]

你改成什么样了? 提示什么.发出来看看

 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1199 积分:7102 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2014/5/19 13:46:00 [只看该作者]

If e.Name = "ERP" Then
    If Network.Ping("192.168.1.109",1000) = False  Then '如果第一个IP无法接通
        e.ConnectionString = e.ConnectionString.Replace("192.168.1.109", "192.168.1.106")
    End If
End If
If e.Name = "URP" Then
    If Network.Ping("192.168.1.109",1000) = False  Then '如果第一个IP无法接通
        e.ConnectionString = e.ConnectionString.Replace("192.168.1.109", "192.168.1.106")
    End If
End If

 

直接就跳无法连接,要求改字窜


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/19 14:03:00 [只看该作者]

在代码最后加入
messagebox.show( e.ConnectionString)  看看连接字符串是否正确
如果正确,看看服务器是否能连通

 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1199 积分:7102 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2014/5/19 14:04:00 [只看该作者]

以下是引用Bin在2014-5-19 14:03:00的发言:
在代码最后加入
messagebox.show( e.ConnectionString)  看看连接字符串是否正确
如果正确,看看服务器是否能连通

好吧,我回公司再试...


 回到顶部