数据库连接断开了怎么来判断?
数据库连接断开了怎么来判断?我写了一个线程来始终检测可是还有些莫名其妙的问题。我把代码拷下来大家帮忙看看还有什么问题,谢谢!
Private Sub connectThread()
Dim cmTestDBAccess As New ABS.UP.CM.UPCM010.DBAccess
'If cmTestDBAccess.DBOpen(strDBConn & "Connect Timeout=1") Then
Dim blnTemp As New Boolean
blnTemp = cmTestDBAccess.DBOpen("Persist Security Info=false;" & _
"User ID=sa;password=123456;Data Source=192.168.0.59;" & _
"Initial Catalog=NewABS;" & "Connect Timeout=1")
If blnTemp Then
cmTestDBAccess.DBClose()
If Me.isConnect = False Then
Me.isConnect = True
Me.setConnect()
End If
Else
If Me.isConnect Then
Me.isConnect = False
Me.setConnect()
End If
End If
End Sub