三、創(chuàng)建索引范例
如下代碼演示如何創(chuàng)建新的索引。索引針對(duì)表的兩個(gè)列建立。

Sub CreateIndex()

        Dim tbl As New Table
        Dim idx As New ADOX.Index
        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;""

        ' 定義表并將其追加到目錄
        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   屬性（列）


指示列的數(shù)據(jù)類型

設(shè)置和返回值

設(shè)置或返回長(zhǎng)整型值，該值是如下常量之一：

常量   說明
adTinyInt   精確的數(shù)字值，精度為小數(shù)點(diǎn)后   3   位。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdSmallInt   精確數(shù)字值，精度為小數(shù)點(diǎn)后   5   位。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdInteger   精確數(shù)字值，精度為小數(shù)點(diǎn)后   10   位。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdBigInt   精確數(shù)字值，精度為小數(shù)點(diǎn)后   19   位。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdUnsignedTinyInt   無符號(hào)的   adTinyInt。
AdUnsignedSmallInt   無符號(hào)的   adSmallInt。
AdUnsignedInt   無符號(hào)的   adInteger。
AdUnsignedBigInt   無符號(hào)的   adBigInt。
AdSingle   單精度浮點(diǎn)數(shù)。
AdDouble   雙精度浮點(diǎn)數(shù)。
AdCurrency   貨幣類型。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdDecimal   變體型十進(jìn)制類型。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdNumeric   數(shù)值類型。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdBoolean   變體布爾類型。0   為假而   ~0   為真。
AdUserDefined   用戶定義的變量長(zhǎng)度數(shù)據(jù)類型。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdVariant   自動(dòng)變體型。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdGuid   全域唯一標(biāo)識(shí)符。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdDate   自動(dòng)日期。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdDBDate   數(shù)據(jù)庫日期數(shù)據(jù)結(jié)構(gòu)。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdDBTime   數(shù)據(jù)庫時(shí)間數(shù)據(jù)結(jié)構(gòu)。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdDBTimestamp   數(shù)據(jù)庫時(shí)間戳結(jié)構(gòu)。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdBSTR   BSTR   的指針。關(guān)于該類型的詳細(xì)資料，請(qǐng)參閱“OLE   DB   程序員參考”。
AdChar   定長(zhǎng)字符串。
AdVarChar   變長(zhǎng)字符串。
AdLongVarChar   長(zhǎng)變長(zhǎng)字符串。
AdWChar   寬定長(zhǎng)字符串。
AdVarWChar   寬變長(zhǎng)字符串。
AdLongVarWChar   長(zhǎng)、寬變長(zhǎng)字符串。
AdBinary   定長(zhǎng)二進(jìn)制數(shù)據(jù)。
AdVarBinary   變長(zhǎng)二進(jìn)制數(shù)據(jù)。
AdLongVarBinary   長(zhǎng)變長(zhǎng)二進(jìn)制數(shù)據(jù)。


說明

默認(rèn)值是   adVarWChar。

在   Column   對(duì)象追加到集合或