16,722
社区成员
发帖
与我相关
我的任务
分享数据库连接断开了怎么来判断？
数据库连接断开了怎么来判断？我写了一个线程来始终检测可是还有些莫名其妙的问题。我把代码拷下来大家帮忙看看还有什么问题，谢谢！
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
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
...全文
请发表友善的回复…
发表回复
refuly 2005-03-05
- 打赏
- 举报
没话了，接分
usersmj 2005-03-02
- 打赏
- 举报
赞同.State
hotnoodle 2005-02-28
- 打赏
- 举报
SqlCon.State = ConnectionState.Open
sunchangzhan 2005-02-28
- 打赏
- 举报
如果有和我不同的做法，请指教一下，谢谢！
yizhixiaozhu 2005-02-22
- 打赏
- 举报
楼主 真幽默
拔网线
拔网线
jiangfeng999 2005-02-22
- 打赏
- 举报
连接对象的State属性
hidejay 2005-02-22
- 打赏
- 举报
-_-b
haoztao 2005-02-22
- 打赏
- 举报
强！你给网线把了。。。。
原则上判断一下con.state就行啦
原则上判断一下con.state就行啦
sunchangzhan 2005-02-22
- 打赏
- 举报
我试验了，当我把网线拔下来的时候好像不好用。而且还会死机。
点点星灯 2005-02-22
- 打赏
- 举报
m_conn.State的.State属性,就可以判断了!!!
一共有6中状态!!
一共有6中状态!!
hamadou 2005-02-22
- 打赏
- 举报
If SqlCon.State = ConnectionState.Broken Then
