Lanzar el borrado de datos de una tabla no tiene mucho misterio. Un poco de conocimiento del lenguaje SQL y una conexión a la base de datos sería suficiente. Incluso puede a llegar ser peligroso, ya que el lanzamiento de esta sentencia en un entorno no adecuado (y sin backup de por medio) puede ser altamente destructivo. Seguro que todos conocemos a alguien que ha pasado por dicho trance.
Echemosle un vistazo a como es la query de borrado:
DELETE FROM tabla
WHERE atributo = valor
Desde ASP no es muy complejo. Solo hace falta conocer el mecanismo para lanzar queries sobre una base de datos. A partir de ese punto, nuestra imaginación: consultas, creación de tablas, creación de indices, visualizaciones de planes de ejecucion,…
Para empezar, lo primero que tenemos que hacer es definir la conexión a la base de datos. Para ello utilizamos el objeto Server, el cual, nos permite instanciar un objeto del tipo ADODB.Connection. Este objeto representa es la conexión con la base de datos.
Esta conexión tiene multiples parámetros, que no vamos a entrar a evaluar ahora, y dos formas de ejecutarla: con o sin DSN. En este caso, lo que vamos a utilizar es el DSN. Es por ello que necesitaremos haber dado de alta nuestra base de datos como conector ODBC. Nuestro DSN se llama «test».
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "DSN=test"
db.open DB_CONNECTIONSTRING
Una vez que tenemos la conexión establecida lo que tenemos que crear es un objeto ADODB.Command. Este objeto, que también instanciaremos (como todos los objetos) mediante el objeto Server, nos permitirá lanzar la sentencia de borrado sobre la base de datos.
Con el objeto ADODB.Command tenemos que seguir tres pasos:
- Indicarle cual es la conexión de la base de datos con la que estamos trabajando. Esto lo hacemos mediante el atributo ActiveConnection, pasandole como valor la instanciación del objeto Connection.
- Escribir la query que queremos ejecutar. En nuestro caso el DELETE. La cadena de texto con la query la pasamos mediante el atributo CommandText.
- Ejecutamos la query. Esto lo hacemos invocando al método Execute.
Nos quedaría el siguiente código:
Set sqlText = Server.CreateObject("ADODB.Command")
sqlText.ActiveConnection = db
sqlText.CommandText = "DELETE FROM test2 WHERE valor='borrar'"
sqlText.Execute
Y al final del todo, no olvides cerrar los objetos utilizados y asignarles el valor Nothing, para liberar memoria del servidor. Ojo, el objeto ADODB.Command no tiene método close, a si que solo podrás asignarle el valor de Nothing.
Set sqlText = Nothing
db.close
Set db = Nothing
