إنشاء قاعدة بيانات أكسس بأستخدام الكائن DBEngine من خلال الفجوال بيسك 6

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

إنشاء قاعدة بيانات أكسس بأستخدام الكائن DBEngine من خلال الفجوال بيسك 6

مُساهمة من طرف م/موسي في الخميس سبتمبر 19, 2013 8:35 pm

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

قرات مقال أخى الكريم end.sub عن كيفية أنشا قاعدة بيانات أكسس بأستخدام ADOX وهو مقال يستحق القراءة على الرابط التالى 


لذلك قررت أن اشرح طريقة اخرى و سهلة أيضا لانشاء قاعدة بيانات أكسس ولكن من خلال الكائن DBEngine وهو أحد الكائنات التابعة للمكتبة dao ....لذلك سنقوم بادراج المكتبة للمشروع من خلال القائمة project ثم أختيار references ثم تحديد المكتبات السابقة ثم أوكية 

_ نقوم بالاعلان عن المتغيرات التالية :
الرمز:
Dim db_name As String
Dim db As Database
_ نستخدم الكود التالي لاعطاء اسم لقاعدة البيانات و تحديد مسار الحفظ ....وان كان فى هذا المسار قاعدة بيانات بنفس الاسم يتم حذفها و ذلك على النحو التالى :
الرمز:
 db_name = App.Path
    If Right$(db_name, 1) <> "\" Then db_name = db_name & _
        "\"
    db_name = db_name & "test.mdb"

    ' Delete the database if it exists.
    On Error Resume Next
    Kill db_name
    On Error GoTo 0
_ نقوم بانشاء قاعدة البيانات على النحو التالى :
الرمز:
Set db = DBEngine.CreateDatabase( _
        db_name, dbLangGeneral)
_ نقوم بانشاء الجدول فى قاعدة البيانات على النحو التالى :
الرمز:
db.Execute "CREATE TABLE Dates (TheDate DATE, TheNumber " & _
        "INTEGER)"

مع ملاحظة ان :

_ Dates هو اسم الجدول الذى تم انشائه .....و تم تحديد نوع البيانات التى سيتم ادراجها فيه DATE

_ نقوم بتعئبة الجدول ببعض البيانات على النحو التالى :

الرمز:
db.Execute "INSERT INTO Dates VALUES (#8/20/2002#, 0)"
    db.Execute "INSERT INTO Dates VALUES (#8/21/2002#, 1)"
    db.Execute "INSERT INTO Dates VALUES (#8/22/2002#, 2)"
    db.Execute "INSERT INTO Dates VALUES (#8/23/2002#, 3)"
    db.Execute "INSERT INTO Dates VALUES (#8/24/2002#, 4)"

_ و اخيرا يتم اغلاق الكائنات و اظهار رسالة للمستخدم تخبرة بانهاء المهمة على النحو التالى :

الرمز:
db.Close
    Set db = Nothing

    MsgBox "Done"
و فى النهاية ارجوا ان يكون الدرس سهل ومفيد مع تحياتى للجميع

م/موسي
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 130
النقاط : 252
التقيم : 8
الدولة : تونس
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إنشاء قاعدة بيانات أكسس بأستخدام الكائن DBEngine من خلال الفجوال بيسك 6

مُساهمة من طرف end.sub في الجمعة سبتمبر 20, 2013 7:32 am

طريقة مفيدة وسهلة و اشكرك على الاهتمام

end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى