Foros del Web » Programando para Internet » ASP Clásico »

crear en access

Estas en el tema de crear en access en el foro de ASP Clásico en Foros del Web. Hola, quiero saber cual es el código para crear tablas en access y crear columas en las tablas, que se cree desde una página de ...
  #1 (permalink)  
Antiguo 08/04/2002, 21:53
Avatar de mamon  
Fecha de Ingreso: enero-2002
Ubicación: Lima
Mensajes: 1.302
Antigüedad: 23 años, 4 meses
Puntos: 3
crear en access

Hola, quiero saber cual es el código para crear tablas en access y crear columas en las tablas, que se cree desde una página de asp.


Giancarlo Loret de Mola (Mamon)
  #2 (permalink)  
Antiguo 08/04/2002, 22:15
 
Fecha de Ingreso: febrero-2002
Ubicación: Mi ASP Bunker
Mensajes: 397
Antigüedad: 23 años, 2 meses
Puntos: 1
Re: crear en access

Aca va mamon:

conn.Execute("CREATE TABLE MiTabla (Codigo INTEGER, Nombre TEXT(30), Fecha DATETIME)")

Otros tipos de datos pueden ser LONG,DECIMAL,MONEY,IMAGE,BINARY,BIT...etc

bye
  #3 (permalink)  
Antiguo 29/08/2005, 08:58
Avatar de Saruman  
Fecha de Ingreso: mayo-2003
Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 22 años
Puntos: 5
con respecto a este tema, me interesa saber como validar o preguntar si una tabla ya existe???

gracias.
__________________
Saruman

One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them.
  #4 (permalink)  
Antiguo 29/08/2005, 10:19
Avatar de Saruman  
Fecha de Ingreso: mayo-2003
Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 22 años
Puntos: 5
ya la tengo:

Código:
 
Public Function TableExists(dbname, tableToFind)
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" 
ConnStr = ConnStr & server.mappath(dbname) 
 
set adoxConn = CreateObject("ADOX.Catalog") 
set adodbConn = CreateObject("ADODB.Connection") 
adodbConn.open ConnStr 
adoxConn.activeConnection = adodbConn 
found = false 
for each table in adoxConn.tables 
if lcase(table.name) = lcase(tableToFind) then 
	found = true 
	exit for 
end if 
next
 
if found = false then
sSQL = "CREATE TABLE " & tableToFind & " (id_email AUTOINCREMENT PRIMARY KEY, envios TEXT(200))"
adodbConn.Execute(sSQL)
end if
 
adodbConn.close: set adodbConn = nothing 
set adoxConn = nothing
end function
referencia: http://www.aspfaq.com/show.asp?id=2350
__________________
Saruman

One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them.

Última edición por Saruman; 29/08/2005 a las 10:37
  #5 (permalink)  
Antiguo 29/08/2005, 10:23
Avatar de mamon  
Fecha de Ingreso: enero-2002
Ubicación: Lima
Mensajes: 1.302
Antigüedad: 23 años, 4 meses
Puntos: 3
Asu!! Este Mensaje Lo Puse En El 2002! Jajjaja
__________________
Yo si sé lo que es trabajar duro, porque lo he visto.
  #6 (permalink)  
Antiguo 29/08/2005, 10:38
Avatar de Saruman  
Fecha de Ingreso: mayo-2003
Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 22 años
Puntos: 5
Cita:
Iniciado por mamon
Asu!! Este Mensaje Lo Puse En El 2002! Jajjaja
si jejejejee lo que pasa es que hice una busqueda y encontre tu post y no quise hacer uno nuevo sino que utilice este viegiiiisssiiimoooooo para solicitar lo que neceistaba... pero NADIE me respondio... puedes creerlo??
__________________
Saruman

One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 10:09.