vb ADO控件连接ACCESS数据库做登录密码的例子
来源:互联网 发布:流程图软件有哪些 编辑:程序博客网 时间:2024/06/05 00:57
'准备好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
- vb ADO控件连接ACCESS数据库做登录密码的例子
- ADO连接带密码的Access数据库
- 如何使用ADO连接带密码的ACCESS数据库
- ado连接有密码的access
- ado 连接带密码的access
- Delphi中用ADO控件连接数据库例子
- Delphi中用ADO控件连接数据库例子
- ADO连接Access数据库
- ADO连接ACCESS数据库
- ADO连接access数据库
- ADO连接ACCESS数据库
- VB ADO 连接数据库
- VB 删除 ACCESS 数据库的密码
- Access数据库的连接(ADO.NET)
- ADO连接ACCESS数据库的步骤
- 数据库的ADO连接(VB)
- VB连接ACCESS数据库
- VB连接access数据库
- 规划的寓言:把一张纸折叠51次
- 程序员到CTO还需要大补什么营养
- Perl处理Unix命令输出
- ORACLE纯SQL实现多行合并一行
- join on 用法
- vb ADO控件连接ACCESS数据库做登录密码的例子
- 全文检索应用の搜索引擎
- SQL事务处理
- maven2 打包内存溢出
- 经典SQL语句大全
- 网页META属性简介
- JAR和jad格式
- 各位帮我看看我的代码为什么不能通过vba向access添加新纪录?
- MSMQc++导入的结构体用c#读出放入结构体(我同事帮我研究出的关键代码)