05-04-2018, 07:56 PM
طيب ،
لنفرض أن ال Source تحوي الاستعلام التالي :
Select Code1 , Code2
From Table1
Where c1= c2
ال Destination تحوي الاستعلام التالي :
Insert into Table2 (A1,A2) Values (:b1 , :b2)
لنجري الآن عملين نقل البيانات :
إن شاء الله تكون مفيدة.
لنفرض أن ال Source تحوي الاستعلام التالي :
Select Code1 , Code2
From Table1
Where c1= c2
ال Destination تحوي الاستعلام التالي :
Insert into Table2 (A1,A2) Values (:b1 , :b2)
لنجري الآن عملين نقل البيانات :
كود :
Source.close;
Source.open;
While Not Source.eof do // eof = End Of File
Begin
destination.close;
;destination.paramettre('b1').value := source.Code1.value
;destination.paramettre('b2').value := source.Code2.value
destination.execSql;
source.next;
End;إن شاء الله تكون مفيدة.
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.