vb 数据库 查询

来源：百度知道 编辑：UC知道 时间：2024/06/01 14:02:00
我想在vb中设置账户密码（用数据库联接）
但是我却不知道如何对数据库进行账号和密码的查询的代码
又没有高手指导以下，我也只是个初学者。

If Text1.Text = " 账户='" & Text1 & "'" And Text2.Text = " 密码='" & Text2 & "'" Then
Unload Me
Form0.Show
Else
n = n + 1
If n < 3 Then
MsgBox ("密码输入错误，请重新输入")
Text1.Text = ""
Text2.Text = ""
Else
MsgBox ("密码输入错误已超过3次，静止进入")
Command1(0).Enabled = False
End If
End If
以上是我输入对账号密码进行确认的代码，但是却一直没得到想要的结果
希望指点

代码有详细说明最佳，本人对一些代码不是很明白~谢谢
我想说先感谢楼下的朋友，但是我还是不明白你说的东西
因为我学的东西有限

能不能用基础一点的东西再说一下呢？
我没有学sql 啊

用DATA控件连接ACCESS数据库，当然：密码是存放在里面的。在databasename属性里面找好路径！或：
Set rs = New Recordset
Dim sql As String
sql = "select * from k_用户 where 用户名称='@name@' and 密码='@pws@'"
sql = Replace(sql, "@name@", Me.txtUserName.Text)
sql = Replace(sql, "@pws@", Me.txtPassword.Text)

rs.Open sql, db, adOpenStatic, adLockOptimistic

'检查正确的密码
If rs.RecordCount = 1 Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
MsgBox "欢迎" + Me.txtUserName.Text + "登陆系统"
GG_NAME = Me.txtUserName.Text
LoginSucceeded = True
Me.Hide