这个是我的原代码:
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.excute;
showmessage('更改完毕!');
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;
end;
出现错误“project1.exe raised exception class EOleException with message"灾难性故障"process stopped. ”
我把 sql语句改成select就是可以通过的,但是ClientDataSet1只能用open,要是改为EXECUTE也是会出同样的错误。
这段程序到底是什么地方的问题啊?请高手指点。分可以另开帖子再给。
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.excute;
showmessage('更改完毕!');
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;
end;
出现错误“project1.exe raised exception class EOleException with message"灾难性故障"process stopped. ”
我把 sql语句改成select就是可以通过的,但是ClientDataSet1只能用open,要是改为EXECUTE也是会出同样的错误。
这段程序到底是什么地方的问题啊?请高手指点。分可以另开帖子再给。
解决方案 »
- 一个不解的问题~~关于tlist
- 用delphi能开发火狐的工具栏么?
- 急聘软件工程师(北京)
- 怎样才能学好Delphi?
- SQL有一列是identity,使用TABLE连接,如何插入数据? 在线等~~~~~~~
- 善良的人们都会给我回复!
- 請問 TBitmapInfo 的內容, 怎樣放去 TImage 內 ?
- 有看到Delphi好文章发给我 [email protected]
- 如何将1.2542E34这样的数据转换成长数据类型?
- !!!!请教:procedure 或 function 后的stdcall具体有什么作用!!!!//mysec
- [救命哇]我快被这个错误卡死了"at the end of table"
- 最近运气超好 嘿嘿~~
--==================================
这句是问题的--改成
ClientDataSet1.CommandText:='update tb_operatorinformation set pswd_log='+#39+trim(Edit2.Text)+#39+' where id='+#39+user_id+#39;
ClientDataSet1.Active:=false;
SocketConnection1.Address:=self.Edit1.Text;
SocketConnection1.ServerName:='project1.yclj';
ClientDataSet1.Active:=true;
这个就是我客户端的控件设置了??是不是有什么问题啊?
不好意思,小弟第一次用这样的结构,对其不是很了解,谢谢
就上面我要的目的,你说的输出一个method怎么实现啊?