论坛 › 『 提问交流 』 › 如何判断数据库连接是否正常？

bfqymmt 发表于 2017-6-6 10:04:28

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

数据库：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 发表于 2017-6-6 12:05:33

回复 1# bfqymmt


    請上代碼

chzj589 发表于 2017-6-6 12:40:30

回复 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 发表于 2017-6-6 12:41:29

回复 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 发表于 2017-6-6 12:47:45

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

bfqymmt 发表于 2017-6-7 09:14:18

本帖最后由 bfqymmt 于 2017-6-7 09:29 编辑

回复 3# chzj589


    你好，我把数据库地址故意写错，出现如下错误$conn.Open ("driver={SQL Server};server="&$Server&";uid="&$ID&";pwd="&$pw&";database="&$dbname)
$conn^ ERROR如何在这一节点判断数据库是否正常连接呢？

查看完整版本: 如何判断数据库连接是否正常？