Select * from User where UserID=UserTest??这句话是什么意思?你将commandtext属性设为 "select * from User where UserID='" + Account.text + "'" 或 "select * from User where UserID='" + UserText + "'"
以下是我的代码,不过显示“登录失败”,其中Cmd.Text="SELECT * FROM [User] WHERE (UserID = @UserID) AND (Password = @Password)"Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click If verify(Account.Text, Password.Text) Then Server.Transfer("main.aspx") Else Message.Text = "Error" End If End Sub Function verify(ByVal UserID As String, ByVal Password As String) As Boolean UserID = Account.Text Password = Password.Text Dim Rd As System.Data.SqlClient.SqlDataReader Conn.Open() Rd = Cmd.ExecuteReader If Rd.Read Then Conn.Close() Return True Else Conn.Close() Message.Text = "Error" Return False End If End Function
"select * from User where UserID='" + Account.text + "'"
或
"select * from User where UserID='" + UserText + "'"
FROM [User]
WHERE (UserID = @UserID) AND (Password = @Password)"Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click
If verify(Account.Text, Password.Text) Then
Server.Transfer("main.aspx")
Else
Message.Text = "Error"
End If End Sub
Function verify(ByVal UserID As String, ByVal Password As String) As Boolean
UserID = Account.Text
Password = Password.Text
Dim Rd As System.Data.SqlClient.SqlDataReader
Conn.Open()
Rd = Cmd.ExecuteReader
If Rd.Read Then
Conn.Close()
Return True
Else
Conn.Close()
Message.Text = "Error"
Return False End If End Function