Foxtable(狐表)用户栏目专家坐堂 → 请教:自定义用户管理,一直提示密码错误,无法登录


  共有6869人关注过本帖树形打印复制链接

主题:请教:自定义用户管理,一直提示密码错误,无法登录

帅哥哟,离线,有人找我吗?
kevin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:359 积分:3403 威望:0 精华:0 注册:2011/8/2 20:53:00
请教:自定义用户管理,一直提示密码错误,无法登录  发帖心情 Post By:2013/3/15 2:06:00 [显示全部帖子]

我使用SQL2005为数据库.数据源名称"sys",用户用名称:"Users"
增加用户,删除用户,更改用户均正常
以下代码是用户登录窗口的"确定"按钮中的代码.我是按照例子中照样做的,不知道会不会是SQL数据库有其它什么需要注意的没有.
Dim UserName As String = e.Form.Controls("UserName").Value
Dim
cmd As New SQLCommand
Dim
dt As DataTable
Dim
dr As DataRow
cmd
.ConnectionName = "sys" '数据源名称
If
UserName = "" Then
Messagebox.show("
请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return

End
If
cmd
.CommandText = "Select * From {Users} Where [Name] = '" & UserName & "'"
dt
= cmd.ExecuteReader
If
dt.DataRows.Count = 0 Then
Messagebox.show("
此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return

End
If
dr
= dt.DataRows(0)
If
e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
_UserGroup = dr("Group")
e.Form.Close
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

以上代码,一直提示密码错误,请高手帮忙看一下代码.

 回到顶部
帅哥哟,离线,有人找我吗?
kevin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:359 积分:3403 威望:0 精华:0 注册:2011/8/2 20:53:00
  发帖心情 Post By:2013/3/15 10:33:00 [显示全部帖子]

我验证了密码,是 对的,但就是一直提示错误,麻烦你了,帮我看看, 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:请教.zip


[此贴子已经被作者于2013-3-15 10:36:15编辑过]

 回到顶部