Sub enter_click(ByVal sender As Object, ByVal e As EventArgs)
Dim conn As New SqlConnection("server=localhost;database=education;uid=sa;pwd=")
Dim password As String
Dim strsql As String
strsql = "select password from * login where userid= " & userid.Text & " and email='" & email.Text & "'"
Dim cmd As New SqlCommand(strsql, conn)
conn.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader()
If dr.Read = True Then
lblpwd.Text =dr.Read [ " password " ].ToString()
conn.Close()
Else
lblpwd.Text = "你的帐号或密码错误"
End If
End Sub红色的那句话是错的.要怎么改,知道的回答下,谢了!
Dim conn As New SqlConnection("server=localhost;database=education;uid=sa;pwd=")
Dim password As String
Dim strsql As String
strsql = "select password from * login where userid= " & userid.Text & " and email='" & email.Text & "'"
Dim cmd As New SqlCommand(strsql, conn)
conn.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader()
If dr.Read = True Then
lblpwd.Text =dr.Read [ " password " ].ToString()
conn.Close()
Else
lblpwd.Text = "你的帐号或密码错误"
End If
End Sub红色的那句话是错的.要怎么改,知道的回答下,谢了!
检查密码
@2
userid.text返回的是一个字符串,
检查下与数据库userid类型是否匹配