在帮助里面有这么一段:
示例五
假定有两个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 是新连接字符串
这样没有问题吧?