إضافة حقل إلى جدول بالكود

[شاكر الزين]

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

لفت نظري هذا العنوان في منتدى الفريق العربي للبرمجة ، وأحببت أن أشرح هذه الكيفية :

لإضافة حقل لجدول لابد من تعريف مسار قاعدة البيانات ثم تحديد الجدول الذي تريد إضافة الحقل إليه ،،، ثم تحدد إسم الحقل ،،، ثم تحديد خصائص هذا الحقل هل هو ( رقمي ) أو ( نصي ) أو ( تاريخ ) وفي حال خاصية الحقل ( نصي ) تحديد طوله ( 35 أو 45 أو 50 و ,,,, ) ،،، وفي حال وجود هذا الحقل في الجدول لابد أن تضع رسالة تبين وجود هذا الحقل في الجدول الذي قمت بتحديده ,,,,, تضع جميع هذه الأوامر في زر يقوم بتنفيذها عند الضغط عليه ،،،،

ففي حالة أن الحقل رقمي سوف يكون بهذه الكيفية :

.Fields.Append .CreateField("الهاتف", dbInteger)

وفي حالة أن الحقل نصي سوف يكون بهذه الكيفية :

.Fields.Append .CreateField("الاسم", dbText, 50)

وفي حالة أن الحقل تاريخ سوف يكون بهذه الكيفية :

.Fields.Append .CreateField("تاريخ الميلاد", dbDate)

شاكر

[شاكر الزين]

سوف أقوم بشرح مثال :

ملاحظة : هذه الطريقة لإضافة حقول في قاعدة بيانات موجودة من السابق ،،، للتنويه

افرض أن لديك قاعدة بيانات بإسم ( PHONE.MDB ) ويوجد بها جدول بإسم ( TB1 ) وموجودة على السواقة ( \:C ) ،،، وداخل المجلد ( TEL ) سوف يكون مسار هذه القاعدة هو : ( C:\TEL\PHONE.MDB ) ،،،

نريد إضافة حقول في الجدول ( TB1 ) الموجود بهذه القاعدة بمجرد ضغطة رز من ( نموذج ) ليس له علاقة بهذه القاعدة ،،، مثلاً :

حقل بإسم ( الاسم )

حقل بإسم ( الهاتف )

حقل بإسم ( العنوان )

حقل بإسم ( التاريخ )

سوف ننشيء نموذجاً فارغاً ونعمل به ( زر أمر ) فارغاً أيضاً ونعطي إسم للزر ( أمر0) ,,,, ثم نضع هذا الكود داخل هذا الزر في حدث ( عند النقر ) :

    Dim db As Database

    Dim tdfNew As TableDef

    Dim fldLoop As Field

   On Error GoTo Err_أمر0_Click


 Set db = DAO.OpenDatabase("c:\TEL\PHONE.MDB")


  Set tdfNew = db.TableDefs!tb1

    With tdfNew

    

        .Fields.Append .CreateField("الاسم", dbText, 50)

        .Fields.Append .CreateField("الهاتف", dbInteger)

        .Fields.Append .CreateField("التاريخ", dbDate)

        .Fields.Append .CreateField("العنوان", dbText, 40)

    End With

    MsgBox "تمت عملية إنشاء الحقول المحددة بنجاح!!!", vbOKOnly, "رسالة توضيح"

Exit_أمر0_Click:

    Exit Sub


Err_أمر0_Click:

    MsgBox "إما أن الحقول المراد إنشاؤها موجودة مسبقاً ، أو أن قاعدة البيانات غير موجودة في المكان المحدد!!!", vbOKOnly, "رسالة توضيح"

    Resume Exit_أمر0_Click

شاكر

[alhajri]

شرح وافي

جزاك الله خير وبارك الله فيك