主题：[求助]动态切换外部数据源（已解决）

远程和本地各有两个SQL数据源，如果远程数据源不能连接就同时连接本地两个外部数据源，本地两个外部数据源的连接字符串分别为：

 

Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=JG;Data Source=HHJY-PC\HHJY01

 

Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=SCGL;Data Source=HHJY-PC\HHJY01

 

在BeforeConnectOuterDataSource事件中如何设置两个数据源的连接字符串，请各位老师指教，谢谢！！

 

If Network.Ping("192.168.0.188")
     '保持不变
Else If Network.Ping("192.168.0.13")
      e.ConnectionString =
End If

在BeforeConnectOuterDataSource事件中设置如下代码，出现两次同样的错误提示，代码应该如何修改，请各位老师指教，谢谢！！

 

If Network.Ping("192.168.0.188") Then
    Connections.Add("JGXT","Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=JGXT;Data Source=192.168.0.2")
    Connections.Add("SCGL","Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=SCGL;Data Source=192.168.0.188")
ElseIf Network.Ping("192.168.0.13") Then
    Connections.Add("JG","Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=JG;Data Source=HHJY-PC\HHJY01")
    Connections.Add("SCGL","Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=SCGL;Data Source=HHJY-PC\HHJY01")
Else
    MessageBox.Show("网络不通")
End If

 

 

此主题相关图片如下：a.png

问题解决，代码如下，当断开局域网重新打开项目时，会自动与本机的数据库连接（原来需要修改连接字符串，很麻烦）。

 

If Network.Ping("192.168.0.188") Then
    If e.name = "JGXT" Then
        e.Connection String = "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=JGXT;Data Source=192.168.0.2"
    ElseIf e.name = "SCGL" Then
        e.Connection String = "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=oa;Initial Catalog=SCGL;Data Source=192.168.0.188"
    End If
ElseIf Network.Ping("hhjy-pc") Then
    If e.name = "JG" Then
        e.Connection String = "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=JG;Data Source=HHJY-PC\HHJY01"
    ElseIf e.name = "SCGL" Then
        e.Connection String = "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=SCGL;Data Source=HHJY-PC\HHJY01"
    End If
Else
    MessageBox.Show("网络不通")
End If

 

 

 

代码贴不上去，所以加了一个空格，应用时将e.Connection String 中间的空格去除。

又有新问题，能否利用UpdatePath，在动态变更外部数据源的同时，变更系统升级路径，升级路径分别是\\192.168.0.188\scgl 和 file://hhjy-pc/scgl，代码如何写，请各位老师指教，谢谢！！

谢谢狐爸老师的回复，问题是如何用UpdatePath来设置升级路径，还请狐爸老师指教，谢谢！！

谢谢狐爸老师的指教，局域网的升级路径分别\\192.168.0.188\scgl 连接成功。但是本机的升级路径 file://hhjy-pc/scgl却连接不上，将这个升级路径复制到项目属性的在线升级路径却可以连接，不知问题出在哪里？请狐爸老师指教，谢谢！！

 

If Network.Ping("192.168.0.188") Then
    If e.name = "JGXT" Then
        e.Connection String = "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=JGXT;Data Source=192.168.0.2"
    ElseIf e.name = "SCGL" Then
        e.Connection String = "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=zjjyoa;Initial Catalog=SCGL;Data Source=192.168.0.188"
        UpdatePath = “\\192.168.0.188\scgl”

    End If
ElseIf Network.Ping("hhjy-pc") Then
    If e.name = "JG" Then
        e.Connection String = "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=JG;Data Source=HHJY-PC\HHJY01"
    ElseIf e.name = "SCGL" Then
        e.Connection String = "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=sa;Initial Catalog=SCGL;Data Source=HHJY-PC\HHJY01"
        UpdatePath =“file://hhjy-pc/scgl”

    End If
Else
    MessageBox.Show("网络不通")
End If

 

谢谢狐爸老师的指教，好像还是不行，我现在解决的方法是将本地升级路径放在项目属性的在线升级路径里，可以实现预期的效果。再次感谢狐爸老师的热心帮助！！