Tabellen - Index vorhanden

Wie kann ich überprüfen, ob ein Index vorhanden ist?

Bevor Sie Indizes erstellen bzw. bearbeiten, sollten Sie vorab überprüfen, ob diese überhaupt vorhanden sind.

DAO-Variante

Beispiel:

Public Function DAO_IndexExists(pdbs As DAO.Database, _
                                ByVal psTable As String, _
                                ByVal psIDxName As String) As Boolean
    Dim S As String
    On Error Resume Next
    S = pdbs.TableDefs(psTable).Indexes(psIDxName).Name
    DAO_IndexExists = (Err.Number = 0)
 
End Function
ADOX-Variante

Beispiel:

Public Function ADO_IndexExists(pcnn As ADODB.Connection, _
                                ByVal psTable As String, _
                                ByVal psIDxName As String) As Boolean
    Dim S As String
    Dim cat As New ADOX.Catalog
 
    On Error Resume Next
    cat.ActiveConnection = pcnn
    S = cat.Tables(psTable).Indexes(psIDxName).Name
    If Not cat Is Nothing Then Set cat = Nothing
    ADO_IndexExists = (Err.Number = 0)
 
End Function


Zurück Tabellen - Indizes | Inhalt | Tabellen - Index erstellen Weiter