السلام عليكم ورحمة الله
سؤالي هو
هل هناك طريقة في عملية نقل بيانات جدول1 الى جدول2 دفعة واحدة باستخدام adoquery علماً بأن الحقول في الجدول2 نفس الحقول الموجود في الجدول1 ارجو من لديه اجابه مساعدتنا ولو بمثال بسيط وشكرا للجميع.
كيفية نقل بيانات من جدول الى جدول آخر
مغلق
السلام عليكم و رحمة الله وبركاته
إذا استعملت الـ Adotable
يمكنك استخدام الكود التالي أخي الكريم
Adotable1.First;
while not Adotable1.Eof do
begin
Adotable2.Append;
Adotable2.FieldByName('Yourfiled').Value := Adotable1.FieldByName('Yourfiled').Value;
Adotable2.FieldByName('Yourfiled').Value := Adotable1.FieldByName('Yourfiled').Value;
Adotable2.FieldByName('Yourfiled').Value := Adotable1.FieldByName('Yourfiled').Value;
Adotable2.FieldByName('Yourfiled').Value := Adotable1.FieldByName('Yourfiled').Value;
Adotable2.FieldByName('Yourfiled').Value := Adotable1.FieldByName('Yourfiled').Value;
Adotable2.FieldByName('Yourfiled').Value := Adotable1.FieldByName('Yourfiled').Value;
Adotable2.FieldByName('Yourfiled').Value := Adotable1.FieldByName('Yourfiled').Value;
Adotable2.FieldByName('Yourfiled').Value := Adotable1.FieldByName('Yourfiled').Value;
Adotable2.Post;
Adotable1.Next;
end;وبالتوفيق إن شاء الله ;)font]]
تم تعديل هذه المشاركة بواسطة Like Delphi في 14 مايو 2006 في 19:29
قال تعالى: ((وَمَا أَصَابََكُمْ مِنْ مُصِيبَةٍ فَبمَا كَسَبَتْ أَيْدِيكُمْ وَ يَعْفُو عَنْ كَثِيرٍ)) :.:.: الشورى: الآية 30.
IN ALLAH WE TRUST
:.:.:.:.:.:.:.:.:.:.:.:.:.:
أخي الكريم إذا أردت استعمال adoquery
اضبط خاصية الـ SQL إلى:
Select * From yourtable
واستعمل الكود السابق باستبدال Adotable1 بـ adoquery
وإن شاء الله يكون هذا هو المطلوب
وبالتوفيق إن شاء الله ;)
قال تعالى: ((وَمَا أَصَابََكُمْ مِنْ مُصِيبَةٍ فَبمَا كَسَبَتْ أَيْدِيكُمْ وَ يَعْفُو عَنْ كَثِيرٍ)) :.:.: الشورى: الآية 30.
IN ALLAH WE TRUST
:.:.:.:.:.:.:.:.:.:.:.:.:.:
اخي الكريم قم باستعمال تعليمات SQL مباشرة باستخدام Adoquery هذه التعليمات تقوم بعمل Insert مباشرة بدون استخدام توابع Dataset
حيث يكون التعامل اسرع بكثير من استخدام توابع Dataset
لعمل ذلك يمكنك مثلا كتابة ما يلي
insert into Table1(T1field1, T1field2) select T2field, T2field2 from table2
يمكن نقل القيم التي تريد من الجدول الاول الى الجدول الثاني حتى و لو لم يكن الجدولين متطابقين
انت تحدد الحقول التي تريدها من الجدول الاول مع الجدول الثاني فقط يجب ان يكون عدد الحقول التي
في الجملة السابقة من الجدول الاول مطابق لعدد الحقول للجدول الثاني
لاحظ ذلك في جملة ال SQL و ليس في بنية الجدول
بالتوفيق اخي الكريم
تم تعديل هذه المشاركة بواسطة waeldalol في 14 مايو 2006 في 20:03
رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.
لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"
هذا الشغل وإلا بلاش الله يعطيك العافيه يا أخ waeldalol لقد جربت الكود الذي ذكرت ونجحت العملية وهذا هو المطلوب وايضا أشكر الاخ Like Delphi على الرد ولكن يا أخوان انا سبق لي وان سألت عن سوال في هذا المنتدى دائما يدور في ذهني ولكن ما وجدت اجابه يمكن ما استطعت اوضح السؤال لهم ولكني سوف اطرحه مرة أخرى ربما أجد الحل لديكم بحكم خبرتكم في تعليمة ال sql السؤال هو
لدي جدول فيه سجلات أريد عرض هذه السجلات وكأنها حقول للجدول بدل ماتكون صفوف يعني تكون السجلات بشكل عمودي في ال dbgrid الله أعلم هل ممكن ذلك أم لا وشكرا لكم مرة أخرى.
هذا الموضوع مغلق.