UC知道VB如何查找Access中指定数据？
来源：百度知道 编辑：UC知道 时间：2024/05/01 20:26:29
我的VB工程和Access数据库存放在D:\vb\login\
数据库名称：login.mdb。用户信息表名称：users
字段名称：userid,
我准备做一个登陆界面，
Form上有Txtid,Txtpw,Cmdok,
我想问的是，假设在Txtid中输入一个帐号，然后单击Cmdok。
在Cmdok单击事件里，
如何确认Txtid中的字符串（帐号）存在于数据库中
并在Txtpw中显示相对应的字符串（密码）？
刚搜了很多代码都不太好用。
因本人初学VB编程又不懂SQL语言，
请各位大大写的稍微简单一点。谢谢了
数据库名称：login.mdb。用户信息表名称：users
字段名称：userid,
我准备做一个登陆界面，
Form上有Txtid,Txtpw,Cmdok,
我想问的是，假设在Txtid中输入一个帐号，然后单击Cmdok。
在Cmdok单击事件里，
如何确认Txtid中的字符串（帐号）存在于数据库中
并在Txtpw中显示相对应的字符串（密码）？
刚搜了很多代码都不太好用。
因本人初学VB编程又不懂SQL语言，
请各位大大写的稍微简单一点。谢谢了
在窗体上放一个adodc控件，用来连接数据库，放一个label控件，用来显示信息，也可以用adodb对象来连接数据库，代码类似的。
Private Sub Cmdok_Click()
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If Txtid = Adodc1.Recordset.Fields("userid") Then
If Txtpw = Format(Adodc1.Recordset.Fields("密码")) Then
Form2.Show
Unload Me
Exit Sub
Else
Beep
Label3 = "密码错误!"
Txtpw.SetFocus
Exit Sub
End If
End If
Adodc1.Recordset.MoveNext
Loop
Label3 = "用户名不存在,请重新输入!"
Txtid.SetFocus
End Sub
Private Sub Form_Load()
'连接数据库代码
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & App.Path & "\login.mdb;Jet OleDb:DataBase Password="
Adodc1.RecordSource = "select * from users"
Adodc1.Refresh
End