ADOX.Catalog中文帮助详细说明chm文档第3/3页

三、创建索引范例
如下代码演示如何创建新的索引。索引针对表的两个列建立。

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
四、创建关键字范例
如下代码演示如何创建新的外部关键字。假定已存在两个表（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   对象追加到集合或

最新评论