1、ADOX 概述
Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security (ADOX) 是對 ADO 對象和編程模型的擴展。ADOX 包括用于模式創(chuàng )建和修改的對象，以及安全性。由于它是基于對象實(shí)現模式操作，所以用戶(hù)可以編寫(xiě)對各種數據源都能有效運行的代碼，而與它們原始語(yǔ)法中的差異無(wú)關(guān)。
ADOX 是核心 ADO 對象的擴展庫。它顯露的其他對象可用于創(chuàng )建、修改和刪除模式對象，如表格和過(guò)程。它還包括安全對象，可用于維護用戶(hù)和組，以及授予和撤消對象的權限。
要通過(guò)開(kāi)發(fā)工具使用 ADOX，需要建立對 ADOX 類(lèi)型庫的引用。對 ADOX 庫的說(shuō)明為“Microsoft ADO Ext. for DDL and Security.”。ADOX 庫文件名為“Msadox.dll”，程序 ID (ProgID) 為“ADOX”。有關(guān)建立庫引用的詳細信息，請參閱開(kāi)發(fā)工具的文檔。
2、ADOX 對象
Catalog 包含描述數據源模式目錄的集合。
Column 表示表、索引或關(guān)鍵字的列。
Group 表示在安全數據庫內有訪(fǎng)問(wèn)權限的組賬號。
Index 表示數據庫表中的索引。
Key 表示數據庫表中的主關(guān)鍵字、外部關(guān)鍵字或唯一關(guān)鍵字。
Procedure 表示存儲的過(guò)程。
Table 表示數據庫表，包括列、索引和關(guān)鍵字。
User 表示在安全數據庫內具有訪(fǎng)問(wèn)權限的用戶(hù)賬號。
View 表示記錄或虛擬表的過(guò)濾集。
3、ADOX 方法
Append（Columns） 將新的 Column 對象添加到 Columns 集合。
Append（Groups） 將新的 Group 對象添加到 Groups 集合。
Append（Indexes） 將新的 Index 對象添加到 Indexes 集合。
Append（Keys） 將新的 Key 對象添加到 Keys 集合。
Append（Procedures） 將新的 Procedure 對象添加到 Procedures 集合。
Append（Tables） 將新的 Table 對象添加到 Tables 集合。
Append（Users） 將新的 User 對象添加到 Users 集合。
Append（Views） 將新的 View 對象添加到 Views 集合。
ChangePassword 更改用戶(hù)賬號的密碼。
Create 創(chuàng )建新的目錄。
Delete 刪除集合中的對象。
GetObjectOwner 返回目錄中對象的擁有者。
GetPermissions 獲得對象上組或用戶(hù)的權限。
Item 按名稱(chēng)或序號返回集合的指定成員。
Refresh 更新集合中的對象，以反映針對提供者可用的和指定的對象。
SetObjectOwner 指定目錄中對象的擁有者。
SetPermissions 設置對象上組或用戶(hù)的權限。
4、ADOX 屬性
ActiveConnection 指示目錄所屬的 ADO Connection 對象。
Attributes 描述列特性。
Clustered 指示索引是否被分簇。
Command 指定可用于創(chuàng )建或執行過(guò)程的 ADO Command 對象。
Count 指示集合中的對象數量。
DateCreated 指示創(chuàng )建對象的日期。
DateModified 指示上一次更改對象的日期。
DefinedSize 指示列的規定最大大小。
DeleteRule 指示主關(guān)鍵字被刪除時(shí)將執行的操作。
IndexNulls 指示在索引字段中有 Null 值的記錄是否有索引項。
Name 指示對象的名稱(chēng)。
NumericScale 指示列中數值的范圍。
ParentCatalog 指定表或列的父目錄以便訪(fǎng)問(wèn)特定提供者的屬性。
Precision 指示列中數據值的最高精度。
PrimaryKey 指示索引是否代表表的主關(guān)鍵字。
RelatedColumn 指示相關(guān)表中相關(guān)列的名稱(chēng)（僅關(guān)鍵字列）。
RelatedTable 指示相關(guān)表的名稱(chēng)。
SortOrder 指示列的排序順序（僅索引列）。
Type(列) 指示列的數據類(lèi)型。
Type（關(guān)鍵字） 指示關(guān)鍵字的數據類(lèi)型。
Type（表） 指示表的類(lèi)型。
Unique 指示索引關(guān)鍵字是否必須是唯一的。
UpdateRule 指示主關(guān)鍵字被更新時(shí)會(huì )執行的操作。
5、范例
一、創(chuàng )建數據庫范例
如下代碼顯示如何通過(guò) Create 方法創(chuàng )建新的 Jet 數據庫。
ASP代碼：
-----------------------------------------------------------
set cat=server.createobject("ADOX.Catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"
VB代碼
--------------------------------
Sub CreateDatabase()
'Dim cat As New ADOX.Catalog
' cat.Create ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb""
End Sub
二、創(chuàng )建表范例ASP代碼：
-------------<%
set cat=server.createobject("ADOX.Catalog")
dbpath=server.mappath("/shit/date/new.mdb") cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath
set tbl=Server.createobject("ADOX.Table")
tbl.Name = "MyTable"
tbl.Columns.Append "Column1", 3 'adInteger
tbl.Columns.Append "Column2", 3 'adInteger
tbl.Columns.Append "Column3", 202 ,50 'adVarWChar
cat.Tables.Append tbl
%>
VB代碼：---------------
Sub CreateTable()
Dim tbl As New Table
Dim cat As New ADOX.Catalog
'打開(kāi)目錄。
' 打開(kāi)目錄。
cat.ActiveConnection = _
""Provider=Microsoft.Jet.OLEDB.4.0;"" & _
""Data Source=c:\Program Files\Microsoft Office\"" & _
""Office\Samples\Northwind.mdb;""
tbl.Name = ""MyTable""
tbl.Columns.Append ""Column1"", adInteger
tbl.Columns.Append ""Column2"", adInteger
tbl.Columns.Append ""Column3"", adVarWChar, 50
cat.Tables.Append tbl
End Sub
三、創(chuàng )建索引范例
如下代碼演示如何創(chuàng )建新的索引。索引針對表的兩個(gè)列建立。
Sub CreateIndex()
Dim tbl As New Table
Dim idx As New ADOX.Index
Dim cat As New ADOX.Catalog
' 打開(kāi)目錄。
' 打開(kāi)目錄。
cat.ActiveConnection = _
""Provider=Microsoft.Jet.OLEDB.4.0;"" & _
""Data Source=c:\Program Files\Microsoft Office\"" & _
""Office\Samples\Northwind.mdb;""
' 定義表并將其追加到目錄
tbl.Name = ""MyTable""
tbl.Columns.Append ""Column1"", adInteger
tbl.Columns.Append ""Column2"", adInteger
tbl.Columns.Append ""Column3"", adVarWChar, 50
cat.Tables.Append tbl
' 定義多列索引
idx.Name = ""multicolidx""
idx.Columns.Append ""Column1""
idx.Columns.Append ""Column2""
' 將索引追加到表上
tbl.Indexes.Append idx
End Sub
四、創(chuàng )建關(guān)鍵字范例
如下代碼演示如何創(chuàng )建新的外部關(guān)鍵字。假定已存在兩個(gè)表（Customers 和 Orders）。
Sub CreateKey()
Dim kyForeign As New ADOX.Key
Dim cat As New ADOX.Catalog
cat.ActiveConnection = ""Provider=Microsoft.Jet.OLEDB.4.0;"" & _
""Data Source=c:\Program Files\Microsoft Office\"" & _
""Office\Samples\Northwind.mdb;""
kyForeign.Name = ""CustOrder""
kyForeign.Type = adKeyForeign
kyForeign.RelatedTable = ""Customers""
kyForeign.Columns.Append ""CustomerId""
kyForeign.Columns(""CustomerId"").RelatedColumn = ""CustomerId""
kyForeign.UpdateRule = adRICascade
cat.Tables(""Orders"").Keys.Append kyForeign
End Sub
[/code]
Type 屬性（列）
指示列的數據類(lèi)型
設置和返回值
設置或返回長(cháng)整型值，該值是如下常量之一：
常量 說(shuō)明
adTinyInt 精確的數字值，精度為小數點(diǎn)后 3 位。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdSmallInt 精確數字值，精度為小數點(diǎn)后 5 位。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdInteger 精確數字值，精度為小數點(diǎn)后 10 位。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdBigInt 精確數字值，精度為小數點(diǎn)后 19 位。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdUnsignedTinyInt 無(wú)符號的 adTinyInt。
AdUnsignedSmallInt 無(wú)符號的 adSmallInt。
AdUnsignedInt 無(wú)符號的 adInteger。
AdUnsignedBigInt 無(wú)符號的 adBigInt。
AdSingle 單精度浮點(diǎn)數。
AdDouble 雙精度浮點(diǎn)數。
AdCurrency 貨幣類(lèi)型。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdDecimal 變體型十進(jìn)制類(lèi)型。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdNumeric 數值類(lèi)型。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdBoolean 變體布爾類(lèi)型。0 為假而 ~0 為真。
AdUserDefined 用戶(hù)定義的變量長(cháng)度數據類(lèi)型。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdVariant 自動(dòng)變體型。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdGuid 全域唯一標識符。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdDate 自動(dòng)日期。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdDBDate 數據庫日期數據結構。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdDBTime 數據庫時(shí)間數據結構。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdDBTimestamp 數據庫時(shí)間戳結構。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdBSTR BSTR 的指針。關(guān)于該類(lèi)型的詳細資料，請參閱“OLE DB 程序員參考”。
AdChar 定長(cháng)字符串。
AdVarChar 變長(cháng)字符串。
AdLongVarChar 長(cháng)變長(cháng)字符串。
AdWChar 寬定長(cháng)字符串。
AdVarWChar 寬變長(cháng)字符串。
AdLongVarWChar 長(cháng)、寬變長(cháng)字符串。
AdBinary 定長(cháng)二進(jìn)制數據。
AdVarBinary 變長(cháng)二進(jìn)制數據。
AdLongVarBinary 長(cháng)變長(cháng)二進(jìn)制數據。
說(shuō)明
默認值是 adVarWChar。
在 Column 對象追加到集合或
聯(lián)系客服
