نقل سجل من جدول الى جدول

[Med-01]

السلام عليكم ورحمة الله وبركاته
لدي جدولين ADOTable1 و  ADOTable2
مربوطين بجدولين في قاعدة البيانات table1 و table 2
كيف اقوم بنقل سجل
ADOTable1
الى
ADOTable2
عن طريق dbgrid سجل ب سجل عند الضغط عليه  وليس كل السجلات دفعة واحدة !

شكرااا وجزاكم الله خيراااا

[kerbadou]

Table2.Append();
Table2.FieldByName('firstName').AsString := Table1.FieldByName('firstName').AsString;
Table2.FieldByName('lastname').AsString := Table1.FieldByName('lastname').AsString;
Table2.POste();

[Med-01]

جزاك الله خيرا اخي الكريم

رائغ