Problema con ALTER TABLE

[sonick2006]

a ver mentes brillantes, la cuestion es asi tengo una pagina asp se conecta a una bd de access la cual tiene una tabla con columnas, al cumplirse cierta condicion se tiene que renombrar una columna determinada y lo hago de la siguiente manera:

...
Columna = RecordsetCab.Fields.Item("titulo").Value

'------------- Para Modificar -----------------------
If (CStr(Request.Form("Modificar")) <> "") Then


SQLAlter = "ALTER TABLE tabla1 CHANGE " & Replace(Columna, " ", "_") & " " & Replace(Request.Form("Titulo"), " ", "_") & " TEXT(100)"
Set ComSQLALTER = server.CreateObject("ADODB.Connection")
ComSQLALTER.open MM_circulo_STRING
ComSQLALTER.execute(SQLALTER)

end if
...

si le hago un response.write al string SQLAlter y suponiendo que la tabla se llame tabla1 y la columna se llame columna1 y quiero cambiarle el nombre por columna2 me imprime esto

ALTER TABLE tabla1 CHANGE columna1 columna2 TEXT(100)

y cdo lo ejecuto me sale el siguiente error:

Microsoft JET Database Engine (0x80040E14)
Error de sintaxis en la instrucción ALTER TABLE.
/editacolumna.asp, línea 35

claro la linea 35 es la del string SQLAlter, pero no se cual es el error ya que googleando encontre que para modificar el nombre de la columna es como lo estoy haciendo, esta bien asi??? o es de otra manera??? gracias

P/D: uso replace por si ponen el nombre nuevo de la columna con espacios

[Adler]

Hola

No lo recuerdo pero creo no se puede usar Alter Table en Access.

EDITO: Se me ha ocurrido esto

Código asp:

con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./tubd.mdb")&";"
 
' Nombre de la tabla
tabla = "xxx" 
 
' Nombre de la columna
actual_columna = "xxx"
nueva_columna = "yyy"
 
set conn = CreateObject("ADODB.Connection") 
conn.open con
set adox = CreateObject("ADOX.Catalog") 
adox.ActiveConnection = conn 
 
' Renombra la columna
adox.Tables(tabla).Columns(actual_columna).Name = nueva_columna 
adox.Tables.Refresh 
 
Set adox = nothing 
conn.close
Set conn = nothing
 

Suerte

[posman]

En la ayuda de Access 2003 (tal vez sea diferente en otras versiones), en la sintaxis de la sentencia ALTER TABLE ni siquiera hay una opcion CHANGE. Segun la ayuda, con esta sentencia unicamente puedes agregar campos, cambiar el tipo de datos y eliminar campos

[sonick2006]

es cierto posman, he revisado la ayuda (pues uso access 2003) y no aparece esa opcion a pesar de que en internet figura asi, entonces alguien sabe como cambiar el nombre a una columna? gracias a los que respondieron hasta ahora

[sonick2006]

Listo ya lo solucione, lo que posteo Adler ya lo habia visto en otro lado pero por alguna razon no me funcionaba pero al probarlo de nuevo funciono perfecto. ya lo pueden cerrar