vb+SQL 的连接问题

Question

conn.ConnectionTimeout = 30

Answer 1

On Err GoTo 是可以补到这个错误的呀你用Err.Number & vbCrLf & Err.Description看一看就知道了
   on error goto ErrHandle1
ErrHandle1:
    Screen.MousePointer = vbDefault
    MsgBox "Can't Connect to SQLServer" & vbCrLf & Err.Number & vbCrLf & Err.Description, vbOKOnly + vbExclamation, "Connect Error"

Answer 2

YES! 设置connection的ConnectionTimeout属性

Answer 3

ConnectionTimeout默认的值好像是15秒。
就算无法联接也要过了15秒才会报错。
所以，对这个属性先设一下

Answer 4

同意。
不想等的话就把connectiontimeout设小点，然后用on error goto ..捕捉错误，把信息返回给客户就可以了。

Answer 5

dim rs as new adodb.recordset
rs.open"SQL语句","连接字符串"
.....
rs.close
set rs=nothing

Answer 6

conn.ConnectionTimeout = 30