+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : نسخ تسجيل من adotabel1 الى adotable2 (/showthread.php?tid=6876)
نسخ تسجيل من adotabel1 الى adotable2 - ANTONOV WLD - 15-03-2015
هل هناك طريقة لنسخ تسجيل 'مثلا نختار التسجيل الأول من الجدول و نضغط على زر 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;نسخ تسجيل من adotabel1 الى adotable2 - ANTONOV WLD - 25-03-2015
كود :
;adotable1.Edit
;adotable1.First
while not adotable1.eof do
begin
;adotable2.Append
['adotable2['date_lancement']:=adotable1['date
['adotable2['qte']:=adotable1['qte
;end
;endنسخ تسجيل من adotabel1 الى adotable2 - الكاسر الآخر - 25-03-2015
قبل end الخاصة بـ While أضف
كود :
AdoTable1.Nextهناك طريقة أخرى وهي باستخدام sql
كود :
SELECT field1,field2
INTO newtable
FROM OldTable
Where bla bla bla bla;نسخ تسجيل من adotabel1 الى adotable2 - Mr.DOS - 25-03-2015
السلام عليكم
جرب المثال المرفق