一個測試數據庫連接的函數
發表時間:2023-08-13 來源:明輝站整理相關軟件相關文章人氣:
[摘要]以前一直困擾我的一個問題,如何判斷數據庫連接是否成功(比如sql沒有啟動,數據庫不存在等),實現友好的錯誤處理,但vbscript的錯誤處理機制實在太差,只有on error resume nex/...
以前一直困擾我的一個問題,如何判斷數據庫連接是否成功(比如sql沒有啟動,數據庫不存在等),實現友好的錯誤處理,但vbscript的錯誤處理機制實在太差,只有on error resume nex/go to,但往往使用ADO的錯誤陷阱后,等待你的將是腳本超時,這個函數將改變這一狀況(連接超時長短可以自己根據實際情況控制)
'入口參數:連接字符串strconn
'返回值:TestConnection=true,false
Function TestConnection(strconn)
On Error Resume Next
set conn=server.createobject("adodb.connection")
'這里設定連接超時為10秒
conn.ConnectionTimeout=10
conn.Open strconn
If conn.Errors.Count = 0 Then
TestConnection = True
conn.close
Else
TestConnection = False
End If
set conn=nothing
End Function