الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استعلام يغير اسم حقل في جدول

بدأه Like Delphi في 13 ديسمبر 2008 · 7 رد · 635 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بســم الله الـرحمــن الرحيــم

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

أقوم اسبوعياً باستيراد ملف نصي من أوراكل و أضعه في الأكسس

الملف حوالي 30 ألف سجل بعد الكثير من عمليات التنظيف و الحذف,

المهم

أنه عندما أضعه في الأكسس أقوم بتغيير أسماء الحقول التي يظهرها الأكسس وهي:

field1,field2,field3....

إلى أسماء خاصة لدي مثلاُ :

field1 = item_code

فأريد عمل استعلام عندما أشغله يقوم بتغيير أسماء هذه الحقول.

وجزاكم الله خيراً

قال تعالى: ((وَمَا أَصَابََكُمْ مِنْ مُصِيبَةٍ فَبمَا كَسَبَتْ أَيْدِيكُمْ وَ يَعْفُو عَنْ كَثِيرٍ)) :.:.: الشورى: الآية 30.

IN ALLAH WE TRUST

:.:.:.:.:.:.:.:.:.:.:.:.:.:

#2

بسم الله و الصلاة و السلام على رسول الله

إخواني الكرام بعد البحث على الإنترنت, لم أستطع إيجاد تعليمة تقوم بتغيير اسم الحقل مباشرة

و لكن وجدت طريقة تقضي بأن نقوم بإضافة عمود جديد بالاسم الذي نريد و النوع الذي نريد,

ثم نقوم بعملية نسخ للبيانات من العمود القديم إلى الجديد,

ثم آخرا نقوم بحذف العمود القديم, طريقة لا بأس بها.

الكود: - لكل استعلام على حدى.

استعلام 1: / إضافة عمود جديد

  1. ALTER TABLE tablename ADD COLUMN newcol TEXT(20); 
  2.  

استعلام2: / نسخ البيانات من العمود القديم إلى الجديد

  1. UPDATE tablename SET newcol = oldcol ; 
  2.  

استعلام3: / حذف العمود القديم

  1. ALTER TABLE tablename DROP COLUMN oldcol ; 
  2.  

ووفقني الله و إياكم إلى ما يحب و يرضى

تم تعديل هذه المشاركة بواسطة Like Delphi في 14 ديسمبر 2008 في 09:44

قال تعالى: ((وَمَا أَصَابََكُمْ مِنْ مُصِيبَةٍ فَبمَا كَسَبَتْ أَيْدِيكُمْ وَ يَعْفُو عَنْ كَثِيرٍ)) :.:.: الشورى: الآية 30.

IN ALLAH WE TRUST

:.:.:.:.:.:.:.:.:.:.:.:.:.:

#3

اخي Like Delphi

هل جربت الطريقة الاتية:

بعد استيراد البيانات الى الجدول قم بعمل استعلام انشاء جدول وغير اسماء الحقول بنفس الاستعلام ليصبح الحقل الاول بشبكة الاستعلام كالتالي:

item_code:field1

اتمنى لك التوفيق

#4

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

أخي العزيز يوسف

جزاك الله خيراً على مرورك,

بصراحة لم أجرب ما تقترح, ولكن هل يمكنك أن تقدم و لو مثال بسيط على ذلك.

حيث أنه لو كانت طريقتك أسرع في التنفيذ فهذا ما أبحث عنه.

وفقني الله و إياك إلى ما يحبه و يرضاه.

قال تعالى: ((وَمَا أَصَابََكُمْ مِنْ مُصِيبَةٍ فَبمَا كَسَبَتْ أَيْدِيكُمْ وَ يَعْفُو عَنْ كَثِيرٍ)) :.:.: الشورى: الآية 30.

IN ALLAH WE TRUST

:.:.:.:.:.:.:.:.:.:.:.:.:.:

#5

وعليكــم السـلام ورحمة الله وبركاتـه..

بارك الله فيك اخي العزيز Like Delphi

مرفق مثال يحتوي على جدول به حقلين Field1 و Field2

وقد تم عمل استعلام انشاء جدول ... هذا النوع من الاستعلامات يتم تحديده في عرض التصميم للإستعلام حيث يتم اختيار نوع الاستعلام كما بالصورة المرفقة

الاستعلام اسمه qry1 عند البدء بإنشائه سيطلب منك المعالج اسم الجدول المراد انشاؤه ... اكتب اسم الجدول الجديد ثم شغّل الاستعلام سينشئ لك جدولاً جديداً بالاسم المحدد

تأكد من الجدول الجديد وبعدها يمكنك حذف الجدول القديم.

دمت بوّد

post-74640-1229275909_thumb.jpg

ChangeFieldName.rar

تم تعديل هذه المشاركة بواسطة يوسف احمد في 15 ديسمبر 2008 في 13:58

#6

بســم الله الـرحمــن الرحيــم

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

مشاء الله أخ يوسف

هذه الطريقة تبدو أسرع من الطريقة التي قمت بوضعها,

يعني محتاج فقط أن نضيف على ما تفضلت استعلام حذف للجدول القديم.

و بذلك نكون قد تجاوزنا مشكلة تغيير اسم الحقل.

جزاك الله خيراً

تم تعديل هذه المشاركة بواسطة Like Delphi في 15 ديسمبر 2008 في 13:07

قال تعالى: ((وَمَا أَصَابََكُمْ مِنْ مُصِيبَةٍ فَبمَا كَسَبَتْ أَيْدِيكُمْ وَ يَعْفُو عَنْ كَثِيرٍ)) :.:.: الشورى: الآية 30.

IN ALLAH WE TRUST

:.:.:.:.:.:.:.:.:.:.:.:.:.:

#7

الأخ العزيز

يمكنك عمل الأتي

CurrentDb().TableDefs("t").Fields("a").Name = "b"

وذلك من خلال أي حدث تراه مناسب حيث

t اسم الجدول

a الأسم القديم للحقل

b الأسم الجديد للحقل

وشكراً

أحمد

#8

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

أخي الكريم a_beshari

أنا أبحث عن SQL Statement ,لأنني أحتاج أن أضعها ضمن استعلام.

وذلك أنني أتعامل مع ملف البيانات من خلال تطبيق خارجي.

و مع أذك حاولت تطبيق فكرتك من خلال برنامجي و لم تنجح, أعتقد فقط في البيسك تنجح.

و جزاك الله خيراً

اللهم عملنا ما ينفعنا و انفعنا بما علمتنا و زدنا علماً و عملاً و فقهنا في الدين.

قال تعالى: ((وَمَا أَصَابََكُمْ مِنْ مُصِيبَةٍ فَبمَا كَسَبَتْ أَيْدِيكُمْ وَ يَعْفُو عَنْ كَثِيرٍ)) :.:.: الشورى: الآية 30.

IN ALLAH WE TRUST

:.:.:.:.:.:.:.:.:.:.:.:.:.:

مواضيع مشابهة