vb 登入窗口怎么验证密码 279641373 在线等

来源：百度知道 编辑：UC知道 时间：2024/05/05 11:49:48
有一个数据库名为cs.mdb表是cs
还有一个登入窗口
一个文本输入框,和一个按扭
我现在想怎么在文本输入框输入的文本与数据库表CS里的密码字段进行验证
如果有则可以执行代码,没有侧提示重新输入
可是怎么表达你不能说清楚一点吗
if text1.text=数据库这边怎么写then
......

你把密码取出来和输入的对比一下就好了
如果相等就继续执行程序,不相等就提示退出过程或者函数

建一个窗体,放combo1,text1,command1,数据库cs和工程放同一目录,表cs(字段:姓名,密码,假设姓名为主键为了不重复)
简单的说下吧(工程引用microsoft activex data...):
'按要求放好控件，直接把下面代码复制到窗体里就行了

Dim cn As New ADODB.Connection
Dim rsUser As New ADODB.Recordset
Dim strSql As String

Private Sub Command1_Click()
On Error GoTo ErrFlag
strSql = "select top 1 密码 from cs where 姓名='" & Combo1.Text & "'"
If rsUser.State = adStateOpen Then rsUser.Close
rsUser.Open strSql, cn, adOpenStatic, adLockOptimistic
If rsUser.RecordCount > 0 Then
If Trim(rsUser!密码) <> Trim(Text1.Text) Then
MsgBox "密码错误", vbInformation, "提示"
Set rsUser = Nothing
Exit Sub
End If
Else
MsgBox "无此用户", vbInformation, "提示"
Set rsUser = Nothing