三、創(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)建關(guān)鍵字范例
如下代碼演示如何創(chuàng)建新的外部關(guān)鍵字。假定已存在兩個表（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è)置或返回長整型值，該值是如下常量之一：

常量   說明
adTinyInt   精確的數(shù)字值，精度為小數(shù)點后   3   位。關(guān)于該類型的詳細資料，請參閱“OLE   DB   程序員參考”。
AdSmallInt   精確數(shù)字值，精度為小數(shù)點后   5   位。關(guān)于該類型的詳細資料，請參閱“OLE   DB   程序員參考”。
AdInteger   精確數(shù)字值，精度為小數(shù)點后   10   位。關(guān)于該類型的詳細資料，請參閱“OLE   DB   程序員參考”。
AdBigInt   精確數(shù)字值，精度為小數(shù)點后   19   位。關(guān)于該類型的詳細資料，請參閱“OLE   DB   程序員參考”。
AdUnsignedTinyInt   無符號的   adTinyInt。
AdUnsignedSmallInt   無符號的   adSmallInt。
AdUnsignedInt   無符號的   adInteger。
AdUnsignedBigInt   無符號的   adBigInt。
AdSingle   單精度浮點數(shù)。
AdDouble   雙精度浮點數(shù)。
AdCurrency   貨幣類型。關(guān)于該類型的詳細資料，請參閱“OLE   DB   程序員參考”。
AdDecimal   變體型十進制類型。關(guān)于該類型的詳細資料，請參閱“OLE   DB   程序員參考”。
AdNumeric   數(shù)值類型。關(guān)于該類型的詳細資料，請參閱“OLE   DB   程序員參考”。
AdBoolean   變體布爾類型。0   為假而   ~0   為真。
AdUserDefined   用戶定義的變量長度數(shù)據(jù)類型。關(guān)于該類型的詳細資料，請參閱“OLE   DB   程序員參考”。
AdVariant   自動變體型。關(guān)于該類型的詳細資料，請參閱“OLE   DB   程序員參考”。
AdGuid   全域唯一標(biāo)識符。關(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   程序員參考”。
AdBSTR   BSTR   的指針。關(guān)于該類型的詳細資料，請參閱“OLE   DB   程序員參考”。
AdChar   定長字符串。
AdVarChar   變長字符串。
AdLongVarChar   長變長字符串。
AdWChar   寬定長字符串。
AdVarWChar   寬變長字符串。
AdLongVarWChar   長、寬變長字符串。
AdBinary   定長二進制數(shù)據(jù)。
AdVarBinary   變長二進制數(shù)據(jù)。
AdLongVarBinary   長變長二進制數(shù)據(jù)。


說明

默認值是   adVarWChar。

在   Column   對象追加到集合或

最新評論