Dim a As String = "192.168.1.153" '本地IP
Dim b As String = "yifan9108.oicp.net,561938" '远程数据端口
Select Case e.Name
Case "city","dufox" ,"rizhi" '数据源
If Network.Ping(a,1000) = False Then
e.ConnectionString = e.ConnectionString.Replace(a, b)
End If
End Select
目前的状况是 BeforeConnectOuterDataSource 下的的代码并不会根据内网或是外网自由选择线路
菜单下使用外部链接
Provider=SQLOLEDB.1;Password=yifa;Persist Security Info=True;User ID=sa;Initial Catalog=2021city;Data Source=
yifan9108.oicp.net,561938在内网开启程序还会是使用的外部链接路径
改为菜单下使用内部链接
Provider=SQLOLEDB.1;Password=yifa;Persist Security Info=True;User ID=sa;Initial Catalog=2021city;Data Source=CITY-WHN
在外网开启程序就会提示链接不到数据库
内外网单独选择都可以用
[此贴子已经被作者于2021/11/13 21:58:33编辑过]