إنشاء قواعد بيانات أكسس من خلال الفجوال بيسك 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
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الخميس أبريل 25, 2024 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
الخميس أبريل 25, 2024 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r
» Exemplary Сasual Dating - Verified Women
الخميس أبريل 18, 2024 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
الخميس أبريل 18, 2024 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
الخميس أبريل 18, 2024 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft