vb ADO控件连接ACCESS数据库做登录密码的例子

'准备好ACCESS数据库,建一个Uesr_id表,表中建两个字段就可以了。

'在[工程]菜单下选择[部件];在弹出的窗口内勾选[Microsoft ADO Data Control 6.0]然后确定。
'在工具栏中双击Adodc控件,Adodc控件添加到form内,在form内右单击Adodc1选择属性ADODC属性,
'在弹出的窗口中单击[生成],在弹出的窗口中选择Microsoft Jet 4.0 OLE DB Provider,
'单击下一步,在弹出的窗口中单击[...]选择Access数据库所在的路径,单击[确定],然后在属性页
'上单击[记录源],命令类型选择[2-adCmdTable];表或存储过程名称选择[User_id],单击[确定],
'设置Adodc1的Visible属性为False,ADO控件已经设置好了。
'向form内添加两个TextBox分别为text1和text2分别把它们的text属性值设置为空,把text2的
'PasswordChar值设置为*,再向form内添加一个按钮CommandButton,默认为Command1;
'现在所有控件都准备好了,下面编程解决登录问题。


Private Sub Command1_Click()
  Dim U As Boolean, P As Boolean, Ok As Boolean
  With Adodc1
    .Refresh
    Do While Not .Recordset.EOF
      U = .Recordset.Fields(0).Value = Text1.Text '字段0为用户名称
      P = .Recordset.Fields(1).Value = Text2.Text '字段1为用户密码
      If U And P Then
        Ok = True
        Exit Do
      Else
        .Recordset.MoveNext
      End If
    Loop
  End With
 
  If Ok Then
    MsgBox "登录成功"
  Else
    MsgBox "登录失败"
  End If

©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页