关于ADO CONNECTION 的open方法

[第48号宇宙]

connection 的open方法如果碰到数据库密码不对是会直接报错的。。

有没有办法另其不报错？。。。因为现在要写一个简单的测试数据库密码安全的小程序。。

要用循环去不停的连数据库以猜解密码，如果现在这样密码不对就报错是不行的

[xiaoxiaoP]

运用ADO的ERROR对象呀，加入错误处理就行

''*/MSDN的范例/*
Description、NativeError、Number、Source 和 SQLState 属性范例
该范例触发错误、捕获它并显示结果中 Error 对象的 Description、HelpContext、HelpFile、NativeError、Number、Source 和 SQLState 属性。

Public Sub DescriptionX()

Dim cnn1 As ADODB.Connection
Dim errLoop As ADODB.Error
Dim strError As String

On Error GoTo ErrorHandler

' 有意触发错误。
Set cnn1 = New ADODB.Connection
cnn1.Open "nothing"

Exit Sub

ErrorHandler:

' 枚举错误集合并显示每个 Error 对象的属性。
For Each errLoop In cnn1.Errors
strError = "Error #" & errLoop.Number & vbCr & _
" " & errLoop.Description & vbCr & _
" (Source: " & errLoop.Source & ")" & vbCr & _
" (SQL State: " & errLoop.SQLState & ")" & vbCr & _
" (NativeError: " & errLoop.NativeError & ")" & vbCr
If errLoop.HelpFile = "" Then
strError = strError & _
" No Help file available" & _
vbCr & vbCr
Else
strError = strError & _
" (HelpFile: " & errLoop.HelpFile & ")" & vbCr & _
" (HelpContext: " & errLoop.HelpContext & ")" & _
vbCr & vbCr
End If


Debug.Print strError
Next

Resume Next

End Sub

[第48号宇宙]

这个方法似乎只能触发一次错误的。。就是用 On Error GoTo ErrorHandler

我的程序里是一个循环里不停的连接数据库，到第2次就仍然报错了。。。

[第48号宇宙]

顶下……

[第48号宇宙]

没人知道？。。。。。。

[dylwx]

On ERROR resume next 可以吗？
下面用if ERR.number>0 then

[第48号宇宙]

楼上的，具体怎么写？。。。。