高手支招——如何用.net程序快速检测与SQL服务器的连接状态？

[ytuliangzi]

问题：如何用.net程序快速检测与SQL服务器的连接状态？
我写的检测函数如下：
Public Function Testconn(ByVal UserName As String, ByVal Password As String, ByVal _ ServerName As String) As Boolean
Dim DBConn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection

Dim Strconnection As String
Dim str As String
Try
DBConn.ConnectionString = "User ID=" & UserName & ";Password=" & Password & ";Data Source=" & ServerName & ";Initial Catalog=FireDocument;Auto Translate=True;Persist Security Info=False;Provider=""SQLOLEDB.1"""
DBConn.Open()
Dim pp As New OleDb.OleDbCommand
pp.Connection = DBConn
pp.CommandText = "select top 1 * from sysobjects"
pp.ExecuteNonQuery()
pp.Dispose()
DBConn.Close()
DBConn.Dispose()
Return True
Catch ex As Exception
Return False
End Try
End Function
用这个函数检测，所用时间太长！望高手提供建议和程序代码！！ 3Q!

[lpc007]

DBConn.State 连接状态 具体看帮助

[ytuliangzi]

我发现运行 DBConn.Open()用的时间太久了,特别是与服务器连接不上的时候,能不能在连接不上的时候,快速的返回一个False !!

[dofly]

学习。。。。。。。。。。。。。。

[lpc007]

DBConn.ConnectionTimeout 可以设置一个时间，如果连接时间超过设置的时间就返回FALSE

[Fusuli]

大部分程序都是用超时来判断连接错误的，但是之前你可以ping一下服务器的ip，ping ip超时比数据库连接超时要短得多

[ytuliangzi]

我试一下!

[CYG369]

up

[ytuliangzi]

.net 中怎样运行ping ip的命令？

[ytuliangzi]

郁闷 DBConn.ConnectionTimeout = 5 怕不够用,=10 太久了 !!
谢谢大家 ,结帖吃饭!!

[长江]

如果服务器有防火墙就ping不了～！

建议改你原来的代码：
Public Function Testconn(ByVal UserName As String, ByVal Password As String, ByVal _ ServerName As String) As Boolean
Dim DBConn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection

Dim Strconnection As String
Dim str As String
Try
DBConn.ConnectionString = "User ID=" & UserName & ";Password=" & Password & ";Data Source=" & ServerName & ";Initial Catalog=FireDocument;Auto Translate=True;Persist Security Info=False;Provider=""SQLOLEDB.1"""
DBConn.ConnectionTimeout=5000
DBConn.Open()
DBConn.Close()
DBConn.Dispose()
Return True
Catch ex As Exception
Return False
End Try
End Function