标题：[求助]如何快速判断远程数据源是否正常

1楼

洮沙发表于：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

End If

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")

此主题相关图片如下：2.png

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

2楼

有点蓝 发表于：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编辑过]

3楼

洮沙发表于：2024/5/10 17:04:00

谢谢老师的答复。测试出错：

此主题相关图片如下：3.png

另外，麻烦老师注释一下，我完全看不懂。

4楼

有点蓝 发表于：2024/5/10 17:12:00

conn = New System.Data.SqlClient.SqlConnection(ip .replace("Provider=SQLOLEDB.1;","Connection Timeout=1;"))

这些都是.net的语法，看不懂网上搜搜

5楼

洮沙发表于：2024/5/10 17:17:00

又出现

此主题相关图片如下：4.png

去掉加密关键字合适了，谢谢老师！

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

共5 条记录, 每页显示 10 条, 页签: [1]