急!!!!相当好困惑啊,为什么说“对象变量未设置呢?”

各位高手帮忙解决一下,不胜感激!!!

成员数据未定义,mnUserType,但是我在模块中已经定义了,为什么不行啊!!!!!

 

Private Sub cmdAddUser_Click()
On Error GoTo errHandler
Dim strUser As String
Dim strPwd As String
Dim nType As Integer
getUser:
strUser = InputBox("请输入新建用户名称:", "用户名")
If strUser = "" Then Exit Sub
Dim rs As ADODB.Recordset
rs.Open "select*from userlist where 用户名=' " & strUser & "'", gConn, adOpenStatic
If Not rs.EOF Then
MsgBox "该用户名已存在!", vbCritical, "用户名重复"
GoTo getUser
End If
rs.Close
getPwd:
frmPassword.Show vbModal
strPwd = frmPassword.txtPwd(0).Text
Unload frmPassword
If strPwd = "" Then
MsgBox "必须输入密码!", vbCritical, "需要密码"
GoTo getPwd
End If
getType:
frmUserType.Show vbModal
nType = frmUserType.mnUserType
Unload frmUserType
If nType < 0 Then
MsgBox "必须选择用户类型!", vbCritical, "选择用户类型"
GoTo getType
End If
gConn.Execute "insert into userlist(用户名,用户密码,用户类型)values(""&strUser&"",""strPwd&"",""&nType&"")"
Exit Sub
errHandler:
MsgBox Err.Description, vbCritical, "错误"
End Sub

阅读更多
文章标签: insert
想对作者说点什么? 我来说一句

操作系统的课件,老师的

2009年10月20日 2.51MB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭