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

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

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

مُساهمة من طرف end.sub في الأربعاء سبتمبر 18, 2013 9:20 am

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

هل فكرت يوما إنشاء قواعد بيانات أكسس من خلال الفجوال بيسك 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
2_ نقوم بكتابة الكود المسؤل عن انشاء قاعدة البيانات على النحو التالى :
الرمز:
 Set cat = New ADOX.Catalog
    cat.Create _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & txtDatabaseName.Text & ";"
حيث أن txtDatabaseName هو مربع النص الذى سنقوم بكتابة أسم قاعدة البيانات الجديدة فية

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
حيث أن TestTable هو اسم الجدول الذى اردت إنشاءة فى قاعدة البيانات ...أما FirstName و LastName هى الحقول المراد انشائها فى الجدول مع تحديد بعض الخصائص adVarWChar نوع البيانات فى الحقل و حجمة 40 حرف

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
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

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

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


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