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

[Ben.Ja]

الأخ مبرمج حر ربما قصد الحلقة ان تكون داخل الـ With .. do, هكذا:

PHP كود :

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)');
 For i:=0 to 4 do
      Params[i].Value := DM1.source.Fields[i].Value;
     ExecSQL;
    End;
   DM1.source.next;
End;