修改密码（旧问题）加分继续问
我的程序如下：
用combo1来选择用户名，代码如下：
Private Sub Form_Load()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
txtSQL = "select * from user_Info"
Set mrc = ExecuteSQL(txtSQL, "")
While Not mrc.EOF
Combo1.AddItem mrc.Fields("user_ID")
mrc.MoveNext
Wend
End Sub
点击“修改”，代码如下：
If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then
MsgBox "两次输入的密码不一致，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text1(1).SetFocus
Text1(1).Text = ""
Text1(2).Text = ""
Else
txtSQL = "update user_Info set user_PWD ='" & Trim(Text1(1).Text) & "' where user_ID = " & Trim(Combo1) & "'" /修改密码 text（1）为输入密码的文本框
Set mrc = ExecuteSQL(txtSQL, MsgText)
MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
Unload Me
End If
End Sub
程序运行，输入密码后，显示“修改成功”，但在数据库表中密码并没有修改，所在哪了，请帮我改改。
问题解决立刻给分。
问题点数：30、回复次数：8Top
1 楼Athickhead（穿着三角裤到处跑不叫裸奔）回复于 2005-06-03 17:23:15 得分 3
txtSQL = "update user_Info set user_PWD ='" & Trim(Text1(1).Text) & "' where user_ID = '" & Trim(Combo1) & "'"
在user_ID后少个'Top
2 楼bangbangwo（求教）回复于 2005-06-05 22:14:25 得分 0
这样写并不能解决问题，还有别的错误吗？Top
3 楼CPLiu（老了）回复于 2005-06-05 22:22:10 得分 15
txtSQL = "update user_Info set user_PWD ='" & Trim(Text1(1).Text) & "' where user_ID = '" & Trim(Combo1) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
Trim(Combo1)应为combo1.text
Set mrc = ExecuteSQL(txtSQL, MsgText)应为
con.execute (txtsql)
Top
4 楼xuanshine（）回复于 2005-06-08 14:18:12 得分 0
为什么我修改成功了密码之后，还出现这样的提示：
Operation is not allowed when the object is open.Top
5 楼cxbkkk（本命年，旺啊！）回复于 2005-06-08 18:16:16 得分 12
回复一下，我回复那么多了都不给分，郁闷啊。
Trim在用的时候可以不加后面的.text，直接Trim(text1)
至于说你数据库没更新的问题，我因为不知道你数据库的这个表的设置，所以我让你看看你字段名对不对，还有就是建议你用数据环境设计器，那样使用很简单，代码如下
If txtNewPWD(1) <> txtNewPWD(0) Then '验证两次输入的新口令是否相同
MsgBox "两次输入的新口令必须相等！", vbExclamation, "修改口令"
txtNewPWD(0).SetFocus
txtNewPWD(0).SelStart = 0
txtNewPWD(0).SelLength = Len(txtNewPWD(0))
ElseIf Len(txtNewPWD(0)) > 6 Then
MsgBox "口令位数超出规定的6位，请重新输入", vbInformation, "修改口令"
txtNewPWD(0).SetFocus
txtNewPWD(0).SelStart = 0
txtNewPWD(0).SelLength = Len(txtNewPWD(0))
Else '修改原来的口令
With Library_Manage.rsSysUsers
.Open
.Find "用户名='" & CurrentUserNum & "'"
.Fields("口令") = Trim(txtNewPWD(0))
.Update
End With
MsgBox "口令以被成功修改！", vbInformation, "修改口令"
End IfTop
6 楼bangbangwo（求教）回复于 2005-06-08 20:46:38 得分 0
你们所提供的方法我都用了，但都不能解决问题，请问txtSQL = "update user_Info set user_PWD ='" & Trim(Text1(1).Text) & "' where user_ID = '" & Trim(Combo1) & "'" 是修改密码的语句吗？可我怎么用，密码都是原先的，总修改不成，问题没有解决，还不能给分，请大家再想想办法，谢谢。
Top
7 楼mornwoo（爱永恒伤离别）回复于 2005-06-09 09:08:01 得分 0
记录集打开没关闭?
先关闭然后再执行ExecuteSQLTop
8 楼bangbangwo（求教）回复于 2005-06-09 16:14:00 得分 0
能不能说的具体一点Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
