扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
![]() |
Connection对象.Open ConnectionString, UserID, PassWord, OpenOptions |
Recordset.Open Source, ActiveConnection, CursorType, LockType, Options |
Set recordset=Connection.Execute(CommandText,RecordsAffected,Options) |
Recordset.Delete AffectRecords |
Command.Execute RecordsAffected, Parameters, Options '不返回记录集 或者 Set Rscordset=cmmnad.Execute(RecordsAffected,Parameters,Options) '返回记录集 |
Command.CommandText=stringvariable |
Object.Close ' Object为ADO对象 |
Dim ZhuCe As ADODB.Connection ' ZhuCe为连接对象 Dim rstZhuCe As ADODB.Recordset 'rstZhuCe为记录集对象 Dim cmmZhuCe As ADODB.Command 'cmmZhuCe为命令对象 |
Set ZhuCe = New ADODB.Connection '设置连接对象实例 ZhuCe.CursorLocation = adUseClient '打开数据源连接 ZhuCe.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=App.Path\注册.mdb" '设置记录集对象实例 Set rstZhuCe = New ADODB.Recordset Set rstZhuCe.ActiveConnection = 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 |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。