Delphi中拼接Sql查詢字符串為何這么難??

Question

procedure TFr_maint.Edit2Change(Sender: TObject);
var s:string;
begin
  s:=edit2.text;
  with DataModule4.TCSADODataSet do
      begin
         CommandText:='select * from toinvtymt where part_no like '''%'' +s+ '''%'';
         Open;
      end;
end;上面的commandtext那行有錯,我只是想拼出:
select * from toinvtymt where part_no like '%S019410%'
S019410是edit2.text的一個例子值的.
請問這個commandtext應該如何寫呀??sql語句中有'以及%等如何進行拼接呀??
請幫忙散分.

Answer 1

s:='select *  from  tgl_test  where ffield like '''+trim(edit1.text)+''''

Answer 2

s:='select *  from  tgl_test  where ffield like ''%'+trim(edit1.text)+'%'''
没看清楚，^_^  再发一次。

Answer 3

CommandText:='select * from toinvtymt where part_no like ''%' +s+ '%''';

Answer 4

CommandText:=format('select * from toinvtymt where part_no like '''%'' +''s''+ '''%'' ',[edit1.text]);

Answer 5

用format格式化sql，为什么没人用呢！你们看那一堆的'号也不头疼。