Renombrar una columna de Access desde ASP
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
|
OJO, esto sólo funciona si el driver de conexión a la BD es a traves de JET/OLEDB, en caso de usar OBDC
recibiremos un error indicando que es imposible hacer esta operación
|
