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
%>