delphi4arab منتديات دلفي للعرب

هل هناك طريقة لنسخ تسجيل 'مثلا نختار التسجيل الأول من الجدول و نضغط على زر 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;

كود :
;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;

السلام عليكم

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

ANTONOV WLD

ANTONOV WLD

الكاسر الآخر

Mr.DOS