这个是我的原代码:
if edit2.Text=edit3.Text then
begin
if MessageDlg('你真的要修改你的密码吗?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
ClientDataSet1.Close;
ClientDataSet1.CommandText:='update tb_operatorinformation set pswd_log='+#39+trim(Edit2.Text)+#39+' where id='+user_id+';
ClientDataSet1.Active;
ClientDataSet1.Open;
showmessage('更改完毕!');
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;
end;
程序运行后总是出错,出错的信息是“adoquery1:commandtext does not return a result set"
虽然出错了,没有出现showmessage,但是每次数据库里的数据也改过了,这是因为什么啊?/到底出错在什么地方啊??
if edit2.Text=edit3.Text then
begin
if MessageDlg('你真的要修改你的密码吗?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
ClientDataSet1.Close;
ClientDataSet1.CommandText:='update tb_operatorinformation set pswd_log='+#39+trim(Edit2.Text)+#39+' where id='+user_id+';
ClientDataSet1.Active;
ClientDataSet1.Open;
showmessage('更改完毕!');
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;
end;
程序运行后总是出错,出错的信息是“adoquery1:commandtext does not return a result set"
虽然出错了,没有出现showmessage,但是每次数据库里的数据也改过了,这是因为什么啊?/到底出错在什么地方啊??
解决方案 »
- 转了一圈又回来编程了。。
- Fast Report一个报表设计
- .rtm文件用Delphi7打开为什么会出现全部乱码呢?(在线等待)
- 请教关于TstringList的问题
- 请教高手这个C语言的结构如何翻译为Pascall语言?
- CSDN的编辑是越来越不负责了!
- 请大家帮个忙!如何制作帮助文件。类似于win2000的帮助文件?
- 谁能介绍一下Delphi6中Web App Debugger工具的使用方法,由相关的文章吗?
- 请问诸位大侠:如何取得serversocket的当前活动连接数?或者您能告诉我如何取得数组上限也可!多谢了,分数大大的
- [WinAPI]最齐全的API资料下载[又一个超级猛料]
- 关于主从表的过滤,高手请进,分不够可以再加
- 一个关于字符串地址的简单问题.
ClientDataSet1.Execute;
如果执行的sql不会返回数据集如update就用execute
这段程序到底是什么地方的问题啊?请高手指点。分可以另开帖子再给。