Cambiar nombre de tabla

[xavi]

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

Código: [Seleccionar]

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