|
Dim str As DataRow = DataTables("网络连接设置").DataRows(0)
Dim ErrMsg As String
Dim Conn As String = "Provider=SQLOLEDB.1;Password=" & str("DBPassword") & ";Persist Security Info=True;User ID=" & str("DBUser") & ";Initial Catalog=" & str("DBName") & ";Data Source =" & str("IP") & "," & str("Port")
If Connections.TryConnect(Conn,ErrMsg) = False Then
MessageBox.Show("数据源无法连通,原因:" & ErrMsg)
Else
MessageBox.Show("数据源可以连通!")
End If
|
加好友 
发短信
Post By：2022/3/3 15:22:00 [显示全部帖子]
