vb与mysql实现登录界面_VB连接SQL数据库做用户登录窗口

我要做一个VB+SQL的图书管理系统,但是在用户登录窗口处被卡住了,求各位大虾们帮帮忙!界面上只用输入用户名和密码,数据库是tsglxt_Data,表名为user,表中用户名是userName,密码是passwo...

我要做一个VB+SQL的图书管理系统,但是在用户登录窗口处被卡住了,求各位大虾们帮帮忙!

界面上只用输入用户名和密码,数据库是tsglxt_Data,表名为user,表中用户名是userName,密码是password,窗口中输入用户名和密码的是两个文本框,分别命名为txtname和txtpsd.运行时要求是输入用户名和密码,然后检查数据库中是否有此用户名,再验证密码是否正确,正确则frmMain显示,只有三次登录机会!

帮我写写这一部分的代码,最好要有注释!

请大侠们帮帮忙,急用啊,采用后追加分!感激不尽!

Dim conn As New ADODB.Connection

Dim RS As ADODB.Recordset

Dim SQlstr As String

conn.Open "Provider=SQLOLEDB.1;Data Source=" & App.Path & "\data\tsjyxt_Data.mdf;Persist Security Info=False"

SQlstr = "select * from user where userName='" & txtname.Text & "'"

RS.Open SQlstr, conn, adOpenKeyset, adLockPessimistic

If RS.EOF = True Then

MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""

txtname.SetFocus

Else '检验密码是否正确

If Trim(RS.Fields("password")) = Trim(txtpsd.Text) Then

Unload Me

frmMain.Show

Else

MsgBox "密码不正确", vbOKOnly + vbExclamation, ""

txtpsd.SetFocus

End If

End If

展开