Para eliminar el índice de una tabla, utilizaremos el método Delete de la colección Indexes de un objeto Table.
El siguiente ejemplo, eliminará el índice con nombre PrimaryKey de nuestra tabla Clientes:
Dim cat
As
ADOX.Catalog
Dim tbl As ADOX.Table
' Creo un objeto Catalog
Set cat = New
ADOX.Catalog
' Abrímos
el catálogo
cat.ActiveConnection =
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =
C:\Mis documentos\Mi base.mdb;"
' Hacemos referencia a la tabla que contiene el
' indice que deseamos eliminar
Set tbl =
cat.Tables("Clientes")
' Eliminamos el índice
tbl.Indexes.Delete "PrimaryKey"
Otros enlaces de interés:
Cómo crear un índice en una tabla
Cómo crear una base de datos Access
Cómo crear una tabla de Access
Enrique Martínez Montejo - 2003
NOTA: La información contenida en este artículo, así como el código fuente incluido en el mismo, se proporciona COMO ESTÁ, sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo explicado, recomendado o sugerido en el presente artículo.
NOTE: The information contained in this article and source code included therein, is provided AS IS without warranty of any kind, and confers no rights. You assume any risk to implement, use or run it explained, recommended or suggested in this article.