Make your own free website on Tripod.com
Volver a SQL Ir al Indice Ver mas SQL
Para poder ver los resultados de las distintas consultas hechas en SQL diseñaremos un pequeño formulario. En la ventana de herramientas con el botón derecho hacemos click en "componentes" y agregamos el control "Microsoft Data Bound Grid". Una vez que tengamos este en la ventana de herramientas lo colocaremos en un formulario. Debajo colocamos una caja de texto a la que llamaremos T. También colocaremos un Control Data al que llamaremos D y que debemos conectar con nuestra base de datos. Para esto en la ventana de propiedades colocaremos en Connect "Access" o "Access 2000" según estemos trabajando. En DatabaseName la ruta donde se encuentra nuestra base de datos en cuestión (por ejemplo C:\Archivos de programa\Microsoft Visual Studio\VB98\EjerciciosBDatos\tp1.mdb, o el lugar donde la hayamos colocado con anterioridad). También colocaremos un botón "Ejecutar" (btnejecutar) sobre el que escribiremos un pequeño código que se muestra a continuación. Del resto se encargará SQL mediante el código que escribamos en la caja de texto T.
Private Sub btnejecutar_Click()
On Error GoTo fin
'Esto nos permite en caso de un error ir a un MsgBox
D.RecordSource = T.Text
'El RecordSource del Control Data D será el que aparezca en la caja de Texto T
D.Refresh
'Hasta que no se de la orde de Refresh, el Control Data no hará efectivo la orden anterior
Exit Sub
'Significa que aquí termina el programa sin pasar por MsgBox salvo que hubiera habido un error
fin: MsgBox ("Error")
End Sub
Colocamos en la caja de textos T la consulta indicada en el lado izquierdo de la tabla y al hacer click en el botón Ejecutar veremos los resultados en DBGrid.
En la figura se puede ver el resultado de una consulta (Select * From Empleados)
Select * From Empleados
La orden Select va acompañada de un * que indica todos los campos de la Tabla Empleados
Select Apellido From Empleados
Muestra el campo Apellido de la tabla Empleados
Select Apellido, Cargo From Empleados
Muestra los campos Apellido y Cargo de la tabla Empleados
Select * From Empleados order by Apellido
Muestra todos los campos de la tabla Empleados ordenados por Apellido
Select * From Empleados Apellido desc
Igual que el anterior pero en orden descendente
Select * from Empleados Where Sueldo >1000
Selecciona todos los registros de todos los campos de la tabla Empleados donde el campo Sueldo sea mayor a 1000
Select Apellido from Empleados where Sueldo <1300 order by Apellido
Selecciona Apellido de la Tabla Empleados donde el campo sueldo sea menor a 1300 y lo ordena por Apellido
Select Apellido, Sueldo/2 as Aguinaldo From Empleados
Selecciona Apellido y crea una columna que es Sueldo divido 2 a la que asigna el nombre de Aguinaldo
Select Apellido, Sueldo From Empleados Where Sueldo >=1000 and Sueldo <=1200 Para ver apellidos y los sueldos comprendidos entre 100 y 1200
Select Apellido, Sueldo From Empleados Where Sueldo between 1000 and 1200 Una forma alternativa para obtener el mismo resultado que el anterior
Select Apellido, Cargo From Empleados Where Cargo ='Empleado' No dará el cargo y el apellido solamente de los empleados
Select Apellido, Cargo From Empleados Where Cargo='Empleado' and Sueldo >800 Igual que el anterior pero solo para empleados que ganen más de 800
Select Cargo, Count(Apellido)as Cantidad From Empleados group by Cargo No da el campo Cargo y cuenta los Apellidos creando una columna que llamará Cantidad de la tabla Empleados agrupados por cargo.
Select Max(Sueldo)From Empleados Nos da el Sueldo más alto de la tabla Empleados
Select Min(Sueldo)From Empleados Nos da el Sueldo más bajo de la tabla Empleados
Select Cargo, Max(Sueldo) as Total From Empleados group by Cargo Nos da el Cargo, el sueldo máximo creando una columna llamada Total de la tabla Empleados agrupados por Cargo
Select AVG(Sueldo)as Promedio From Empleados Nos da una columna que llamará Promedio y que tiene el promedio de sueldo de la tabla empleados.
Select Apellido, Cargo, Sueldo From Empleados where Cargo='Empleado' or Cargo ='Jefe' Obtener el apellido, cargo u sueldo de los empleados y jefes
Select Apellido, cargo From Empleados Where Cargo <>'Gerente' Obtener apellido y cargo de la tabla empleados donde el cargo no sea gerente. También se podría escribir" Where Cargo ='Empleado' or Cargo ='Jefe' " . O también" Where not Cargo='Gerente'"
Select Apellido, Cargo From Empleados Where not Cargo='Gerente' and Sueldo <1400 Obtener el apellido y cargo de la tabla de empleados que no tenga cargo Gerente y que gane menos de 1400
Select Cargo From Empleados Obtener el cargo de cada persona de la tabla Empleados. Por ejemplo en la tabla empleados aparecerá: Emp, Jef, Emp, Jef,Emp,Ger
Select Distinct Cargo From Empleados Obtener un item de cada tipo. Por ejemplo en la tabla empleados aparecerá: Emp, Jef, Ger
Select Cargo Max(Sueldo) as Máximo From Empleados Group by Cargo having Cargo ='Emp' Obtener del cargo 'Emp' el máximo sueldo
Select Count(Sueldo)as Total From Empleados having Sueldo <1200 Muestra una columna de nombre Total con la cantidad de sueldos menores a 1200 de la tabla Empleados
En la próxima seguimos viendo SQL
Volver a SQL Ir al Indice Ver mas SQL