إنشاء قواعد بيانات أكسس من خلال الفجوال بيسك 6 بأستخدام ADOX
صفحة 1 من اصل 1 • شاطر
إنشاء قواعد بيانات أكسس من خلال الفجوال بيسك 6 بأستخدام ADOX
بسم الله الرحمن الرحيم
هل فكرت يوما إنشاء قواعد بيانات أكسس من خلال الفجوال بيسك 6 أثناء التشغيل ؟....نعم يمكنك فعل ذلك من خلال المكتبة ADOX .....فى البداية سنتحتاج الى أدراج المكتبات التالية للمشروع :
وذلك من خلال القائمة project ثم أختيار references ثم تحديد المكتبات السابقة ثم أوكية ...
_نقوم باضافة زر أمر على الفورم و ليكن "إنشاء" ومربع نص لكتابة أسم قاعدة البيانات الجديدة فيه
_ فى حدث النقر لزر الامر نقوم بكتابة الاكواد التالى :
1_ نقوم بالاعلان عن المتغيرات التالية و التى ستخدم لانشاء قاعدة البيانات و جدول قاعدة البيانات و متغير أخر للاتصال بقاعدة البيانات على النحو التالى :
3_ نقوم بانشاء جدوال قاعدة البيانات وذلك على النحو التالى :
4_ نقوم بالاتصال بقاعدة البيانات لاضافة بعض البيانات فى جدولها عن طريق الكود التالى :
تحياتى لكم
هل فكرت يوما إنشاء قواعد بيانات أكسس من خلال الفجوال بيسك 6 أثناء التشغيل ؟....نعم يمكنك فعل ذلك من خلال المكتبة ADOX .....فى البداية سنتحتاج الى أدراج المكتبات التالية للمشروع :
Microsoft ActiveX Data Objects 2.5 Library
Microsoft ADO Ext. for DDL and Security
وذلك من خلال القائمة project ثم أختيار references ثم تحديد المكتبات السابقة ثم أوكية ...
_نقوم باضافة زر أمر على الفورم و ليكن "إنشاء" ومربع نص لكتابة أسم قاعدة البيانات الجديدة فيه
_ فى حدث النقر لزر الامر نقوم بكتابة الاكواد التالى :
1_ نقوم بالاعلان عن المتغيرات التالية و التى ستخدم لانشاء قاعدة البيانات و جدول قاعدة البيانات و متغير أخر للاتصال بقاعدة البيانات على النحو التالى :
- الكود:
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim con As ADODB.Connection
- الكود:
Set cat = New ADOX.Catalog
cat.Create _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & txtDatabaseName.Text & ";"
3_ نقوم بانشاء جدوال قاعدة البيانات وذلك على النحو التالى :
- الكود:
Set tbl = New ADOX.Table
tbl.Name = "TestTable"
tbl.Columns.Append "FirstName", adVarWChar, 40
tbl.Columns.Append "LastName", adVarWChar, 40
cat.Tables.Append tbl
4_ نقوم بالاتصال بقاعدة البيانات لاضافة بعض البيانات فى جدولها عن طريق الكود التالى :
- الكود:
Set con = cat.ActiveConnection
con.Execute "INSERT INTO TestTable VALUES ('Rod', 'Stephens')"
Set con = Nothing
Set tbl = Nothing
Set cat = Nothing
- الكود:
Private Sub cmdCreate_Click()
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim con As ADODB.Connection
Set cat = New ADOX.Catalog
cat.Create _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & txtDatabaseName.Text & ";"
Set tbl = New ADOX.Table
tbl.Name = "TestTable"
tbl.Columns.Append "FirstName", adVarWChar, 40
tbl.Columns.Append "LastName", adVarWChar, 40
cat.Tables.Append tbl
Set con = cat.ActiveConnection
con.Execute "INSERT INTO TestTable VALUES ('Rod', 'Stephens')"
Set con = Nothing
Set tbl = Nothing
Set cat = Nothing
MsgBox "Done"
End Sub
تحياتى لكم
end.sub- .....
- تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 132
التقيم : 10
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 10:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 9:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الإثنين مارس 25, 2024 1:49 am من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 10:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 10:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 10:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 4:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 4:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 4:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 3:54 pm من طرف رانيا حماد