(未解决)sql数据库的连接确认？

ken0137

我这里一个方法以确认数据库是否连接正常，就是在数据库中取一个固定的值，看看是否相等，
下面的代码是成功的
但是我有一个疑问，好像有这么一种说法，sql打开一个连接后，使用完了就必须关闭一个连接，一一对应
但是我在下面的代码里加上
        $RS.close
        $Conn.Close
却始终是错误的，会自动退出，
不知道要不要加，加在哪里？

Func Connect();连接数据库
        If Ping("10.8.96.239") <> 0 Then
                SQLOpen()
                $sentence = "Select * From AllModels"
                $RS.Open($sentence)
                If $RS.Fields(0).Name <> "id" Then
                        MsgBox(4160, "信息提示", "数据库设置被损坏，请确认数据库状态")
                        Exit
                Else
                        
                        Combo3();这事读取查询模块中，大类的名称
                EndIf
    
        Else
                MsgBox(4160, "信息提示", "数据库连接失败，请确认网络环境")
        EndIf

EndFunc   ;==>Connect
Func SQLOpen()
        $Conn = ObjCreate("ADODB.Connection")
        $Conn.Open("Provider=SQLOLEDB; Server=IP;Database=table;Uid=user ;Pwd=pwd;")
        $RS = ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $Conn

EndFunc

[ 本帖最后由 ken0137 于 2008-8-19 08:52 编辑 ]

真会走路的废柴

$RS.Open($sentence)
改为
   $RS.Open($sentence,$Conn)
试试看

[ 本帖最后由 真会走路的废柴 于 2008-6-2 10:44 编辑 ]

ken0137

确定？ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

605284

好东西,收藏