Question

做一个vb程序，用户名必须是数据库中的才能进入，若用户名与密码不相匹配，输入错误三次程序自动退出的

做一个vb程序，用户名必须是数据库中的才能进入，若用户名与密码不相匹配，输入错误三次程序自动退出的代码怎么输？求助各位大神。。。

Answer 1

数据库怎么连接就不写了，我给你基本的代码

追问

那好啊，发过来吧

追答

Dim userinput, passinput, userdb, passdb As String
Dim errCount As Integer
Private Sub Form_Load()
errCount = 0
End Sub
Private Sub Command1_Click()
    userinput = txtUser.Text ' 用户输入的用户名
    passinput = txtPass.Text ' 用户输入的密码
    
    If userinput = userdb And passinput = passdb Then ' userdb: 数据库中的用户名  passinput: 数据库中的密码
        MsgBox "Login Successful"
    Else
        errCount = errCount + 1
        MsgBox "Login Unsuccessful"
        If errCount >= 3 Then
            End
        End If
    End If
End If

 至于你怎么连接数据库获取正确的用户名和密码，可以参考网上的教程。

求采纳！！