نسخ اكثر من عمود من جدول الى اخر

[Bachirsoft]

السلام عليكم جميعا
اريد انشاء زر عند الضغط عليه انسخ خمس اعمدة من جدول الى خمس اعمدة في جدول اخر بنفس التسمية، وبعد ذلكاقوم بتغيير المعلومات في الجدول الاول و عند الضغط عليه مرة اخرى ينسخ المعلومات ويضيفها الى الجدول الثاني

[PLANSHARP]

ما نوع قاعدة البيانات؟

[Bachirsoft]

ما نوع قاعدة البيانات؟

أكسس

[h-farid]

و عليكم السلام و رحمة الله

حلقة تكرارية (أو اثنتان متداخلتان), هل ينفع ؟

[PLANSHARP]

يمكنك إنشاء استعلامات تعديل داخل ملف الأكسس فهي سريعة جداً حتى لو كان عدد السجلات كبير أسرع بكثير من استخدام المحرك من الدلفي, أي تكون وظيفة هذا الإستعلام نسخ تلك الأعمدة إلى الجدول الثاني.

طريقة تنفيذ هذا الإستعلام تكون من الدلفي نفسها عن طريق adocommand إذا كنت تستخدم ADO, فيكفي أن تكتب اسم هذا الإستعلام داخل ال Commandtext و تقوم بعمل execute فسيقوم الأكسس بتنفيذه بشكل صامت و سريع.

وفقكم الله.

[Bachirsoft]

لم أتوصل الى حل فهل من مساعد.....

[PLANSHARP]

أرفق تجربتك لنحاول معك

[rahiche]

او يمكنك استخدام مكون FDBatchMove
تم شرح المكون في دروس برنامج المبيعات
https://www.youtube.com/playlist?list=PL...7SoK1kNIVJ

[Ben.Ja]

يمكنك إضافة مكون ADOQuery أو FDQuery على حسب ما تستخدم, وفي ال sql الخاص به:

PHP كود :

Insert into table_d
select * from table_s 


table_d هو اسم الجدول الذي تريد النسخ إليه
table_s اسم الجدول الذي تريد النسخ منه

أيضا اذا اردت نسخ أعمدة معينة

PHP كود :

Insert into table_d(column1,column2,..)
select * from table_s(column1,column2,..) 


ثم تقوم بتنفيذ الquery:

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
FDQuery1.execute;
end; 


غير fdquery1 الى اسم مكون الاستعلام الخاص بك

[bouh25]

مثال استخدمته منذ مدة
يمكنك الاستفادة من هذا المثال و هو خاص بتحيين مخزون

كود :

begin tfjourp.First;     Tfjourp.edit;     while not Tfjourp.EOF Do       begin         tfjour.Active:=true;         Tfjour.edit;         tfjour.First ;         while not tfjour.EOF Do             begin               if tfjourp.FieldValues['n_prod']=tfjour.Fieldvalues['n_prod'] then               begin                 tfjour.Edit;                 if tfjour.FieldValues['q_stok'] +tfjour.Fieldvalues['Q_entre']>= tfjourp.FieldValues['quantete']then                   begin                   tfjour.Fieldvalues['Q_sort']:=tfjourp.FieldValues['quantete'] ;                   tfjour.Fieldvalues['Q_fin']:=tfjour.Fieldvalues['Q_entre']+tfjour.FieldValues['q_stok']-tfjour.FieldValues['q_sort'] ;                   tfjour.Post;                   end                   else               end;               tfjour.next;             end;       tstock.Edit;       tstock.First;       while not Tstock.EOF Do             begin               if tfjourp.FieldValues['n_prod']=tstock.Fieldvalues['n_prod'] then               begin                 tstock.Edit;                 if tstock.Fieldvalues['Quantete']<tfjourp.FieldValues['quantete'] then                   begin                   ShowMessage('الكمية المطلوبة غير موجودة '+#13+#13+'  '+tstock.Fieldvalues['produit']);                   end                   else                   tstock.Fieldvalues['Quantete']:=tstock.Fieldvalues['Quantete']-tfjourp.FieldValues['quantete'] ;                   tstock.Post;               end;               tstock.next;             end;         Tfjourp.Next;   end; end;