Dim s1 As String = " Provider=SQLOLEDB.1;Password=a*******;Persist Security Info=True;User ID=b****;Initial Catalog=a******;Data Source=1*.2**.3**.4** "
If Connections.TryConnect(s1) = False Then
e.ConnectionString = s1
MessageBox.Show("无法与服务器成功连通!","检查网络是否正常,服务器是否正常")
Syscmd.Project.Exit(False) ''不询问,退出
End If
实际运行时，如果无法连通服务器，除了出现提示“无法与服务器成功连通!“外，还不断出现外部数据源失败，加载某某表失败，等等
请问如何在无法连通服务器时，提示一下，然后立即退出？
[此贴子已经被作者于2023/2/21 16:23:38编辑过]
加好友 
发短信
Post By：2023/2/21 16:23:00 [只看该作者]
