小弟是新手
做了一个实现密码修改功能的窗体
'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
各位大大指点一下,谢谢!!!!!!!!!!!!!!!!