Foxtable(狐表)用户栏目专家坐堂 → 老大 这个问题 好像有点问题吧


  共有6749人关注过本帖平板打印复制链接

主题:老大 这个问题 好像有点问题吧

帅哥哟,离线,有人找我吗?
布莱克朱
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:623 积分:3897 威望:0 精华:0 注册:2011/8/3 22:13:00
老大 这个问题 好像有点问题吧  发帖心情 Post By:2013/4/10 22:09:00 [只看该作者]

   在帮助里面有这么一段:

 

  

  示例五

 

   假定有两个IP地址(也可能是两个服务器),分别是192.168.1.100和119.75.217.56,默认使用第一个IP地址,如果第一个IP地址无法接通,则自动切换到第二个IP地址。
   要实现这个功能很简单,首先在设置数据源的时候,使用第一个IP地址(192.168.1.100)设置,然后在BeforeConnectOuterDataSource事件中设置如下代码:

    If e.Name = "数据源名称" Then
       If Network.Ping("192.168.1.100",1000) = False  Then '如果第一个IP无法接通
           e.ConnectionString = e.ConnectionString.Replace("192.168.1.100", "119.75.217.56")
       End If
    End If

 

  但是在网络不通的情况下 居然提示 网络不通 无法ping的提示 这个怎么回事?

 

   后来我改成这样:

   If e.Name = "服务器" Then
    Dim s As String = "Provider=SQLOLEDB.1;Password=shangqi09;Persist Security Info=True;User ID=shangqi09;Initial Catalog=shangqi09;Data Source=219.140.165.55"
    If Connections.TryConnect(s) = False Then
        MessageBox.Show("网络不通,执行另外一个连接")
        Dim ipFile As String = e.ProjectPath & "ip.txt"
        If Filesys.FileExists(ipFile) Then
            Dim ip As String = FileSys.ReadAllText(ipFile)
            e.ConnectionString =ip
        End If
    End If
End If

 

 这个IP.Txt 是新连接字符串

 

这样没有问题吧?


 回到顶部