= ZhuCe
''打来记录集
rstZhuCe.Open "select * from 注册", ZhuCe, adOpenStatic, adLockOptimistic
''设置命令对象实例
Set cmmZhuCe = New ADODB.Command
Set cmmZhuCe.ActiveConnection = ZhuCe
添加新的用户信息(原码)
If TextYongHuMing.Text = "" Or TextMiMa.Text = "" Or _
TextTiShiWenTi.Text = "" Or TextTiShiDaAn.Text = "" Then
MsgBox "笔添信息没有添完,请输入完全", vbOKOnly + vbExclamation, "提示"
Else
If TextJiaoYan.Text = TextMiMa.Text Then
rstZhuCe.MoveLast ''记录集中的移动方法,指针移动到记录集的末尾
rstZhuCe.AddNew ''添加新的记录
rstZhuCe!用户名 = TextYongHuMing.Text
rstZhuCe!密码 = TextMiMa.Text
rstZhuCe!姓名 = TextXingMing.Text
rstZhuCe!昵称 = TextNiCheng.Text
rstZhuCe!联系地址 = TextLianXiDiZhi.Text
rstZhuCe!邮政编码 = TextYouBian.Text
rstZhuCe!OICQ = TextOICQ.Text
rstZhuCe!电子邮件 = TextMail.Text
rstZhuCe!呼机 = TextHuJi.Text
rstZhuCe!手机 = TextShouJi.Text
rstZhuCe!密码提问 = TextTiShiWenTi.Text
rstZhuCe!提问
答案 = TextTiShiDaAn.Text
rstZhuCe!电话号码 = TextDianHua.Text
rstZhuCe.Update ''将上面所有的信息存储到数据库中
MsgBox "注册成功", vbOKOnly + vbInformation, "注册成功"
Else
MsgBox "校验密码与密码不一致,请重新输入", vbOKOnly + vbExclamation, _
"密码错误"
TextMiMa.Text = ""
TextJiaoYan.Text = ""
End If
End If
下面为修改用户密码(在此中我并没用到上面提到的两种方法,但是这种方法也很简单,实际上应该是属于第一种方法.
代码如下:
Dim a As String
Dim b As String
If TextYongHuMing.Text = "" Or TextMiMa.Text = "" Or TextJiaoYanMiMa.Text = "" Or TextXinMiMa.Text = "" Then
MsgBox "修改信息填写不完全,请重新填写!", vbOKOnly + vbInformation, "修改错误"
TextYongHuMing.Text = ""
TextMiMa.Text = ""
TextJiaoYanMiMa.Text = ""
TextXinMiMa.Text = ""
Else
If TextXinMiMa.Text <> TextJiaoYanMiMa.Text Then
MsgBox "校验密码与新密码不一致,请重新填写!", vbOKOnly + vbExclamation, "密码错误"
TextJiaoYanMiMa.Text = ""
TextXinMiMa.Text = ""
End If
a = "select 用户名,密码 from 注册 where 用户名 =''" & _
TextYongHuMing.Text & _
"'' AND 密码 = ''" & _
TextMiMa.Text & "'';"
rstZhuCe.Open a, ZhuCe, adOpenKeyset, adLockOptimistic
rstZhuCe!密码 = TextXinMiMa.Text
MsgBox "密码修改成功,您的新密码是:" & rstZhuCe!密码 & "!", vbOKOnly + vbInformation, "修改成功"
End If
也许你这样看起来的确实有点麻烦,不过你可以去
下载全部
程序,那样看起来比较简单!
下面是用户的删除.
代码如下:
Dim a As String
Dim ok As Integer
Dim i As Integer
rstZhuCe.MoveFirst
For i = 0 To rstZhuCe.RecordCount - 1
If rstZhuCe!用户名 = ComboYongHuMing.Text And rstZhuCe!密码 = TextMiMa.Text Then
ok = MsgBox("你确定真的要将此用户删除吗?", vbOKCancel + vbQuestion, "提示")
If ok = 1 Then
rstZhuCe.Delete adAffectCurrent ''删除所找到的用户
MsgBox "此用户已经成功删除!", vbOKOnly + vbInformation, "删除成功"
End If
End If
rstZhuCe.MoveNext
Next I
好了到此为止,我向大家介绍了一下ADO对象的简单知识与基本用法,并赋上我的一点经验供大家参考。