Autor Tema: Cambiar nombre de tabla  (Leído 816 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 189
Cambiar nombre de tabla
« en: Abril 13, 2012, 10:06:52 pm »
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

« Última modificación: Abril 13, 2012, 11:30:15 pm por xavi »