یک استثناء جالب در دلفی :: کمک فوری :: همین الان می خوام
سلام
من در حال نوشتن یه برنامه هستم که 160 رکورد را باید از طریق کوئری به دیتابیس منتقل کنم ولی اررور
کد:
LIST OU OF BOUND(154)
میده
من تا حالا هیچ وقت برام لازم نبوده این همه رکورد را یکباره به دیتابیس منتقل کنم
پیشنهاد لازم دارم و ببینید که خط فرمانهام درسته یا نه .
لطفاً فوری :: کمک فوری تا نیم ساعت دیگه لازم دارم
کمک
کمک
کمک
کد:
begin
with ADOQuery do
begin
Close;
SQL.Clear;
SQL.Add('select ucodem from uprop where ucodem=:a');
Parameters[0].Value:=pcodem.Text;
Open;
end;
if ADOQuery.IsEmpty then
Begin
try
ADOConnection.BeginTrans;
With ADOQuery do
Begin
close;
SQL.Clear;
SQL.Add
('insert into uprop(ucodem,ucodeo,udatev,udateo,ushenase,uname,ufamily,unamefa,ushsh,udateb,uplaceb,uplaces,uadres,utel,umagh,ureshte,uplacet,uavg,utahsilfa,utahsilma,utedadm,utedadch,uadrest'+
'msh,mja,maz,mra,mtozihat,femdad,fbasij,fnashr,fmazhabi,fhonari,fsoprt,fnezami,ffogh,fedari'+
'11,12,13,14,15,16,17,18,21,22,23,24,25,26,27,28,31,32,33,34,35,36,37,38,41,42,43,51,52,61,62,63,64,65,71,72,73,74,75,81,82,83,ftoz'+
'kh1,kh2,kh3,pa1,pa2,pa3,gr1,gr2,gr3,ph1,ph2,ph3,fi1,fi2,fi3,el1,el2,el3,co1,co2,co3,za1,za2,za3,ba1,ba2,ba3,va1,va2,va3,ma1,ma2,ma3,ttoz,sp1,sp2,sp3,sp4,sk1,sk2,sk3,sk4,sb1,sb2,sb3,sb4,sa1,sa2,sa3,sa4,se1,se2,se3,se4'+
'so11,so12,so13,so14,so21,so22,so23,so24,hna1,hna2,hna3,hne1,hne2,hne3,hnt1,hnt2,hnt3,hnp1,hnp2,hnp3,hnm1,hnm2,hnm3,hh1,hh2,hh3)'+
'values(:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o,:p,:q,:r,:s,:t,:u,:v,:w,:x,:y,:z'+
':aa,:ab,:ac,:ad,:ae,:af,:ag,:ah,:ai,:aj,:ak,:al,:am,:an,:ao,:ap,:aq,:ar,:as,:at,:au,:av,:aw,:ax,:ay,:az'+
':ba,:bb,:bc,:bd,:be,:bf,:bg,:bh,:bi,:bj,:bk,:bl,:bm,:bn,:bo,:bp,:bq,:br,:bs,:bt,:bu,:bv,:bw,:bx,:by,:bz'+
':ca,:cb,:cc,:cd,:ce,:cf,:cg,:ch,:ci,:cj,:ck,:cl,:cm,:cn,:co,:cp,:cq,:cr,:cs,:ct,:cu,:cv,:cw,:cx,:cy,:cz'+
':da,:db,:dc,:dd,:de,:df,:dg,:dh,:di,:dj,:dk,:dl,:dm,:dn,:do,:dp,:dq,:dr,:ds,:dt,:du,:dv,:dw,:dx,:dy,:dz'+
':ea,:eb,:ec,:ed,:ee,:ef,:eg,:eh,:ei,:ej,:ek,:el,:em,:en,:eo,:ep,:eq,:er,:es,:et,:eu,:ev,:ew,:ex,:ey,:ez'+
':fa,:fb,:fc,:fd)');
Parameters[0].Value:=pcodem.text;
Parameters[1].Value:=pcodeo.text;
Parameters[2].Value:=MaskEdit1.text;
Parameters[3].Value:=MaskEdit2.Text;
Parameters[4].Value:=pshenase.text;
Parameters[5].Value:=pname.text;
Parameters[6].Value:=pfamily.text;
.
.
.
اگر تو خط فرمان و یا جایی دیگه از برنامه اشکال هست لطفاً بگید
