procedure TForm1.TeSpeedButton4Click(Sender: TObject);
begin
if application.messagebox('请先确认数据是否正确,你真的要保存吗?','保存',mb_yesno)=idyes then
begin
clientdataset1.close;
clientdataset1.RemoteServer:=socketconnection1;
clientdataset1.ProviderName:='DM_dsp001';
clientdataset1.CommandText:='update RS_公司名称 set 公司名称='+edit1.Text;
clientdataset1.Execute;END;
end;
这样的一段话,我在edit1输入内容时出现:---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EOleException with message '列名 'dsadsa' 无效。'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
dsadsa是我轮输入的内容。请各位帮忙》》
begin
if application.messagebox('请先确认数据是否正确,你真的要保存吗?','保存',mb_yesno)=idyes then
begin
clientdataset1.close;
clientdataset1.RemoteServer:=socketconnection1;
clientdataset1.ProviderName:='DM_dsp001';
clientdataset1.CommandText:='update RS_公司名称 set 公司名称='+edit1.Text;
clientdataset1.Execute;END;
end;
这样的一段话,我在edit1输入内容时出现:---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EOleException with message '列名 'dsadsa' 无效。'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
dsadsa是我轮输入的内容。请各位帮忙》》
解决方案 »
- 用OD分析delphi的弹出对话框下什么断点
- 高手求救 TChart的Series 问题
- 关于多个窗口一直在最上面的问题
- 请问ADOQury.edit有啥用?
- 谁有类似DBGridEh的合计栏的stringgrid控件,或如何改造stringgrid?
- 在调用OnClose事件时,可不可以选择是否关闭?
- 各位大虾·请问如何在stringgrid中的某一列上用一个下拉列表框来选择输入该列单元格的数据
- 怎样判断客户机是否开机(局域网)?
- 各位,我用的是win2000,现在任务栏上的时候显示为:13:13:28 但现在时间为13:28分,是什么原因啊?
- 学object pascal 有什么好书吗
- 怎么样提高自己DELPHI的水平呀~~各位前辈请多多多指导~~谢谢了~~
- DLL求教~
也行
三個星星的, 要四個星星, 所以... 呵呵
或
'update RS_公司名称 set 公司名称= #39 +edit1.Text + #39;
SqlStr:String;begin
SqlStr:=format(' update RS_公司名称 set 公司名称=''%S''',[trim(edit1.Text)]);...
end;
就总结一下:
问题出在这句话
clientdataset1.CommandText:='update RS_公司名称 set 公司名称='+edit1.Text;
的'+edit1.Text;部分,在SQL中字符串必须用''扩起来,
改为:
clientdataset1.CommandText:='update RS_公司名称 set 公司名称='+''''+edit1.Text+'''';
或者
clientdataset1.CommandText:='update RS_公司名称 set 公司名称='+#39+edit1.Text+#39;
或者
clientdataset1.CommandText:='update RS_公司名称 set 公司名称='+Quotedstr(edit1.Text);