UC知道求大家帮帮忙，看看我用VB.NET写的登录出了什么问题
来源：百度知道 编辑：UC知道 时间：2024/06/02 20:56:24
Public Class Form1
Function check(ByVal txb1 As String, ByVal txb2 As String)
If txb1 Is Nothing Then
MessageBox.Show("请输入用户名")
ElseIf txb2 Is Nothing Then
MessageBox.Show("请输入密码")
End If
If txb1 <> TextBox1.Text Then
MessageBox.Show("用户不存在")
ElseIf txb2 <> TextBox2.Text Then
MessageBox.Show("密码不正确")
ElseIf txb1 = TextBox1.Text And txb2 = TextBox2.Text Then
MessageBox.Show("密码正确")
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As SqlClient.SqlConnection
Dim checkname, checkpass As String
Dim comm As SqlClient.SqlCommand
conn = New SqlClient.SqlConnection("Server=.;" & "Database=pubs; " & "Integrated Security=SSPI ")
comm = New SqlClient.SqlCommand
conn.Open()
Function check(ByVal txb1 As String, ByVal txb2 As String)
If txb1 Is Nothing Then
MessageBox.Show("请输入用户名")
ElseIf txb2 Is Nothing Then
MessageBox.Show("请输入密码")
End If
If txb1 <> TextBox1.Text Then
MessageBox.Show("用户不存在")
ElseIf txb2 <> TextBox2.Text Then
MessageBox.Show("密码不正确")
ElseIf txb1 = TextBox1.Text And txb2 = TextBox2.Text Then
MessageBox.Show("密码正确")
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As SqlClient.SqlConnection
Dim checkname, checkpass As String
Dim comm As SqlClient.SqlCommand
conn = New SqlClient.SqlConnection("Server=.;" & "Database=pubs; " & "Integrated Security=SSPI ")
comm = New SqlClient.SqlCommand
conn.Open()
我判断不出来是那里出错了~~但既然是提示：用户不存在！肯定就是用户名那里出错！！！
第一：你看你的数据：checkname = "select name from admin where name='" & TextBox1.Text & "'" 有没有出错！
二：看你的函数里面判断的有没有出错！
其实你可以用简单一点的办法：定义记录集rs，然后rs=select *from admin where name='" &textbox1.text& "' and pass='" &textbox2.text& "'
然后判断:if rs.eof then
messagebox.show("用户名或密码不正确！")
这样就OK了！你试试啊！