| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 495 人关注过本帖
标题:[求助]如何做修改用户的密码??
只看楼主 加入收藏
liuxiao11111
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-5-6
收藏
 问题点数:0 回复次数:4 
[求助]如何做修改用户的密码??

谁能给我发一个用户登录和修改登录用户密码的成品(用VB做的),基本的源代码也可以。谢谢各位朋友了
我的邮箱 liuxiao11111@163.com

搜索更多相关主题的帖子: 密码 用户 
2006-05-06 19:23
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
你应该自己做...不懂的再来问...你不懂是因为哪方面不会呢?...叫人帮你做是不可能的..也是没有用的.

我的msn: myfend@
2006-05-06 19:42
liuxiao11111
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-5-6
收藏
得分:0 
Private Sub cmdOK_Click()
Dim r As New ADODB.Recordset
Set r = DataEnv.rsadmin
Dim strSQL As String
On Error Resume Next
If r.State = adStateOpen Then r.Close
If Trim(txtnew.Text) <> Trim(txtnewqr.Text) Then
MsgBox "密码不一致!", vbOKOnly + vbExclamation, ""
txtnew.SetFocus
txtnew.Text = ""
txtnewqr.Text = ""
Else
strSQL = "select * from 系统管理表 where 用户名='" & user& "'"
r.Open strSQL, strConn, adOpenKeyset, adLockPessimistic
r.Fields(1) = txtnew.Text
r.Update
r.Close
MsgBox "密码修改成功!", vbOKOnly + vbExclamation, "提示!"
Unload Me
End If
End Sub

大家帮我看看哪个地方有问题?系统运行时 虽然提示密码修改成功 但是数据库仍然没有变更

[此贴子已经被作者于2006-5-6 19:55:00编辑过]

2006-05-06 19:50
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 

下面是我的代码..调试成功..

Option Explicit
Dim iConn As ADODB.Connection
Dim iRs As ADODB.Recordset

Private Sub Command1_Click()
Set iRs = New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM user_info WHERE user_name='" & Text1.Text & "'"
iRs.Open strSQL, iConn, adOpenKeyset, adLockPessimistic, adCmdText
If iRs.RecordCount > 0 Then
iRs.Fields("user_psd") = Text2.Text
iRs.Update
MsgBox "修改成功"
iRs.Close
Else
MsgBox "没有找到此用户"
iRs.Close
Exit Sub
End If
End Sub

Private Sub Form_Load()
Dim ConnStr As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\psd.mdb"
Set iConn = New ADODB.Connection
iConn.Open ConnStr
End Sub

Private Sub Form_Unload(Cancel As Integer)
iConn.Close
Set iRs = Nothing
Set iConn = Nothing
End Sub


我的msn: myfend@
2006-05-06 20:22
liuxiao11111
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-5-6
收藏
得分:0 

谢谢你

2006-05-06 20:25
快速回复:[求助]如何做修改用户的密码??
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033475 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved