創(chuàng)建索引范例

創(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