怎么给sql语句断句啊？

Question

往数据库里添加数据，代码如下：procedure Thzxx.BitBtn1Click(Sender: TObject);
begin
  Try
    with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Insert Pat_if values(:a,:aa,ab,ac,ad,:ae,:af,:ag,:ah,:ai,:aj,:ba,:bb,:bca,:bcb,:bda,:bdb,:be,:bf,:bg,:bha,:bhb,:bhc,:bhd,:bia,:bib,:bic,:bid,:bja,:bjb,:bk,:bl,:bm,:bna,:bnb,:bnc,:bnd,:boa,:bob,:boc,:bod,:bpa,:bpb,:bpc,:bqa,:bqb,:bqc,:bra,:brb,:brc,:brd,:c')');
      Parameters.ParamByName('a').Value := Trim(Edit16.Text);
      Parameters.ParamByName('aa').Value := Trim(Edit1.Text);
      Parameters.ParamByName('ab').Value := Trim(ComboBox1.Text);
      Parameters.ParamByName('ac').Value := Trim(Edit2.Text);
      Parameters.ParamByName('ad').Value := Trim(Edit3.Text);
      Parameters.ParamByName('ae').Value := Trim(Edit4.Text);
      Parameters.ParamByName('af').Value := Trim(Edit5.Text);
      Parameters.ParamByName('ag').Value := Trim(Edit6.Text);
      Parameters.ParamByName('ah').Value := Trim(Edit7.Text);
      Parameters.ParamByName('ai').Value := Trim(ComboBox2.Text);
      Parameters.ParamByName('aj').Value := Trunc(Datetimepicker1.date);
      Parameters.ParamByName('ba').Value := Trim(ComboBox3.Text);
      Parameters.ParamByName('bb').Value := Trim(ComboBox4.Text);
      Parameters.ParamByName('bca').Value := Trim(ComboBox5.Text);
      Parameters.ParamByName('bcb').Value := Trim(ComboBox6.Text);
      Parameters.ParamByName('bda').Value := Trim(ComboBox7.Text);
      Parameters.ParamByName('bdb').Value := Trim(Edit8.Text);
      Parameters.ParamByName('be').Value := Trim(Edit9.Text);
      Parameters.ParamByName('bf').Value := Trim(Edit10.Text);
      Parameters.ParamByName('bg').Value := Trim(Edit11.Text);
      Parameters.ParamByName('bha').Value := Trim(ComboBox8.Text);
      Parameters.ParamByName('bhb').Value := Trim(ComboBox9.Text);
      Parameters.ParamByName('bhc').Value := Trim(ComboBox10.Text);
      Parameters.ParamByName('bhd').Value := Trim(Edit12.Text);
      Parameters.ParamByName('bia').Value := Trim(ComboBox12.Text);
      Parameters.ParamByName('bib').Value := Trim(Edit13.Text);
      Parameters.ParamByName('bic').Value := Trim(ComboBox14.Text);
      Parameters.ParamByName('bid').Value := Trim(Edit14.Text);
      Parameters.ParamByName('bja').Value := Trim(ComboBox16.Text);
      Parameters.ParamByName('bjb').Value := Trim(ComboBox17.Text);
      Parameters.ParamByName('bk').Value := Trim(ComboBox18.Text);
      Parameters.ParamByName('bl').Value := Trim(ComboBox19.Text);
      Parameters.ParamByName('bm').Value := Trim(ComboBox20.Text);
      Parameters.ParamByName('bna').Value := Trim(ComboBox21.Text);
      Parameters.ParamByName('bnb').Value := Trim(ComboBox22.Text);
      Parameters.ParamByName('bnc').Value := Trim(ComboBox23.Text);
      Parameters.ParamByName('bnd').Value := Trim(Edit15.Text);
      Parameters.ParamByName('boa').Value := Trim(ComboBox28.Text);
      Parameters.ParamByName('bob').Value := Trim(ComboBox27.Text);
      Parameters.ParamByName('boc').Value := Trim(ComboBox26.Text);
      Parameters.ParamByName('bod').Value := Trim(ComboBox25.Text);
      Parameters.ParamByName('bpa').Value := Trim(ComboBox30.Text);
      Parameters.ParamByName('bpb').Value := Trim(ComboBox31.Text);
      Parameters.ParamByName('bpc').Value := Trim(ComboBox29.Text);
      Parameters.ParamByName('bqa').Value := Trim(ComboBox33.Text);
      Parameters.ParamByName('bpb').Value := Trim(ComboBox34.Text);
      Parameters.ParamByName('bpc').Value := Trim(ComboBox32.Text);
      Parameters.ParamByName('bra').Value := Trim(ComboBox35.Text);
      Parameters.ParamByName('bpb').Value := Trim(ComboBox36.Text);
      Parameters.ParamByName('bpc').Value := Trim(ComboBox37.Text);
      Parameters.ParamByName('bpd').Value := Trim(ComboBox38.Text);
      ExecSQL;
    end;
    Application.MessageBox('添加成功。','提示',64);
  Except
    Application.MessageBox('系统出错。','提示',64);
    Close;
  end;
end;
SQL.Add('Insert Pat_if values(:a,:aa,ab,ac,ad,:ae,:af,:ag,:ah,:ai,:aj,:ba,:bb,:bca,:bcb,:bda,:bdb,:be,:bf,:bg,:bha,:bhb,:bhc,:bhd,:bia,:bib,:bic,:bid,:bja,:bjb,:bk,:bl,:bm,:bna,:bnb,:bnc,:bnd,:boa,:bob,:boc,:bod,:bpa,:bpb,:bpc,:bqa,:bqb,:bqc,:bra,:brb,:brc,:brd,:c')');这句太长了，超过255字节，请问怎么断开一下好呢？

Answer 1

你直接用ADOQuery1 写下 select top 1 {你要更新的字段列表} from Pat_if
要程序中直接导出所有字段,然后
  ADOQuery1.active:=true;
  ADOQuery1.Append;
  ......
  //举一个例子
  ADOQuery1bpd.asstring := Trim(ComboBox38.Text);  .......
  ADOQuery1.post; 

Answer 2

这样不行吗？
SQL.Add('Insert Pat_if values(:a,:aa,ab,ac,ad,:ae,:af,:ag,:ah,:ai,:aj,:ba,');
SQL.Add(':bb,:bca,:bcb,:bda,:bdb,:be,:bf,:bg,:bha,:bhb,:bhc,:bhd,');
SQL.Add(':bia,:bib,:bic,:bid,:bja,:bjb,:bk,:bl,:bm,:bna,:bnb,:bnc,');
SQL.Add(':bnd,:boa,:bob,:boc,:bod,:bpa,:bpb,:bpc,:bqa,');
SQL.Add(':bqb,:bqc,:bra,:brb,:brc,:brd,:c')');

Answer 3

同意xftyyyyb的意见，这多字段，找错误浪费的时间可能很久

Answer 4

“应用程序在当前操作中使用了错误类型的值”是什么时候报的？
是 设参数时，还是执行sql时？
它没有说【哪个字段】的值类型不对吗？

Answer 5

1.用sql.add進行分隔；
2.檢查日期和時間字段部分的傳值

Answer 6

你直接用数据绑定的控件多好……
比如edit 换成dbedit
放几个按钮 新增 编辑 删除 保存 等 
执行相应的操作 ADOQuery1.Append  ADOQuery1.Edit ADOQuery1.Delete ADOQuery1.Post
这不比你这么插入方便多了

Answer 7

VAR
  temp :string;
begin
temp :='Insert Pat_if values(:a,:aa,ab,ac,ad,:ae,:af,:ag,:ah,:ai,:aj,:ba,:bb,:bca,:bcb,:bda,:bdb,:be,:bf,:bg,:bha,:bhb,:bhc,:bhd,:bia,:bib,:bic,:bid,:bja,:bjb,:bk,:bl,:bm,:bna,:bnb,';
temp:=temp+':bnc,:bnd,:boa,:bob,:boc,:bod,:bpa,:bpb,:bpc,:bqa,:bqb,:bqc,:bra,:brb,:brc,:brd,:c')'
SQL.Add(temp)
end;