إنشاء قاعدة بيانات أكسس بأستخدام الكائن DBEngine من خلال الفجوال بيسك 6
صفحة 1 من اصل 1 • شاطر
إنشاء قاعدة بيانات أكسس بأستخدام الكائن DBEngine من خلال الفجوال بيسك 6
بسم الله الرحمن الرحيم
قرات مقال أخى الكريم end.sub عن كيفية أنشا قاعدة بيانات أكسس بأستخدام ADOX وهو مقال يستحق القراءة على الرابط التالى
لذلك قررت أن اشرح طريقة اخرى و سهلة أيضا لانشاء قاعدة بيانات أكسس ولكن من خلال الكائن DBEngine وهو أحد الكائنات التابعة للمكتبة dao ....لذلك سنقوم بادراج المكتبة للمشروع من خلال القائمة project ثم أختيار references ثم تحديد المكتبات السابقة ثم أوكية
_ نقوم بالاعلان عن المتغيرات التالية :
مع ملاحظة ان :
_ Dates هو اسم الجدول الذى تم انشائه .....و تم تحديد نوع البيانات التى سيتم ادراجها فيه DATE
_ نقوم بتعئبة الجدول ببعض البيانات على النحو التالى :
قرات مقال أخى الكريم 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
طريقة مفيدة وسهلة و اشكرك على الاهتمام
end.sub- .....
- تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 132
التقيم : 10
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد