用VB6.0做了一个登录的界面，用户名以及密码是存在数据库中的，
想要实现，每次登录时，会判断数据库中有无该信息，在执行登录，
写了一些代码，好像有问题，实现不了，请教各位大神，

Private Sub Image1_Click()


If Form1.Text1.Text <> "" And Form1.Text2.Text <> "" Then

Dim conn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset

conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Aging.mdb " 'a.mdb是ACCESS数据库保存在程序目录下

rs1.Open "select 用户 from 注册", conn1, adOpenDynamic, adLockOptimistic, adCmdText



If rs1!用户 = Trim(Text1.Text) Then



Form3.Show

Form1.Hide


rs1.Close
conn1.Close

End If
End If


If Form1.Text1.Text = "" Or Text2.Text = "" Then

Form1.Image3.Visible = True

End If
[local]1[/local]




End Sub

虚心请教/

Private Sub Command1_Click()
If LKA >= 3 Then   'LKA变量是模块级变量，是  Integer 数据类型
   MsgBox "你已经登录了三次均不成功，不能继续登录了!", 16, "登录超次！"
   End
End If
If Text1.Text = "" Then
   MsgBox "用户名不能为空,请重新输入!", 16, "提示"
   Exit Sub
End If
If Text2.Text = "" Then
   MsgBox "密码不能为空,请重新输入!", 16, "提示"
   Exit Sub
End If
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Aging.mdb "
RS.Open "Select * From 注册 Where 用户='" & Text1.Text & "'", cn, 2, 3 
    If Not RS.EOF Then
        If RS!密码 = Text2.Text Then
            MsgBox "登录成功！", 64, "已经登录！"
            RS.Close
            Set RS = Nothing
            cn.Close
            Set cn = Nothing
            Unload Me
            Form3.Show
            Exit Sub
        Else
            MsgBox "密码错误！", 16, "错误！"
            Text2.Text = ""
            Text2.SetFocus
            LKA = LKA + 1
        End If
    Else
        MsgBox "用户名错误！", 16, "错误！"
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
        LKA = LKA + 1
    End If
RS.Close
Set RS = Nothing
cn.Close
Set cn = Nothing
End Sub

给你一段代码，供你参考，典型的VB60登录代码。

收到的鲜花

• wangyiaihu 于 2020-04-23 09:57 送鲜花  1朵   附言：大神！

整个复制过来了，完美。。。
感谢！
最近在做一个记录查看修改功能的软件，还请多指教，谢谢。。。

另外，如果是要查询   用户=text1.text 密码=text2.text   这种双重条件的，

rs.Open "Select * From 注册 Where 用户='" & Text1.Text & "'", and 密码='" & Text2.Text & "'",cn, 2, 3
这句该怎么写啊？上面代码写的格式好像不对，请指教。

[此贴子已经被作者于2020-4-23 10:16编辑过]

rs.Open "Select * From 注册 Where 用户='" & Text1.Text & "' and 密码='" & Text2.Text & "'", cn, 2, 3


这样的语法对ma?

rs.Open "Select * From 注册 Where 用户='" & Text1.Text & "' and 密码='" & Text2.Text & "'", cn, 2, 3   中间不能有逗号，只有单引号与双引号
这个如果仅仅是查询是对的，最后面的 2，3 也可以是 2，1、2，2，查询都没有问题，但新增与修改就不行了。

感谢，已在您的指导下，搞定，谢谢，

刚刚又发了一个问题，能帮忙在看看吗。

学习了！！！