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

[AbdouProg]

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

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

فاستعمال نفس DatabaseName الكود يعمل جيدا و لكن انا اريد جلب معطيات محدودة من الجدول source و ليس كلها  من DatabaseName مختلفة 
و دالك بفلترة الحقل code باستعمال like مع العلم ان الحقل يحتوي على 15 رقم من نوع String . 
وهدا هو الكود الدي استعمله اثمنى ان تساعدوني في حل هده المعضلة التي اتعبثني كثيرا و الشكر موصول للجميع و جزاكم الله الف خير

PHP كود :

begin
  DM1.TSrc1.Active := True;
  DM1.TSrc1.First;

    DM1.TSrc1.Filtered := False;
    DM1.TSrc1.Filter :='code like (''3118*'')';
    DM1.TSrc1.Filtered := True;

 while NOT DM1.TSrc1.Eof do

       begin
       DM1.ffTDes1.Open;
       DM1.ffTDes1.Append;

     for i:=0 to DM1.TSrc1.FieldCount-1 do
        begin
        sFieldName := DM1.TSrc1.Fields[i].FieldName;
        DM1.ffTDes1[sFieldName] := DM1.TSrc1[sFieldName];
        end;

        DM1.ffTDes1.Post;
        DM1.TSrc1.Next;
        end;  //fin de While
 end;