【结贴】[请求]保存文本信息时出错！如何解决？

jinwy

我把“备注”字段设为文本型。并且放了一个MEMO控件显示备注内容。

保存按钮中的语句是这样的：

procedure TBJHYDBBCX.Button3Click(Sender: TObject);
var
changebz:string;
begin
  changebz:= 'update BJHYDBZB set bz= '''+ memo1.Lines.Text + ''''+' where (rq >= ''' + Business.system.sysutils.FormatDatetime('YYYY-MM-DD',dt1.Date) +'''' +
              ') and (rq <= ''' + Business.system.sysutils.formatdatetime('YYYY-MM-DD',dt2.Date) +'''' +
              ') and czybm='''+combobox1.Text+'''';



  DataSetBroker2.DataSet.Close;                               //保存备注
  TSQLDataSet(DataSetBroker2.DataSet).SQL.Text :=changebz;
  DataSetBroker2.DataSet.Execute;
  Business.forms.jsDialogs.ShowMsg('您已成功保存!','保存信息');
  Memo1.Lines.Text:='';
  Memo1.Enabled:=false;
end;

运行后，发现：当在MEMO里只写一行备注时，保存成功。
              当在MEMO里写大于一行的内容时，保存出错。
出错显示：expecting''',found'  '


如何保存大于一行的文本内容呢？

jinwy

帮忙看一下。谢谢啊

jinwy

人呢？

lixy

Query1.Close;
  Query1.CommandText:=aa;
  Query1.Execute;
换成这个控件 tQuery

lisb

为什么不用DataEdit表现，直接用数据集保存呢？

jinwy

我试过用DataEdit，修改按钮里写了：DataSetBroker2.DataSet.edit;
保存里写了：DataSetBroker2.DataSet.post;

但没效果。数据没变。

jinwy

顶上。我的问题还没解决。

lixy

楼主无视我的回答？？？

procedure TMainForm.Button1Click(Sender: TObject);
var
   aa:string;

begin

     aa:=sysutils.Format('insert into DXWB (id,DXWB) values (''%s'',''%s'')',[Business.System.JSCommon.CreateGUIDStr,memo1.lines.text]);
  { DataSetBroker2.DataSet.Close;                               //保存备注
  TSQLDataSet(DataSetBroker2.DataSet).SQL.Text:=aa;
  DataSetBroker2.DataSet.Execute;  }
  Query1.Close;
  Query1.CommandText:=aa;
  Query1.Execute;
   DataSetBroker1.DataSet.Refresh;
end;

jinwy

我把原来的

'''+ memo1.Lines.Text + '''   换成'''+ memo1.Lines.CommaText + '''

保存两行文字成功了。但分行的字中间自动加了逗号。为何？

保存前：

jinwy

最初由 lixy 发布
[B]楼主无视我的回答？？？ [/B]

呵呵，我不能没搞清楚就马上换控件啊。



保存后：