250807.



Algunas veces queremos cambiar la estructura de nuestra base de datos... y probablemente tenemos que descargar de nuestro servidor, hacer los cambios y volverla a subir.

Bueno, si el cambio que debemos hacer es renombrar un campo entonces de ahora en más usamos este código y no bajamos nada la base para hacer las modificaciones.
' String de conexion. Modificar aqui el path y el nombre de la BD
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;data source=C:\inetpub\wwwroot\testdb.mdb"

' Cambiar aqui el nombre de la tabla a la que pertenece la columna
' Y cambiar el nombre actual y el nombre nuevo de la columna
tabla = "tabla1"
nombre_actual_columna = "informacion"
nombre_nuevo_columna = "detalle"

set conn = CreateObject("ADODB.Connection")
conn.open ConnStr
Set adox = CreateObject("ADOX.Catalog")
adox.ActiveConnection = Conn

adox.Tables(tabla).Columns(nombre_actual_columna).Name = nombre_nuevo_columna
adox.Tables.Refresh

Set adox = nothing
conn.close
Set conn = nothing