If e.name = "电子审批台账" Then
If Network.Ping("83.243.52.7",1000) = True Then
e.Conn ection String = "Provider=SQLOLEDB.1;Password=Aa123456;Persist Security Info=True;User ID=sa;Initial Catalog=网安综合业务;Data Source=83.243.52.7"
Else If Network.Ping("192.168.0.56",1000) = True Then
e.Conn ection String = "Provider=SQLOLEDB.1;Password=Aa123456;Persist Security Info=True;User ID=sa;Initial Catalog=网安综合业务;Data Source=192.168.0.56"
Else
e.Conn ectio nString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "\Attachments\陈正海2021.mdb;Persist Security Info=False"
End If
End If
可是为什么不能达到效果呢？应当是第一个不通 就第二个啥 第二个不通就第三个啥 可以为什么第一个不通 就直接弹出修改第一个的连接字符串了呢？
加好友 
发短信
Post By：2022/1/14 16:25:00 [显示全部帖子]
