茫然 发表于 2013-4-23 10:32:37

请教个MSSQL连接和断开的问题

本帖最后由 茫然 于 2013-4-23 10:33 编辑

我想在循环中检查网络和数据库连接是否正常,如果网络或数据库断开后可以重新连接数据库。例如下面代码:
有2个疑问:
1.假如第一次循环是网络正常,数据库连接成功。如果网络一直正常,这时第二次循环到$conn = ObjCreate("ADODB.Connection") 就出错了。可能是没有执行$conn.close的原因。
2.假如第一次循环是网络正常,数据库连接成功。第二次循环网络断了,$conn.close能断开吗(网络都是断的,我看到SQL服务器上的连接进程还在 貌似不管它,服务器上的进程过一会就自动断掉了)。
各位大侠给看看,如何做! 谢谢!Dim $Server = "192.168.10.100"
Dim $ID = "sa"
Dim $pw = "123"
DIM $Company="database01"
dim $conn, $RS

While 1
If Ping($Server )
$conn = ObjCreate("ADODB.Connection")
$RS = ObjCreate("ADODB.Recordset")
$conn.Open ("driver={SQL Server};server="&$Server&";uid="&$ID&";pwd="&$pw&";database="&$Company)   
$RS.ActiveConnection = $conn
Else
        $conn.close
        $RS.close
EndIf       
WEnd
页: [1]
查看完整版本: 请教个MSSQL连接和断开的问题