290807.



Lo que tiene de interesante este ejemplo, es simplemente la sentencia SQL, tal vez un tanto desconocida para algunos.
Con las sentencias que veremos a continuación podemos crear tablas nuevas sobre una base de datos ya existente, pudiendo también definir la cantidad y tipos de campo que la componen.

Hare un breve resumen de los parámetros de la sentencia para introducirlos y que sea mas fácil entenderla:

Sentencia Definición / Acción Ejemplo
CREATE TABLE Sirve para crear la nueva tabla CREATE TABLE mi_tabla
DROP TABLE Sirve para eliminar una tabla existente DROP TABLE mi_tabla
PRIMARY KEY Definimos el campo como Clave Primaria campo PRIMARY KEY
AUTOINCREMENT Definir un campo de tipo Auto Numerico campo AUTOINCREMENT
INTEGER Definir un campo de tipo Numerico campo INTEGER
TEXT (20) Definir un campo de tipo Texto campo TEXT(20)
DATETIME Definir un campo de tipo Dia/Fecha campo DATETIME
MEMO Definir un campo de tipo Memo campo MEMO


Y ahora si, pasamos al código de ejemplo donde hacemos la conexion a una base de datos cualquiera, creamos la sentencia SQL con los parámetros que vimos aqui arriba, y la ejecutamos sobre la base.

Suerte

<%
'Driver de conexion a la BD
StrConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("base.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oCOnn.Open StrConn
sql = "CREATE TABLE nombre_de_tabla "
sql = sql & "(campo_autonumerico AUTOINCREMENT PRIMARY KEY, "
sql = sql & "campo_numerico INTEGER, campo_texto TEXT(20) ,"
sql = sql & "campo_memo MEMO, campo_fecha DATETIME )"
'Ejecución de la sentecia sql sobre la BD
oConn.Execute sql
oCOnn.Close
Set oCOnn = Nothing
%>