قسمت اول
یک بانک اطلاعاتی حاوی تعدادی جدول، ایندکس، قیود و چیزهای دیگری است. مجموعه این آیتمها به عنوان ساختار پایگاه داده شناخته می شود. هر دو روش DAO و ADO راههای ساده ای را برای شما مهیا کرده اند، روش مبنی بر شی برای هر دو به همان خوبی که اشیاء جدیدی در پایگاه داده می سازد، بازیابی اطلاعاتی درباره مشخصات اشیای موجود را بازیابی می کند.
ساخت یک بانک اطلاعاتی
قبل از اینکه جداول یا اشیاء دیگر را بتوانیم تعریف کنیم، باید بانک اطلاعاتی را ساخته باشیم. کد زیر یک بانک اطلاعاتی Microsoft Jet جدید را ساخته و باز می کند:
DAO:
Sub DAOCreateDatabase()
Dim db As DAO.Database
Set db = DBEngine.CreateDatabase(".\New.mdb", dbLangGeneral)
End Sub
ADOX:
Sub ADOCreateDatabase()
Dim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=.\New.mdb;"
End Sub
همانطور که ممکن است خودتان حدس زده باشید شی Database از DAO معادل شی Catalog در ADOX است. بنابراین برای ساختن یک بانک اطلاعاتی جدید از نوع Jet با استفاده از ADOX شما باید از متد Create شی Catalog استفاده کنید.
در کد DAO قبلی پارامتر Locale با dbLangGeneral مشخص شده است. در کد ADOX پارامتر Locale بصورت صریح مشخص نشده است. مقدار پیش فرض Locale برای فراهم کننده Microsoft Jet معادل dbLangGeneral است. برای تغییر مقدار Locale می توانید از خاصیت Locale Identifier استفاده کنید.
در متد CreateDatabase از DAO اغلب می توانیم پارمتر اختیاری سوم را هم در نظر بگیریم که مشخص کننده اطلاعاتی برای رمزگذاری و نسخه بانک اطلاعاتی است. برای مثال، کد زیر برای ساخت یک بانک اطلاعاتی رمز گذاری شده از نسخه Microsoft Jet 1.1 استفاده شده است.
Set db = DBEngine.CreateDatabase(".\New.mdb", dbLangGeneral,dbEncrypt Or dbVersion11)
در ADO رمز گذاری و اطلاعات نسخه بانک اطلاعاتی با استفاده از خواص مخصوص فراهم کننده مشخص می شوند. برای فراهم کننده Microsoft Jet، از خواص Engine Type(نوع موتور) و Encrypt Database (رمزگذاری بانک اطلاعاتی) استفاده می شود:
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=.\New.mdb;" & _
"Jet OLEDB:Encrypt Database=True;" & _
"Jet OLEDB:Engine Type=2;"
