كيف يمكن نقل سجيلات من جدول الى اخر باستعمال الفلترة مع العلم ان DatabaseName مختلفة

[AbdouProg]

السلام عليكم و رحمة الله و بركاته

اولا اشكرك اخي Ben.ja على المساعدة و جعله الله في ميزان حسناتك 
و اخيرا حتى يستفيد الجميع من هدا الكود اطرح للزملاء اعضاء هدا المنتدى التعليمي الرائع الحل النهائي 

PHP كود :

begin
DM1.Source.close;
DM1.Source.open;
DM1.Source.first;

for i:= 0 to DM1.Source.FieldCount-1 do

While Not DM1.Source.eof  Do

 Begin

  With DM1.destination Do
     Begin
     Active:=False;
     SQL.Clear;
     SQL.Add('Insert into customer (id, FIRSTNAME,LASTNAME,CITY,COUNTRY)');
     SQL.Add('Values (:b1 , :b2 , :b3 , :b4 , :b5)');
     params[0].value:= DM1.source.Fields[0].Value;
     params[1].value:= DM1.source.Fields[1].Value;
     params[2].value:= DM1.source.Fields[2].Value;
     params[3].value:= DM1.source.Fields[3].Value;
     params[4].value:= DM1.source.Fields[4].Value;
     Params[i].Value := DM1.source.Fields[i].Value;
     ExecSQL;
     End;
   DM1.source.next;
End; 


 

ولكن حبد لو انه هناك طريقة من اجل تقليص هده الكتابة لانه باستعمال مثلا عدد كبير من الحقول يصبح الكود مملء نوعا ما

; params[0].value:= DM1.source.Fields[0].Value
; params[1].value:= DM1.source.Fields[1].Value
; params[2].value:= DM1.source.Fields[2].Value
; params[3].value:= DM1.source.Fields[3].Value
; params[4].value:= DM1.source.Fields[4].Value

فمثلا لو نستعمل Array فلنفكر معا نحن اعضاء المنتدى من اجل تقليص هدا الكود و بارك الله فيكم جميعا و بالاخص الزميل Ben.ja