1,216
社区成员
发帖
与我相关
我的任务
分享如何判断数据库是否连接成功？
Dim cnn As New ADODB.Connection
Dim cust As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" + _
dd+ "\dipanhao2.mdb';Persist Security Info=False"
如何判断cnn是否连接成功？
Dim cust As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" + _
dd+ "\dipanhao2.mdb';Persist Security Info=False"
如何判断cnn是否连接成功？
...全文
请发表友善的回复…
发表回复
viena 2003-09-13
- 打赏
- 举报
on error resume next
if cnn.state=AdStateOpen then msgbox "连接成功"
if cnn.state=AdStateOpen then msgbox "连接成功"
flc 2003-09-13
- 打赏
- 举报
up
lisen101 2003-09-13
- 打赏
- 举报
这个是我编的用来判断 ADO或是DAO是否联结成功的！VB6+Win2000没问题！
Function Check_DB_Opened(ByVal s_db) As Boolean '借助出错事件检查数据库是否打开
On Error GoTo err_checkdb
If Not IsNull(s_db.Version) Then
Check_DB_Opened = True
End If
Exit Function
err_checkdb:
If Err.Number = 424 Or Err.Number = 91 Then
Err.Clear
Check_DB_Opened = False
End If
End Function
Function Check_DB_Opened(ByVal s_db) As Boolean '借助出错事件检查数据库是否打开
On Error GoTo err_checkdb
If Not IsNull(s_db.Version) Then
Check_DB_Opened = True
End If
Exit Function
err_checkdb:
If Err.Number = 424 Or Err.Number = 91 Then
Err.Clear
Check_DB_Opened = False
End If
End Function
Ranma_True 2003-09-13
- 打赏
- 举报
if cnn.state=1 then
debug.print "Sucess!"
end if
debug.print "Sucess!"
end if
lucyuan 2003-09-13
- 打赏
- 举报
关注
