Palabras clave: ADO, cambiar, nombre, 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