以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]如何快速判断远程数据源是否正常 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191833) |
-- 作者:洮沙 -- 发布时间:2024/5/10 16:17:00 -- [求助]如何快速判断远程数据源是否正常 用以下代码判断远程mssql数据源,如果数据源正常,秒出结果;如果数据源不正常,居然需要21秒多,有什么其他办法能够快速判断数据源是否正常? Dim st As Date = Date.Now Dim ip As String = Connections("SQL2008数据源").ConnectionString Dim err As String If Connections.TryConnect(ip, err) = False Then _C End If MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") [此贴子已经被作者于2024/5/10 16:17:11编辑过]
|
-- 作者:有点蓝 -- 发布时间:2024/5/10 16:39:00 -- 换种方式判断 Dim st As Date = Date.Now Dim ip As String = Connections("SQL2008数据源").ConnectionString Dim conn As System.Data.SqlClient.SqlConnection Try conn = New System.Data.SqlClient.SqlConnection(ip .replace("Provider=SQLOLEDB.1;","Connection Timeout=1;")) conn.Open() \'打开链接 Output.Show("OK") Catch ex As exception Output.Show(ex.message) Finally conn.Close End Try MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") [此贴子已经被作者于2024/5/10 17:11:53编辑过]
|
-- 作者:洮沙 -- 发布时间:2024/5/10 17:04:00 -- 谢谢老师的答复。测试出错: 另外,麻烦老师注释一下,我完全看不懂。
|
-- 作者:有点蓝 -- 发布时间:2024/5/10 17:12:00 -- conn = New System.Data.SqlClient.SqlConnection(ip .replace("Provider=SQLOLEDB.1;","Connection Timeout=1;")) 这些都是.net的语法,看不懂网上搜搜
|
-- 作者:洮沙 -- 发布时间:2024/5/10 17:17:00 -- 又出现 去掉加密关键字合适了,谢谢老师!
[此贴子已经被作者于2024/5/10 17:22:56编辑过]
|