Indexes, exemple de méthode Append (VB)
Le code suivant montre comment créer un nouvel index. L’index se trouve sur deux colonnes de la table.
Attribute VB_Name = "IndexesAppend"
Option Explicit
' BeginCreateIndexVB
Sub Main()
On Error GoTo CreateIndexError
Dim tbl As New Table
Dim idx As New ADOX.Index
Dim cat As New ADOX.Catalog
'Open the catalog.
cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='Northwind.mdb';"
' Define the table and append it to the catalog.
tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl
Debug.Print "Table 'MyTable' is added."
' Define a multi-column index.
idx.Name = "multicolidx"
idx.Columns.Append "Column1"
idx.Columns.Append "Column2"
' Append the index to the table.
tbl.Indexes.Append idx
Debug.Print "The index is appended to table 'MyTable'."
'Delete the table as this is a demonstration.
cat.Tables.Delete tbl.Name
Debug.Print "Table 'MyTable' is deleted."
'Clean up.
Set cat.ActiveConnection = Nothing
Set cat = Nothing
Set tbl = Nothing
Set idx = Nothing
Exit Sub
CreateIndexError:
Set cat = Nothing
Set tbl = Nothing
Set idx = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndCreateIndexVB
Voir aussi
Append, méthode (index ADOX)
Index, objet (ADOX)
Indexes, collection (ADOX)
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour