Foxtable(狐表)用户栏目专家坐堂 → 断网也提示数据源可以连通


  共有3331人关注过本帖树形打印复制链接

主题:断网也提示数据源可以连通

帅哥哟,离线,有人找我吗?
青丘狐
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:346 积分:2645 威望:0 精华:0 注册:2018/11/11 15:52:00
断网也提示数据源可以连通  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107880 积分:548763 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/3 15:35:00 [只看该作者]

不可能

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

 回到顶部