Office中国论坛/Access中国论坛

标题: 出错在输入新密码后，不会成功修改。老是出现“wrong” [打印本页]

---

作者: さくら飘落    时间: 2012-3-29 07:33
标题: 出错在输入新密码后，不会成功修改。老是出现“wrong”

Private Sub Command1_Click()
If IsNull(new_pwd1) Then
MsgBox "请输入新密码！", vbCritical, "提示"
End If
If IsNull(new_pwd2) Then
MsgBox "请再次确认新密码！", vbCritical, "提示"
End If
If new_pwd1 <> new_pwd2 Then
MsgBox "新密码确认不正确！", vbCritical, "提示"
  new_pwd1.SetFocus
  new_pwd1 = ""
  new_pwd2 = ""
End If
Dim rs As New ADODB.Recordset
  Dim str As String
  str = "select * from 管理员 where 用户名='" & User & "'"
  Set rs = ExeSQL(str)
  If Not rs.EOF Then
  rs("用户名") = User
  rs("密码") = new_pwd1
  rs.Update
  rs.Close
  Set rs = Nothing
  MsgBox "您成功地修改了该用户！"
  Else
  MsgBox "wrong"
End If
Me.Visible = False
End Sub

---

作者: Henry D. Sy    时间: 2012-3-29 09:28

1. Private Sub Command1_Click()
   
2.     If IsNull(new_pwd1) Then
   
3.         MsgBox "请输入新密码！", vbCritical, "提示"
   
4.     End If
   
5.     If IsNull(new_pwd2) Then
   
6.         MsgBox "请再次确认新密码！", vbCritical, "提示"
   
7.     End If
   
8.     If new_pwd1 <> new_pwd2 Then
   
9.         MsgBox "新密码确认不正确！", vbCritical, "提示"
   
10.         new_pwd1.SetFocus
    
11.         new_pwd1 = ""
    
12.         new_pwd2 = ""
    
13.     End If
    
14.     Dim rs As New ADODB.Recordset
    
15.     Dim str As String
    
16.     str = "select * from 管理员 where 用户名='" & User & "'"
    
17.     rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
18.     If Not rs.EOF Then
    
19.         rs.Fields("用户名") = User
    
20.         rs.Fields("密码") = new_pwd1
    
21.         rs.Update
    
22.         rs.Close
    
23.         Set rs = Nothing
    
24.         MsgBox "您成功地修改了该用户！"
    
25.     Else
    
26.         MsgBox "wrong"
    
27.     End If
    
28.     Me.Visible = False
    
29. End Sub

复制代码

---

作者: さくら飘落    时间: 2012-3-30 13:35

Henry D. Sy 发表于 2012-3-29 09:28

改了也是一样

---

作者: さくら飘落    时间: 2012-3-30 13:42

Henry D. Sy 发表于 2012-3-29 09:28

这是前一段修改代码

Private Sub btn_xiugai_Click()
flag = True
  common
  If flag = True Then
  Dim str As String
  str = "select * from 管理员 where 用户名='" & txt_name & "' and 密码='" & txt_pwd1 & "'"
  Set rs = ExeSQL(str)
  If Not rs.EOF Then
  User = txt_name
  DoCmd.OpenForm "新密码"
Else
  MsgBox "找不到该用户！"
End If
End If
End Sub

---

作者: kangking    时间: 2012-3-31 09:00
从代码看，如果老是出现“wrong“则可能是查询句有问题了，你可以仔细检查一下查询句，确保数据表名、字段名和字段类型没有错误。

---

作者: smilingkiss    时间: 2013-1-22 15:34

さくら飘落 发表于 2012-3-30 13:42
这是前一段修改代码

Private Sub btn_xiugai_Click()

会不会是通配符用%?
我是菜鸟,仅作参考

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3