vb ADO控件连接ACCESS数据库做登录密码的例子
2009-07-31 08:47
591 查看
'准备好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
'在[工程]菜单下选择[部件];在弹出的窗口内勾选[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
相关文章推荐
- 用VB生成DLL封装ASP代码一个例子:连接access数据库等
- Delphi中用ADO控件连接数据库例子
- ADO方式连接带有密码的Access数据库文件(VC、Delphi)
- Delphi中用ADO控件连接数据库例子
- 如何使用ADO连接带密码的ACCESS数据库
- Delphi中用ADO控件连接数据库例子
- 当程序用ado的jet4.0方式连接的时候,对于设有access数据库密码的mdb的访问居然报错“无法启动应用程序,工作组信息文件丢失,或是已被其他用户已独占方式打开”,而用odbc方式不报错,小阴沟里翻船,郁闷中然后查文档解决之
- ADO连接带密码的Access数据库
- 当程序用ado的jet4.0方式连接的时候,对于设有access数据库密码的mdb的访问居然报错“无法启动应用程序,工作组信息文件丢失,或是已被其他用户已独占方式打开”,而用odbc方式不报错,小阴沟里翻船,郁闷中然后查文档解决之
- 用VB生成DLL封装ASP代码一个例子:连接access数据库等
- 当程序用ado的jet4.0方式连接的时候,对于设有access数据库密码的mdb的访问居然报错“无法启动应用程序,工作组信息文件丢失,或是已被其他用户已独占方式打开”,而用odbc方式不报错,小阴沟里翻船,郁闷中然后查文档解决之
- SharedPreference控件实现记住密码,自动登录例子
- Mysql5.7.10版本安装后空密码登录,退出后提示密码错误连接不上解决
- ADO连接用户级加密的ACCESS数据库
- 连接带密码的ACCESS数据库
- (VB报表)未能用指定的连接串 "连接字段" 连接到数据源,连接串中的用户名与密码已隐藏
- 转:VB用ADO连接SQLServer数据库
- VB连接access数据库
- vb使用ADO连接SQL Server
- VC连接ADO方式ACCESS数据库在WIN7下编译到XP下不能运行解决方法