كود انشاء قاعدة بيانات جديدة مع تحديد كلمة السر

[esam]

تعلمنا كيفية فتح قاعة بيانات لها كلمة مرور عن طريق هذا الكود

Dim wrkJet As Workspace
     Dim ABA As Database

Set wrkJet = DBEngine.Workspaces(0)
     Set ABA = wrkJet.OpenDatabase("c:\back.mdb", False, False, ";PWD=aman2")

ولكن ما هو كود انشاء قاعدة بيانات جديدة وتحديد لها كلمة مرور

[محمد طاهر عرفه]

هذا الكود من التعليمات ، و اضفت اليه ان كلمة السر تكون mm للقاعدة الجديدة

       Dim wrkDefault As Workspace
    Dim dbsNew As Database
    Dim prpLoop As Property

    ' Get default Workspace.
    Set wrkDefault = DBEngine.Workspaces(0)

    ' Make sure there isn't already a file with the name of
    ' the new database.
    If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb"
    Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", _
        dbLangGeneral & ";pwd=mm")
    dbsNew.Close

مع مالحظة أن المسار للقاعدة الجديدة سيكون فى المسار الافتراضي ( مجلد Mydocuments ) فى الغالب كما يوجد فى الكود سطر لحذف الملف اذا كان موجودا بالفعل فى هذا المسار

   If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb"

[محمد طاهر عرفه]

و يمكنك تعديل المسار كما يلي

  Dim wrkDefault As Workspace
    Dim dbsNew As Database
    Dim prpLoop As Property

    ' Get default Workspace.
    Set wrkDefault = DBEngine.Workspaces(0)

    ' Make sure there isn't already a file with the name of
    ' the new database.
    If Dir("c:\NewDB.mdb") <> "" Then Kill "c:\NewDB.mdb"
    Set dbsNew = wrkDefault.CreateDatabase("c:\NewDB.mdb", _
        dbLangGeneral & ";pwd=mm")