+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : نسخ معلومات من عده جداول بقاعده البيانات (/showthread.php?tid=8778)
نسخ معلومات من عده جداول بقاعده البيانات - elzawey2020 - 28-07-2017
السلام عليكم ورحمه الله وبركاته
جمعه مباركه عليكم ياشباب
سؤالي
عندي حوالي 4 جدوال( t1,t2,t3,t4 ) في كل جدول 3 اعمده وهي الجدول الاول a1,b1,c1 والثاني a2,b2,c2 والثالث a3,b3,c3
اريد ان انسخ مافي 4 جداول ( ملحوظه الجداول مختلفه في عدد سجلاتها ) الي جدول t5 والذي يحتوي علي نفس الاعمده وهي
a1,b1,c2,a2,b2,c2,a3,b3,c3,a4,b4,c4
توصلت لهذا الكوود ولكن لجدول واحد
كود :
var i: integer;
begin
T1.First;
while not T1.Eof do begin
T5.Insert;
for i := 0 to T1.Fields.Count do
t5.FieldByName('a1').AsString := t1.FieldByName('name').AsString;
t5.FieldByName('b1').AsInteger := t1.FieldByName('setnumber').AsInteger;
t5.FieldByName('c1').AsInteger := t1.FieldByName('lgna').AsInteger;
t5.Post;
t2.Next;
end;وعندما حاولت ان اكرر الكووود للجدول الثاني ولكن المشكلة ان عملية النسخ الثانية لا تبدء من اول الجدول ولكن تبدء من نهاية اخر سجل
بارك الله فيكم
RE: نسخ معلومات من عده جداول بقاعده البيانات - مبرمج حر - 10-08-2017
(28-07-2017, 09:44 AM)elzawey2020 كتب : المشكلة ان عملية النسخ الثانية لا تبدء من اول الجدول ولكن تبدء من نهاية اخر سجلقبل النسخ اكتب
كود :
t2.first;