下面是我编写的一个小程序中的用户登陆部分,用到了错误处理
On Error GoTo ErrorHandler
Set Conn = New ADODB.Connection
Conn.Provider = "Microsoft.Jet.OLEDB.3.51"
Conn.Open "d:\毕业设计\试题库.mdb" '
mySql = "select user_pwd from 用户信息 where user_name='" & txtusername.Text + "'"
Set rsUserInform = Conn.Execute(mySql)
While Not rsUserInform.EOF
If txtpassword.Text = Trim(rsUserInform("user_Pwd")) Then
Me.Hide
main.Show
Exit Sub
End If
rsUserInform.MoveNext
Wend
MsgBox "用户名不存在,请重新输入用户名称!", 48, "错误"
rsUserInform.Close
Conn.Close
Set Conn = Nothing
End If
Set oConn = New Connection
oConn.ConnectionString = "driver={SQL Server};......" '自己写连接
oConn.Open
oConn.BeginTrans
Set oRs = New Recordset
Set oRs.ActiveConnection = oConn
oRs.Source = [SQL语句]
oRs.CursorType = adOpenStatic
oRs.LockType = adLockOptimistic
oRs.Open
.....
If Err.Number = 0 Then
oConn.CommitTrans
oRs.Close
oConn.Close
flag = True
ErrorDesc = ""
Else
oConn.RollbackTrans
oRs.Close
oConn.Close
flag = False
ErrorDesc = Err.Description
End If
Exit Sub
AddNewExError:
flag = False
ErrorDesc = Err.Description