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

نسخة كاملة : حلقة لنقل بينات من جدول إلى أخر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

أستخدم حلقة الفور لنقل بينات من جدول ألي أخر ولكن عندما أستخدمها لا أعد أستطيع الضغط علي أي زر وفي بعط الأحيان يكون الجدول كبير فيتوقف البرنامج عن العمل
كود :
for I := 0 to Table1.RecordCount - 1 do
  begin
    Table1.Insert;
    Table1.FieldByName('name').AsString:=Table2.FieldByName('name').AsString;
    Table1.Post;
  end;
السلام عليكم ورحمة الله
أضف DisableControls قبل البداية ثم EnableControls عند النهاية
أمثلة كثيرة في المنتدى ابحث
بالتوفيق.
السلام عليكم

قارن بالتالي :

كود :
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;
بالتوفيق
كود :
INSERT INTO "table1" ("column1", "column2", ...)
SELECT "column3", "column4", ...
FROM "table2"