小弟是新手

做了一个实现密码修改功能的窗体

'text1.text 是密码修改时要输入的旧密码 'text2.text 是修改后的新密码 'text4.text 是当前使用的用户id号 'text5.text 是从数据库获得的密码信息

Private Sub Command1_Click() If Text1.Text = Text5.Text Then '与数据库密码值比较 MsgBox "密码正确!", vbInformation + vbOKOnly, "提示信息" Adodc1.Recordset.Close Adodc1.Recordset.Open "update 用户信息表 set 密码='" & Text2.Text &

"' where ID='" & Text4.Text & "'" Adodc1.Refresh Else MsgBox "密码错误!", vbInformation + vbOKOnly, "提示信息" End If End Sub

运行后输入正确密码和新密码后出现对话框 提示： 实时错误'3219' operation is not allowed in this context

各位大大指点一下，谢谢！！！！！！！！！！！！！！！！

本人是极不习惯用ADODC的控件操作数据库，都是用ADODB的组件来完成访问数据库的工作。

你的数据库设计的不规范，怎么中英文混混杂；虽说不是这个原因，最好改改！ 可能是SQL语句有问题！ 用ADODB的组件做吧，很简单的！ Dim Cn as New ADODB.Connection 'Dim Rs as New ADODB.Recordset Cn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=c:\temp.mdb",3,3,1 rem=======c:\temp.mdb 为你的数据库路径 Cn.Execute "update 用户信息表 set 密码='" & Text2.Text & "' where ID='" & Text4.Text & "'" Cn.Close Set Cn=Nothing 试试！ mengye_lb@163.com

是不是因为你再没有打开数据库的时候先把它关闭了？
if adodc1.recordset.state=1 then
  adodc1.recordset.close
end if

象是ID 的数据类型错了.我不知你的数据库中ID是什么数据类型?你把
Cn.Execute "update 用户信息表 set 密码='" & Text2.Text & "' where ID='" & Text4.Text & "'"
改成
Cn.Execute "update 用户信息表 set 密码='" & Text2.Text & "' where ID='' & Text4.Text
试试

ID 的数据类型错了,改成如下试试:

Cn.Execute "update 用户信息表 set 密码='" & trim(Text2.Text )& "' where ID='" & trim(Text4.Text )& "'"
trim是去除空格,这样应该就行了.

我也迫切的想知道这个问题的答案哦，请高手指点

Adodc1.Refresh
Adodc1.Recordset.Filter = ID & "='" & trim(Text4.Text )& "'"
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.Update "密码", trim(Text2.Text )
End If

[此贴子已经被作者于2006-5-9 10:34:42编辑过]