一段添加数据库记录的程序

jjs008 2004-04-29 05:37:25
我做了一个注册新用户的窗体,按CmdSure把输入的内容提交,我用data控件连接数据库,下面是一段程序:
Private Sub CmdSure_Click()
Dim rsuseradd As New ADODB.Recordset
rsuseradd.Open "select * from useradd", fCnn, adOpenStatic, adLockOptimistic
rsuseradd.AddNew
rsuseradd("username") = Trim(TxtName.Text)
rsuseradd("userposition") = Trim(ComPosition.Text)
rsuseradd("section") = Trim(ComSection.Text)
rsuseradd("idnum") = Val(TxtId.Text)
rsuseradd("usernote") = Trim(TxtNote.Text)
If TxtPassword1.Text = TxtPassword2.Text Then
rsuseradd("password") = Trim(TxtPassword1.Text)
Else
MsgBox "ÊäÈëÃÜÂëÓë֮ǰ²»Ò»Ö£¬ÇëÔÙ´ÎÊäÈë", vbExclamation, "È·¶¨"
TxtPassword1.SetFocus
rsuseradd.Update
rsuseradd.Close
End If
End Sub
运行后出现:参数不正确,或不在范围内或与其它参数冲突,怎么回事?
...全文
19 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
jjs008 2004-04-29
全部程序是这样的:(上面的程序输入有误)
Private Sub CmdSure_Click()
Dim rsuseradd As New ADODB.Recordset
rsuseradd.Open "select * from useradd", fCnn, adOpenStatic, adLockOptimistic
rsuseradd.AddNew

rsuseradd("username") = Trim(TxtName.Text)
rsuseradd("userposition") = Trim(ComPosition.Text)
rsuseradd("section") = Trim(ComSection.Text)
rsuseradd("idnum") = Val(TxtId.Text)
rsuseradd("usernote") = Trim(TxtNote.Text)

If TxtPassword1.Text = TxtPassword2.Text Then
rsuseradd("password") = Trim(TxtPassword1.Text)
Else
MsgBox “输入密码与之前不一致,请再次输入”,vbclamation“确定”
TxtPassword1.SetFocus
End If
rsuseradd.Update
rsuseradd.Close
  • 打赏
  • 举报
回复
lfshf 2004-04-29
你的程序没有用缩进、格式化,看起来真是辛苦!
  • 打赏
  • 举报
回复
jjs008 2004-04-29
全部程序是这样的:(上面的程序输入有误)
Private Sub CmdSure_Click()
Dim rsuseradd As New ADODB.Recordset
rsuseradd.Open "select * from useradd", fCnn, adOpenStatic, adLockOptimistic
rsuseradd.AddNew
rsuseradd("username") = Trim(TxtName.Text)
rsuseradd("userposition") = Trim(ComPosition.Text)
rsuseradd("section") = Trim(ComSection.Text)
rsuseradd("idnum") = Val(TxtId.Text)
rsuseradd("usernote") = Trim(TxtNote.Text)
If TxtPassword1.Text = TxtPassword2.Text Then
rsuseradd("password") = Trim(TxtPassword1.Text)
Else
MsgBox “输入密码与之前不一致,请再次输入”,vbclamation“确定”
TxtPassword1.SetFocus
rsuseradd.Update
rsuseradd.Close
End If

怎么更正程序??
  • 打赏
  • 举报
回复
jjs008 2004-04-29
哦,MsgBox后面的句子是中文“输入密码与之前不一致,请再次输入”,vbclamation“确定”
  • 打赏
  • 举报
回复
相关推荐
发帖
VB基础类
加入

7548

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-04-29 05:37
社区公告
暂无公告