登陆代码问题！！
这是我的登录界面中 确定中的代码 可是输入了和数据库对应的密码 却显示密码错误
求高手详解
Dim strSQL As String
Dim cn As New SqlClient.SqlConnection
Dim rs As New DataSet
cn.ConnectionString = "server=COMPUTER;Database=NEW;uid=sa;Password=; "
cn.Open()
strSQL = "select 密码 from 登录 where 用户名= ' " & 用户登录_Renamed.Text & " ' "
Dim da As New SqlClient.SqlDataAdapter(strSQL, cn)
Dim count As Int32 = da.Fill(rs)
If count = 0 Then
MsgBox( "用户名不正确 ")
Else
If rs.Tables(0).Rows(0).Item(0).ToString = Text1.Text Then
MsgBox( "登录成功 ")
Else
MsgBox( "密码错误 ")
End If
End If
[解决办法]
完全登录正常...
[解决办法]
您可以用
MsgBox(rs.Tables(0).Rows(0).Item(0).ToString)
查看一下取到的是不是您要的内容。
[解决办法]
If count = 0 Then
MsgBox( "用户名不正确 ")
Else
If rs.Tables(0).Rows(0).Item(0).ToString.Trim() = Text1.Text Then
MsgBox( "登录成功 ")
Else
MsgBox( "密码错误 ")
End If
End If
