一個(gè)測(cè)試數(shù)據(jù)庫(kù)連接的函數(shù)
發(fā)表時(shí)間：2023-08-13 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]以前一直困擾我的一個(gè)問(wèn)題，如何判斷數(shù)據(jù)庫(kù)連接是否成功(比如sql沒(méi)有啟動(dòng)，數(shù)據(jù)庫(kù)不存在等),實(shí)現(xiàn)友好的錯(cuò)誤處理，但vbscript的錯(cuò)誤處理機(jī)制實(shí)在太差，只有on error resume nex/...
以前一直困擾我的一個(gè)問(wèn)題，如何判斷數(shù)據(jù)庫(kù)連接是否成功(比如sql沒(méi)有啟動(dòng)，數(shù)據(jù)庫(kù)不存在等),實(shí)現(xiàn)友好的錯(cuò)誤處理，但vbscript的錯(cuò)誤處理機(jī)制實(shí)在太差，只有on error resume nex/go to，但往往使用ADO的錯(cuò)誤陷阱后，等待你的將是腳本超時(shí)，這個(gè)函數(shù)將改變這一狀況（連接超時(shí)長(zhǎng)短可以自己根據(jù)實(shí)際情況控制）
'入口參數(shù)：連接字符串strconn
'返回值：TestConnection=true,false
Function TestConnection(strconn)
On Error Resume Next
set conn=server.createobject("adodb.connection")
'這里設(shè)定連接超時(shí)為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
