SQL错误扑捉

Question

SQL错误扑捉

Answer 1

错误捕捉只能捉到错误信息内容
具体的错误行的内容的话比较难
起码我还不知道只能你自己看看具体的错误代码，然后进行对应的处理，然后再 Resume

Answer 2

Sub test()
    On Error GoTo UserErr
    Dim ErrInfo As String
    ErrInfo = "open err" ''标记错误信息
    Sql = "SELECT * From Table1"
    rs1.Open strsql, Cnn, adOpenKeyset, adLockOptimistic
    For i = 1 To 100
        rs1.AddNew
        ErrInfo = Text4(i).Text ''储存将要添加的信息
        rs1.Fields("id") = Text4(i).Text
        rs1.Update
    Next i
    rs1.Close
    Cnn.Close
    Exit Sub
UserErr:
    lErrNumber = Err.Number
    ''ErrInfo这里有添加会导致错误的内容
    strErrDesc = Trim(Err.Description) & vbCrLf & ErrInfo
    ''错误日志记录
    ''...
End Sub