Clustered プロパティの例 (VB)

この例では、Index の Clustered プロパティの機能を示します。Microsoft Jet データベースではクラスタ化されたインデックスがサポートされていないため、この例では Northwind データベースにあるすべてのインデックスの Clustered プロパティに対して False が返されます。

Sub ClusteredX()
    Dim cnn As New ADODB.Connection
    Dim cat As New ADOX.Catalog
    Dim tblLoop As ADOX.Table
    Dim idxLoop As ADOX.Index
    Dim strCnn as String

   StrCnn = "Provider=SQLOLEDB;Data Source=srv;Initial Catalog=pubs;" & _
            "User Id=sa;Password=;"
    ' Connect the catalog.
   cnn.Open strCnn
    cat.ActiveConnection = cnn
    
    ' Enumerate Tables
    For Each tblLoop In cat.Tables
        'Enumerate Indexes
        For Each idxLoop In tblLoop.Indexes
            Debug.Print tblLoop.Name & " " & _
                idxLoop.Name & " " & idxLoop.Clustered
        Next idxLoop
    Next tblLoop

End Sub