如何对数据库中的用户和密码进行校验.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 12 行

假 定 你 把 用 户 名 和 密 码 保 存 在 数 据 库 中 的 UserInfo表 中 ， 使 用 ： 
    Dim rd As Recordset 
    Set rd = Data1.Database.OpenRecordSet(" SELECT * FROM UserInfo") 
    rd.FindFirst "User = '" + sUser + "'" 
    If rd.NoMatch Then 
     MsgBox "没 有 这 个 用 户 ！ " 
    ElseIf rd("Password") = sPassword Then 
     MsgBox "欢 迎 ！ " 
    Else 
     MsgBox "密 码 错 误 ！ " 
    End If 
<END>