当前位置: 网学 > 编程文档 > VB > 正文

VB中的ADO数据对象编程详解

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式
= 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对象的简单知识与基本用法,并赋上我的一点经验供大家参考。
  • 上一篇资讯: VB中用ADO操作数据库
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号