نقل البيانات من جدول

تفضل يا اخي الكريم:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
Table1.First; //-Aتمثل قاعدة
while not Table1.Eof do
begin
Table2.Append;//-Bتمثل قاعدة
for i:= 0 to Table1.FieldDefs.Count - 1 do
Table2.Fields.Value:=
Table1.Fields.Value;
Table2.Post;
Table1.Next;
end;

End;

تحياتي

شكرا يابو حمد جعلها الله في موازين حسناتك

لا شكر على واجب اخي الكريم

فهذا رد لبعض الجميل الذي استفدته من تجاوبك الاخوان في هذا المنتدى الرائع.

:D