دخول

abedroof2001

السلام عليكم

أستخدم حلقة الفور لنقل بينات من جدول ألي أخر ولكن عندما أستخدمها لا أعد أستطيع الضغط علي أي زر وفي بعط الأحيان يكون الجدول كبير فيتوقف البرنامج عن العمل

كود :
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, 06:49 PM

و عليكم السلام و رحمة الله و بركاته
درس, ال Thread في دلفي,, ما هو؟ ولماذا يستخدم ؟
دلفي & threads مفاهيم و تطبيقات
بالتوفيق,,

**kachwahed** · 02-03-2011, 07:35 PM

السلام عليكم ورحمة الله
أضف DisableControls قبل البداية ثم EnableControls عند النهاية
أمثلة كثيرة في المنتدى ابحث
بالتوفيق.

**Lam.Abdeldjalil** · 02-03-2011, 10:29 PM

السلام عليكم

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

كود :
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, 06:13 PM

كود :
INSERT INTO "table1" ("column1", "column2", ...)
SELECT "column3", "column4", ...
FROM "table2"

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة