ADOX.Catalog使用方法

1、ADOX.Catalog 使用方法1、ADOX 概述Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security (ADOX) 是對 ADO 對象和編程模型 的擴展。 ADOX 包括用于模式創(chuàng)建和修改的對象， 以及安全 性。由于它是基于對象實現(xiàn)模式操作，所以用戶可以編寫對 各種數(shù)據(jù)源都能有效運行的代碼，而與它們原始語法中的差 異無關(guān)。ADOX 是核心 ADO 對象的擴展庫。它顯露的其他對象可 用于創(chuàng)建、修改和刪除模式對象，如表格和過程。它還包括 安全對象，可用于維護用戶和組，以及授予和撤消

2、對象的權(quán) 限。要通過開發(fā)工具使用 ADOX ，需要建立對 ADOX 類型庫的 引用。對 ADOX 庫的說明為 Microsoft ADO Ext. forDDL and Security.。ADOX 庫文件名為Msadox.dll ，程序 ID (ProgID) 為 ADOX 。有關(guān)建立庫引用的詳細信息，請參 閱開發(fā)工具的文檔。2、ADOX 對象Catalog包含描述數(shù)據(jù)源模式目錄的集合。Column表示表、索引或關(guān)鍵字的列。Group表示在安全數(shù)據(jù)庫內(nèi)有訪問權(quán)限的組帳號。Index表示數(shù)據(jù)庫表中的索引。Key表示數(shù)據(jù)庫表中的主關(guān)鍵字、外部關(guān)鍵字或唯一關(guān)鍵字。Procedure表示存儲的過程。

3、Table 表示數(shù)據(jù)庫表，包括列、索引和關(guān)鍵字。User表示在安全數(shù)據(jù)庫內(nèi)具有訪問權(quán)限的用戶帳號。View表示記錄或虛擬表的過濾集。3、ADOX 方法Append （ Columns） 將新的 Column 對象添加到 Columns 集合。Append（ Groups） 將新的 Group 對象添加到 Groups 集合。 Append（ Indexes） 將新的 Index 對象添加到 Indexes 集合。 Append （ Keys） 將新的 Key 對象添加到 Keys 集合。 Append （ Procedures） 將新的 Procedure 對象添加到 Procedures 集

4、合。Append （ Tables） 將新的 Table 對象添加到 Tables 集合。 Append （ Users） 將新的 User 對象添加到 Users 集合。Append （ Views） 將新的 View 對象添加到 Views 集合。ChangePassword 更改用戶帳號的密碼。Create 創(chuàng)建新的目錄。Delete 刪除集合中的對象。GetObjectOwner 返回目錄中對象的擁有者。GetPermissions 獲得對象上組或用戶的權(quán)限。Item 按名稱或序號返回集合的指定成員。Refresh 更新集合中的對象，以反映針對提供者可用的和指 定的對象。SetObje

5、ctOwner 指定目錄中對象的擁有者。SetPermissions 設(shè)置對象上組或用戶的權(quán)限。4、ADOX 屬性ActiveConnection 指示目錄所屬的 ADO Connection 對象。Attributes 描述列特性。Clustered 指示索引是否被分簇。Command 指定可用于創(chuàng)建或執(zhí)行過程的 ADO Command 對象。Count 指示集合中的對象數(shù)量。DateCreated 指示創(chuàng)建對象的日期。DateModified 指示上一次更改對象的日期。DefinedSize 指示列的規(guī)定最大大小。DeleteRule 指示主關(guān)鍵字被刪除時將執(zhí)行的操作。IndexNulls

6、 指示在索引字段中有 Null 值的記錄是否有索引 項。Name 指示對象的名稱。NumericScale 指示列中數(shù)值的范圍。ParentCatalog 指定表或列的父目錄以便訪問特定提供者的 屬性。Precision 指示列中數(shù)據(jù)值的最高精度。PrimaryKey 指示索引是否代表表的主關(guān)鍵字。RelatedColumn 指示相關(guān)表中相關(guān)列的名稱（僅關(guān)鍵字列） RelatedTable 指示相關(guān)表的名稱。SortOrder 指示列的排序順序（僅索引列） 。Type（列）指示列的數(shù)據(jù)類型。Type （關(guān)鍵字）指示關(guān)鍵字的數(shù)據(jù)類型。Type （表）指示表的類型。Unique 指示索引關(guān)鍵字是否

7、必須是唯一的。UpdateRule 指示主關(guān)鍵字被更新時會執(zhí)行的操作。5、范例一、創(chuàng)建數(shù)據(jù)庫范例如下代碼顯示如何通過 Create 方法創(chuàng)建新的 Jet 數(shù)據(jù)庫 ASP 代碼：set cat=server.createobject(ADOX.Catalog)cat.Create Provider=Microsoft.Jet.OLEDB.4.0;DataSource=c:new.mdbVB 代碼Sub CreateDatabase()Dim cat As New ADOX.Catalog cat.Create Provider=Microsoft.Jet.OLEDB.4.0;DataSource

8、=c:new.mdbEnd 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=&dbpathset tbl=Server.createobject(ADOX.Table)tbl.Name = MyTabletbl.Columns.Append Column1, 3adIntegertbl.Columns.AppendC

9、olumn2,3adIntegertbl.Columns.AppendColumn3,202,50 adVarWCharcat.Tables.Appendtbl%>VB 代碼： Sub CreateTable()Dim tbl As New TableDim cat As New ADOX.Catalog打開目錄。 打開目錄。cat.ActiveConnection = _Provider=Microsoft.Jet.OLEDB.4.0; & _ Data Source=c:Program FilesMicrosoft Office & _OfficeSamplesNor

10、thwind.mdb; tbl.Name = MyTable tbl.Columns.Append Column1, adInteger tbl.Columns.Append Column2, adInteger tbl.Columns.Append Column3, adVarWChar, 50 cat.Tables.Append tblEnd Sub三、創(chuàng)建索引范例 如下代碼演示如何創(chuàng)建新的索引。索引針對表的兩個列建Sub CreateIndex()Dim tbl As New TableDim idx As New ADOX.IndexDim cat As New ADOX.Catalo

11、g 打開目錄。 打開目錄。cat.ActiveConnection = _ Provider=Microsoft.Jet.OLEDB.4.0; & _ Data Source=c:Program FilesMicrosoftOffice & _OfficeSamplesNorthwind.mdb; 定義表并將其追加到目錄tbl.Name = MyTabletbl.Columns.Append Column1, adIntegertbl.Columns.Append Column2, adInteger tbl.Columns.Append Column3, adVarWChar

12、, 50 cat.Tables.Append tbl 定義多列索引idx.Name = multicolidxidx.Columns.Append Column1 idx.Columns.Append Column2 將索引追加到表上tbl.Indexes.Append idxEnd Sub四、創(chuàng)建關(guān)鍵字范例如下代碼演示如何創(chuàng)建新的外部關(guān)鍵字。假定已存在兩個表( Customers 和 Orders)。Sub CreateKey()Dim kyForeign As New ADOX.KeyDim cat As New ADOX.Catalog cat.ActiveConnection = Pr

13、ovider=Microsoft.Jet.OLEDB.4.0; & _Data Source=c:Program FilesMicrosoft Office & _OfficeSamplesNorthwind.mdb; kyForeign.Name = CustOrder kyForeign.Type = adKeyForeign kyForeign.RelatedTable = Customers kyForeign.Columns.Append CustomerId kyForeign.Columns(CustomerId).RelatedColumn= CustomerI

14、dkyForeign.UpdateRule = adRICascade cat.Tables(Orders).Keys.Append kyForeignEnd Sub/codeType 屬性（列） 指示列的數(shù)據(jù)類型設(shè)置和返回值 設(shè)置或返回長整型值，該值是如下常量之一： 常量 說明adTinyInt 精確的數(shù)字值，精度為小數(shù)點后 3 于該類型的詳細資料，請參閱 OLE DB 參考 。AdSmallInt 精確數(shù)字值，精度為小數(shù)點后 5 于該類型的詳細資料，請參閱 OLE DB 參考 。AdInteger 精確數(shù)字值，精度為小數(shù)點后 10 于該類型的詳細資料，請參閱 OLE DB 參考 。AdBi

15、gInt 精確數(shù)字值， 精度為小數(shù)點后 19 該類型的詳細資料，請參閱 OLE DB 考 。AdUnsignedTinyInt 無符號的adTinyInt 。位。關(guān)程序員位。關(guān)程序員位。關(guān)程序員位。關(guān)于程序員參AdUnsignedSmallInt 無符號的 adSmallInt 。 AdUnsignedInt 無符號的 adInteger。AdUnsignedBigInt 無符號的 adBigInt 。AdSingle 單精度浮點數(shù)。AdDouble 雙精度浮點數(shù)。AdCurrency 貨幣類型。關(guān)于該類型的詳細資料，請參閱 OLE DB 程序員參考 。AdDecimal 變體型十進制類型。關(guān)

16、于該類型的詳細資料， 請參閱 OLE DB 程序員參考 。AdNumeric 數(shù)值類型。關(guān)于該類型的詳細資料，請參閱 OLE DB 程序員參考 。AdBoolean 變體布爾類型。 0 為假而 0 為真。 AdUserDefined 用戶定義的變量長度數(shù)據(jù)類型。關(guān)于該類 型的詳細資料，請參閱 OLE DB 程序員參考 。AdVariant 自動變體型。關(guān)于該類型的詳細資料，請參閱 OLE DB 程序員參考 。AdGuid 全域唯一標識符。關(guān)于該類型的詳細資料，請參閱OLE DB 程序員參考 。AdDate 自動日期。關(guān)于該類型的詳細資料，請參閱OLE DB 程序員參考 。AdDBDate 數(shù)據(jù)庫日期數(shù)據(jù)結(jié)構(gòu)。關(guān)于該類型的詳細資 料，請參閱 OLE DB 程序員參考 。AdDBTime 數(shù)據(jù)庫時間數(shù)據(jù)結(jié)構(gòu)。關(guān)于該類型的詳細資料，請參閱 OLE DB 程序員參考 。 AdDBTimestamp 數(shù)據(jù)庫時間戳結(jié)構(gòu)。關(guān)于該類型的詳細 資料，請參閱 OLE DB