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

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

اذهب الى الأسفل

إنشاء قاعدة بيانات أكسس بأستخدام الكائن DBEngine من خلال الفجوال بيسك 6 Empty إنشاء قاعدة بيانات أكسس بأستخدام الكائن 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
المساهمات : 178
النقاط : 346
التقيم : 12
الدولة : تونس
الجنس : ذكر

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

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

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

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

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

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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