如何判断数据库连接是否正常？

bfqymmt

数据库：MSSQL

连接代码：
$conn = ObjCreate("ADODB.Connection")
$rs = ObjCreate("ADODB.Recordset")
$conn.Open ("driver={SQL Server};server="&$Server&";uid="&$ID&";pwd="&$pw&";database="&$Company)  
$rs.ActiveConnection = $conn

之前看了一篇文章:
$Err = ObjEvent("AutoIt.Error", "ODBCJET_ErroHandler")
.....
If @error Then Exit

不起作用，如何实现呢？如果数据库连接不正常，弹出提示对话框并退出？

kk_lee69

回复 1# bfqymmt


    請上代碼

chzj589

回复 1# bfqymmt

$conn = ObjCreate("ADODB.Connection")
$conn.Open ("driver={SQL Server};server="&$Server&";uid="&$ID&";pwd="&$pw&";database="&$Company) 
$rs = ObjCreate("ADODB.Recordset")
$rs.ActiveConnection = $conn
$rs.Open("Select * From " & "表名")
While Not $RS.eof And Not $RS.bof
        If @error = 1 Then MsgBox(0, "连接", "数据库未连接", 1);判断是否连接
           ExitLoop
      Else
          ;读取代码
        EndIf
        $RS.movenext
WEnd
$rs.close
$conn.Close

bfqymmt

回复 2# kk_lee69



$Err = ObjEvent("AutoIt.Error", "ODBCJET_ErroHandler")
$conn = ObjCreate("ADODB.Connection")
$rs = ObjCreate("ADODB.Recordset")
$conn.Open ("driver={SQL Server};server="&$Server&";uid="&$ID&";pwd="&$pw&";database="&$Company)  
$rs.ActiveConnection = $conn
if @error the msgbox(0,'错误','连接错误')   ;这个地方没有没有弹出对话框

chzj589

回复 4# bfqymmt
if @error the msgbox(0,'错误','连接错误')   ;这个地方没有没有弹出对话框
少了一个字母--Then
if @error Then  msgbox(0,'错误','连接错误')   ;这个地方没有没有弹出对话框

bfqymmt

回复 3# chzj589


    你好，我把数据库地址故意写错，出现如下错误

$conn.Open ("driver={SQL Server};server="&$Server&";uid="&$ID&";pwd="&$pw&";database="&$dbname)
$conn^ ERROR

如何在这一节点判断数据库是否正常连接呢？