以文本方式查看主题

-  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 & "秒")

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

[此贴子已经被作者于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
--  
谢谢老师的答复。测试出错:

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看
另外,麻烦老师注释一下,我完全看不懂。


--  作者:有点蓝
--  发布时间: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
--  
又出现

图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看

去掉加密关键字合适了,谢谢老师!

[此贴子已经被作者于2024/5/10 17:22:56编辑过]