请教高手delphi＋oracle

[ppp005]

insert into sbfka(bh,xm,m1,m2,xb,csrq,gj,zjzl,zjhm,
qzzl,qzqx,jc,ka,rjrq,sy,chcl,dhcq,gzdw,jddw,dz,jtgj,bch,xxry,ybd)
values
(:bh,:xm,:xm1,:xm2,:xb,to_date(:csrq,'dd-mm-yyyy'),:gj,:zjzl,:zjhm,
:qzzl,to_date(:qzqx,'dd-mm-yyyy'),:jc,:ka,to_date(:rjrq,'dd-mm-yyyy'),
:sy,:chcl,:dhcq,:gzdw,:jddw,:dz,:jtgj,:bch,:xxry,:ybd)



ADOQuery_inserttooracle.Close;
with arecord do
begin
ADOQuery_inserttooracle.Parameters.ParamByName('bh').value:= trim(arecord.bhstr);
ADOQuery_inserttooracle.Parameters.ParamByName('xm').value:= trim(arecord.xmstr);
ADOQuery_inserttooracle.Parameters.ParamByName('xm1').value:= trim(arecord.xm1str);
ADOQuery_inserttooracle.Parameters.ParamByName('xm2').value:= trim(arecord.xm2str);
ADOQuery_inserttooracle.Parameters.ParamByName('xb').value:= trim(arecord.xbstr);
ADOQuery_inserttooracle.Parameters.ParamByName('csrq').value:=trim(arecord.csrqdate);
ADOQuery_inserttooracle.Parameters.ParamByName('gj').value:= trim(arecord.gjstr);
ADOQuery_inserttooracle.Parameters.ParamByName('zjzl').value:= trim(arecord.zjzlstr);
ADOQuery_inserttooracle.Parameters.ParamByName('zjhm').value:= trim(arecord.zjhmstr);
ADOQuery_inserttooracle.Parameters.ParamByName('qzzl').value:= trim(arecord.qzzlstr);
ADOQuery_inserttooracle.Parameters.ParamByName('qzqx').value:= trim(arecord.qzqxdate);
ADOQuery_inserttooracle.Parameters.ParamByName('jc').value:= trim(arecord.jcstr);
ADOQuery_inserttooracle.Parameters.ParamByName('ka').value:= trim(arecord.kastr);
ADOQuery_inserttooracle.Parameters.ParamByName('rjrq').value:= trim(arecord.rjrqdate);
ADOQuery_inserttooracle.Parameters.ParamByName('sy').value:= trim(arecord.systr);
ADOQuery_inserttooracle.Parameters.ParamByName('chcl').value:= trim(arecord.chclstr);
ADOQuery_inserttooracle.Parameters.ParamByName('dhcq').value:= trim(arecord.dhcqstr);
ADOQuery_inserttooracle.Parameters.ParamByName('gzdw').value:= trim(arecord.gzdwstr);
ADOQuery_inserttooracle.Parameters.ParamByName('jddw').value:= trim(arecord.jddwstr);
ADOQuery_inserttooracle.Parameters.ParamByName('dz').value:= trim(arecord.dzstr);
ADOQuery_inserttooracle.Parameters.ParamByName('jtgj').value:= trim(arecord.jtgjstr);
ADOQuery_inserttooracle.Parameters.ParamByName('bch').value:= trim(arecord.bchstr);
ADOQuery_inserttooracle.Parameters.ParamByName('xxry').value:= trim(arecord.xxrystr);
ADOQuery_inserttooracle.Parameters.ParamByName('ybd').value:= trim( arecord.ybdstr);
ADOQuery_inserttooracle.ExecSQL;
end;

谁能帮我看看到底那里出了问题。。运行时总是出错。好像时参数不对把

[dvmail]

断点监视一下insert语句，拷贝到sql plus那里执行看看

[gechangwei]

对于ADOQuery，除了Value值外，还要注意设置参数的类型DataType。
建议设置所有参数的DataType为ftString后再试一下。

[baojianjun]

樓主能把錯誤代碼和對應的錯誤語句貼出來嗎？