vb连接数据库（20不够加分）

来源：百度知道 编辑：UC知道 时间：2024/05/04 22:43:46
一个很简单的问题，就是后台有一个管理员表，包含用户名和密码，功能很简单，输入用户名和密码，对了就登陆，错了就弹出“密码错！”
请从部件和引用开始说起，一种方法50分！因为我还要靠这个解决其他表的连接问题@
你搞的什么东西啊,我以运行就说什么vb遇到问题需要关闭,什么发送不发送,我晕

分值太低了,这不用说肯定得加分
直接在新建工程中选择数据工程
建立两个label 两个text

Private Sub Command1_Click()
Set sqluser = authen.Execute("select * from userdate where user ='" & username.Text & "' ")
Set sqlpass = authen.Execute("select * from userdate where pass ='" & password.Text & "' ")

If username = "" And password = "" Then

username.SetFocus
MsgBox "用户名和密码不能为空，请重新输入", vbOKOnly, "错误"

ElseIf username = "" Then

username.SetFocus
MsgBox "用户名不能为空，请输入用户名", vbOKOnly, "错误"

ElseIf password = "" Then

password.SetFocus
MsgBox "密码错误，请重新输入", vbOKOnly, "错误"

ElseIf sqluser.EOF And sqlpass.EOF Then

username.SetFocus