vb+sqlserver 2000做登录问题（急）

来源：百度知道 编辑：UC知道 时间：2024/05/29 19:49:07
建立数据库并建立表oper（用户名、密码、级别三个字段），代码如下：
Private Sub Cmdok_Click()
If Trim(Text1.Text = "") Then
MsgBox "用户名不能为空！请输入用户名！", vbOKOnly + vbExclamation, "警告！"
Text1.SetFocus
Exit Sub
End If
rs.MoveFirst
rs.Find "用户名='" & Text1.Text & "'"
If rs.EOF Then
MsgBox "该用户名不存在！", vbOKOnly + vbExclamation
Text1.SetFocus
Exit Sub
Else

If rs.Fields("密码").Value = Text2.Text Then
MsgBox "您已经成功登录，欢迎使用本系统!", vbOKOnly, "提示"
Else
If num < 2 Then
num = num + 1
MsgBox "密码不对，请重新输入！您还有" & Str(3 - num) & "次机会。""", vbOKOnly + vbExclamation
Text2.SetFocus
Exit Sub

End Sub

Private Sub Form_Load()
Set conn = New ADODB.Connection
'采用的是无源的数据库连接方法
conn.ConnectionString = "Driver={sql server};server=loca

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = String.Empty Then
MsgBox("请输入用户名")

End If
If TextBox2.Text = String.Empty Then
MsgBox("请输入密码")
End If
Dim sql As String
Dim drReader As SqlDataReader

sql = "Select * from admini where adminame='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'"
drReader = dataconn.ExecuteSqlDataReader(sql)
If drReader.Read() Then
msgbox("登录成功")
me.hide()
dim a as new form1()
a.show()
Else
MsgBox("用户名或密码错误")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Foc