+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : حلقة لنقل بينات من جدول إلى أخر (/showthread.php?tid=2852)
حلقة لنقل بينات من جدول إلى أخر - abedroof2001 - 02-03-2011
السلام عليكم
أستخدم حلقة الفور لنقل بينات من جدول ألي أخر ولكن عندما أستخدمها لا أعد أستطيع الضغط علي أي زر وفي بعط الأحيان يكون الجدول كبير فيتوقف البرنامج عن العمل
كود :
for I := 0 to Table1.RecordCount - 1 do
begin
Table1.Insert;
Table1.FieldByName('name').AsString:=Table2.FieldByName('name').AsString;
Table1.Post;
end;حلقة لنقل بينات من جدول إلى أخر - TF6M - 02-03-2011
و عليكم السلام و رحمة الله و بركاته
درس, ال Thread في دلفي,, ما هو؟ ولماذا يستخدم ؟
دلفي & threads مفاهيم و تطبيقات
بالتوفيق,,
حلقة لنقل بينات من جدول إلى أخر - kachwahed - 02-03-2011
السلام عليكم ورحمة الله
أضف DisableControls قبل البداية ثم EnableControls عند النهاية
أمثلة كثيرة في المنتدى ابحث
بالتوفيق.
حلقة لنقل بينات من جدول إلى أخر - Lam.Abdeldjalil - 02-03-2011
السلام عليكم
قارن بالتالي :
كود :
for I := 0 to Table[COLOR=Red]2[/COLOR].RecordCount - 1 do
begin
Table1.Insert;
Table1.FieldByName('name').AsString:=Table2.FieldByName('name').AsString;
Table1.Post;
[COLOR=Red] Table2.next;[/COLOR]
end;حلقة لنقل بينات من جدول إلى أخر - أبو محمد اللحياني - 04-03-2011
كود :
INSERT INTO "table1" ("column1", "column2", ...)
SELECT "column3", "column4", ...
FROM "table2"