نسخ تسجيل من adotabel1 الى adotable2

[ANTONOV WLD]

هل هناك طريقة لنسخ تسجيل 'مثلا نختار التسجيل الأول من الجدول و نضغط على زر bouton او CheckBox لنسخ التسجيل الذي اخترناه الى جدول اخر بنفس الحقول' من Adotable1 إلى Adotable2 آخر ولها نفس الحقول و نريد تسجيل نفس المعلومات.
استعملت هذا الكود لكنه لم ينجح.

كود :

var I:Integer; begin ADOTable1.Append; for I :=0 to ADOTable1.FieldCount -1 do ADOTable1.Fields[I].Value := ADOTable2.Fields[I].Value; ADOTable1.Post; end;

[ANTONOV WLD]

كود :

;adotable1.Edit ;adotable1.First while not adotable1.eof do begin ;adotable2.Append ['adotable2['date_lancement']:=adotable1['date ['adotable2['qte']:=adotable1['qte ;end ;end

جربت هذا الكود و نجح معي لكنه ينسخ السطر في الجدول الاخر الى ما لا نهاية و لا يريد التوقف

[الكاسر الآخر]

قبل end الخاصة بـ While أضف

كود :

AdoTable1.Next

هناك طريقة أخرى وهي باستخدام sql

كود :

SELECT field1,field2 INTO newtable FROM OldTable Where bla bla bla bla;

[Mr.DOS]

السلام عليكم

جرب المثال المرفق