ACCESS + SQL
CREAMOS LA BASE DE DATOS EN ACCESS
Abrimos Access y elegimos "Crear una nueva base de datos usando" "Base de datos de Access en blanco"
Lo guardamos, por ejemplo, en "mis documentos", con el nombre "db1.mdb" Después creamos una tabla en vista diseño
Ingresen los mismos datos q ven a continuación, ya q estos son los datos (la tabla) q vamos a usar para programar.
Guarden la tabla con el nombre "Tabla1" Ahora ingresamos los datos en la tabla:
Y ahora lo mas importante. Para no tener inconvenientes de compatibilidad vamos a hacer lo siguiente:
"Herramientas -> Utilidades de las base de datos -> Convertir base de datos -> A una versión anterior de la base dee datos de Access…"
Guardamos con el nombre "base1.mdb"
Esta base de datos llamada "base1.mdb" es la q vamos a usar en Visual Basic. No usaremos la otra (db1) por motivos de compatibilidad. En definitiva, ambas bases de datos son iguales, solo cambia la versión.
AHORA TRABAJAMOS EN VISUAL BASIC
Cuando creamos el proyecto lo primero q debemos hacer para trabajar con nuestra base de datos es la "referencia al motor de bases de datos de Microsoft". Para esto desde Visual Basic vamos al menu Proyecto -> Referencia y seleccionamos Microsoft DAO 3.51 Object Library (si tenes otra versión igual tiene q funcionar).
Ahora para ver lo q estamos haciendo cuando ejecutamos, vamos a agregar una ListBox (llamada List1) en nuestro formulario.
A partir de ahora es todo codigo.
Creamos las variables en la parte General del formulario:
Dim BDD as DataBase 'Objeto para manejar la base de datos
Dim TBL as RecordSet 'Objeto para manejar la Tabla
Es importante q tengan en cuenta lo q maneja cada objeto.
Dijimos q el objeto BDD maneja la base de datos. Entonces podemos cargarla alli de la siguiente manera:
Set BDD = OpenDatabase("c:mis documentosbase1.mdb") 'Abre la base de datos
Bueno, ahora q tenemos abierta la base de datos, vamos a realizar unas consultas utilizando ordenes SQL. Por lo tanto podriamos declarar una variable para almacenar nuestra sentencia SQL.
Dim SQL As String
Ya estamos listos para aplicar SQL…
ORDENES PARA MODIFICAR DATOS
UPDATE INSERT INTO DELETE
UPDATE
Podemos cambiar los datos q queramos en la tabla q queramos mediante la orden UPDATE. Por ejemplo, en la tabla1, donde teniamos nombre, apellido y edad. Supongamos q queremos q todas las edades se pongan a 0 (cero).
Private Sub Form_Load() Dim BDD As Database Dim TBL As Recordset Dim SQL As String
Set BDD = OpenDatabase("c:mis documentosbase1.mdb")
SQL = "UPDATE tabla1 SET edad = 0" BDD.Execute SQL
SQL = "SELECT * FROM tabla1"
Set TBL = BDD.OpenRecordset(SQL) TBL.MoveFirst
Do Until TBL.EOF
List1.AddItem TBL("nombre") & " " & TBL("apellido") & " tiene " & TBL("edad") TBL.MoveNext
Loop
TBL.Close
BDD.Close
End Sub
En este caso cambiamos la manera de trabajar, o mejor dicho, para la orden UPDATE trabajamos directamente sobre el objeto Database q almacena la base de datos donde queremos realizar el cambio. Para ejecutar una sentencia SQL podemos poner nombre_variable_database.Execute "sentencia_SQL"
Veamos nuestra sentencia: actualizar (UPDATE) de la tabla1 las edades, ponerlas a cero (SET
edad=0).
Tambien podemos utilizar la orden WHERE para especificar algo mas preciso. Por ejemplo poner a cero las edades q sean mayores q 21.
SQL = "UPDATE tabla1 SET edad = 0 WHERE edad>21"
INSERT INTO
Tambien podemos insertar nuevos registros. Para ello utilizamos la orden INSERT INTO. Veamos un ejemplo. En la tabla1 tengo los campos nombre, apellido y edad. Bien, ahora quiero agregar un nuevo nombre, apellido y edad.
SQL = "INSERT INTO tabla1 (nombre,apellido,edad) VALUES('damian','sotto',22)" BDD.Execute SQL
Bien, primero decimos insertar en la tabla1 (INSERT INTO tabla1) nuevos valores para los campos (nombre, apellido,edad) los valores son para el primer campo damian, para el segundo sotto y para el tercero 22.
En VALUES se escriben los valores de los campos en el mismo orden en q se especificaron. Los caracteres van entre ' ' y las fechas entre {}. Si no especificamos valores entonces el campo queda vacio. Pero si o si debe haber un valor para poder crear un nuevo registro.
Bueno, ya sabemos como actualizar datos y como agregar datos. Ahora nos falta como eliminar datos.
DELETE
Esta sentencia se utiliza para borrar los registros de una tabla. La sentencia es DELETE FROM nombre_tabla WHERE condiciones.
SQL = "DELETE FROM tabla1 WHERE edad<21" BDD.Execute SQL
Con esta sentencia borro todos los registros cuya edad sea menor a 21.
Si no especifico un WHERE, se borran todos los registros, o sea, la tabla me queda vacia.
SQL = "DELETE FROM tabla1" BDD.Execute SQL
Ahora, si la tabla esta vacia, cuando hagamos una busqueda dentro de ella el programa va a dar error. Una solución sería:
SQL = "SELECT * FROM tabla1"
Set TBL = BDD.OpenRecordset(SQL)
If TBL.EOF Then ''EOF esta en verdaero si no hay datos
MsgBox "No hay datos que coincidan con la búsqueda especificada" Exit Sub
End If
'si llega hasta aca es porq hay datos
TBL.MoveFirst
Do Until TBL.EOF
List1.AddItem TBL("nombre") & " " & TBL("apellido") & " tiene " & TBL("edad") TBL.MoveNext
Loop
TBL.Close
BDD.Close
Autor:
Damián Sottosanti
Enviado por:
Juan Manuel Fernández Novoa