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

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)建關鍵字范例
如下代碼演示如何創(chuàng)建新的外部關鍵字。假定已存在兩個表（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   屬性（列）


指示列的數據類型

設置和返回值

設置或返回長整型值，該值是如下常量之一：

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


說明

默認值是   adVarWChar。

在   Column   對象追加到集合或

最新評論