ip可以访问的情况下，ConnectionTimeout才有效。先判断IP是否可用，2楼的贴估计也没有怎么仔细看
If Network.Ping("192.192.192.192", 1) Then
Dim str As String = "Password=888;Persist Security Info=True;User ID=sa;Initial Catalog=abc;Data Source=192.192.192.192;Connection Timeout=1"
Dim mess As String = "数据源连接成功!"
Try
Dim conn As New system.Data.SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open
conn.close
Catch ex As Exception
mess = "SQL数据库" & Err.Description
End Try
MessageBox.Show(mess)
Else
Messagebox.Show("该服务器不可用")
End If
加好友 
发短信
Post By：2022/9/17 11:34:00 [只看该作者]
