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

[AbdouProg]

حاول إضافة

PHP كود :

params[1].DataType:= ftString; 


قبل

PHP كود :

Params[i].Value := DM1.source.Fields[i].Value; 


السلام عليكم و رحمة الله و بركاته
بارك الله فيك اخي لقد دهب الخطأ لن المشكل الان هو ان نقل السجيلات يثم بالحقل و الباقي فراغ كما هو موضح في الصورة و الكود المستعمل هو الثالي

PHP كود :

While Not DM1.Source.eof  do  //  eof = End Of File

Begin

for i:= 0 to 4 do

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].DataType:= ftAutoInc ;
      params[1].DataType:= ftString;
      params[2].DataType:= ftString;
      params[3].DataType:= ftString;
      params[4].DataType:= ftString;
      Params[i].Value := DM1.source.Fields[i].Value;
      ExecSQL;
      end;
DM1.source.next;
End;