Palabras clave: ADO, cambiar, nombre, renombrar, tabla
Autor: Desconocido
Extraído de: La web del Búho
Objetivo:
Cambiar el nombre de una tabla mediante el uso de ADO
Dim cn As ADODB.Connection
Dim t As Table
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data Source=C:\biblio.mdb"
Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = cn
cat.Tables("Authors").Name = "Authors2"
'Iterate through the tables collection
For Each t In cat.Tables
If t.Name = "Authors2" Then
Debug.Print t.DateModified
End If
Next
cn.Close
Set cn = Nothing
Te puede interesar...
Cambiar nombre de tabla (VBA) (http://www.llodax.com/smf/index.php?topic=47.0)