以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  断网也提示数据源可以连通  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175411)
--  作者：青丘狐
--  发布时间：2022/3/3 15:22:00
--  断网也提示数据源可以连通
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
--  作者：有点蓝
--  发布时间：2022/3/3 15:35:00
--  
不可能

msgbox(Conn) 新建一个数据源把这个连接字符串放进去能不能连接？