SQL (Structured Query Language) es el lenguaje estructurado de consultas que se usa para acceder a los datos en una base de datos (BD) relacional. El lenguaje SQL es estándar para cualquier BD relacional. En el caso de Oracle, se incluyen comandos y funciones adicionales y por eso se le llama SQL*Plus.

SELECT retorna filas de una o más tablas en la base de datos.

SELECT < columnas >

FROM < tablas >

WHERE < condición >

HAVING < condición de grupos >

GROUP BY < grupos >

ORDER BY < ordenamiento >

;

INSERT permite agregar filas a una tabla

INSERT INTO < tabla > < columnas >

VALUES < valores para columnas >

< comando select >

;

UPDATE permite modificar el valor de una o más columnas de una o más filas.

UPDATE < tabla >

SET < columna > = < valor > < , >

WHERE < condición >

;

DELETE borra filas de una tabla.

DELETE FROM < tabla > WHERE < condición >;

En un select se pueden utilizar varias funciones que agrupan datos y presentan los resultados como un valor de una columna. Las más comunes son SUM, COUNT, MAX, MIN.

Ejemplo:

SELECT MAX( f_ingreso )

FROM empleado

;

Existen otras funciones que se aplican a columnas simples y que aportan mucha funcionalidad. Ellas son NVL, DISTINCT y DECODE.

NVL ( columna, valor ) Retorna el valor, cuando la columna tiene valor nulo.

DISTINCT descarta los valores repetidos en una consulta (select)

DECODE ( columna, valor1, resultado1, valor2, resultado2,..., resultado_dflt) Evalúa la columna. Si el valor de ella es el valor1, retorna el resultado1, si el valor de columna es el valor2, retorna el resultado2, etc. Si el valor de la columna no es igual a ningún valorn, retorna el resultado_dflt.

CREATE para crear un objeto en la BD. Depende del objeto, así cambia la sintaxis.

ALTER para modificar la estructura o propiedades de un objeto

DROP para eliminar un objeto de la BD

COMMIT Confirma la aplicación definitiva de una transacción

ROLLBACK Deshace los cambios realizados en una transacción que no hayan sido confirmados por un COMMIT.

SAVEPOINT Son marcas de proceso durante una transacción. Se puede devolver hasta un savepoint, sin tener que deshacer toda la transacción.

GRANT Otorga algún permiso o derecho de acceso sobre un objeto en la BD.

REVOKE Elimina un permiso o derecho sobre un objeto en la BD.

EJEMPLO:

SQL> CREATE TABLE DEPARTAMENTO (

DEPTO_ID NUMBER(5) NOT NULL,

NOMBRE VARCHAR2(30))

;

SQL> CREATE TABLE EMPLEADO(

EMPLEADO_ID NUMBER(10) NOT NULL,

NOMBRE VARCHAR2(30),

F_INGRESO DATE,

DEPTO_ID NUMBER(5) NOT NULL)

;

INSERT INTO DEPARTAMENTO VALUES(1,’ADMINISTRATIVO’);

1 row created.

SQL> SELECT * FROM DEPARTAMENTO;

DEPTO_ID NOMBRE

--------- ------------------------------

1 ADMINISTRATIVO

2 VENTAS

3 INFORMATICA

SQL> SELECT * FROM EMPLEADO;

EMPLEADO_ID NOMBRE F_INGRES DEPTO_ID

----------- ------------------------------ -------- ---------

1 JUAN 01/04/98 1

2 MARIA 23/01/00 3

3 CARLOS 29/04/96 1

4 ANA 23/11/99 1

5 PEDRO 13/08/97 2

SELECT EMPLEADO.EMPLEADO_ID EMPLEADO,

EMPLEADO.NOMBRE NOMBRE_EMP,

DEPARTAMENTO.NOMBRE DEPARTAMENTO,

F_INGRESO FECHA_INGRESO

FROM EMPLEADO, DEPARTAMENTO

WHERE EMPLEADO.DEPTO_ID = DEPARTAMENTO.DEPTO_ID

AND F_INGRESO > '01-01-1998'

ORDER BY EMPLEADO.NOMBRE

EMPLEADO NOMBRE_EMP DEPARTAMENTO FECHA_IN

--------- --------------- ------------------------------ --------

4 ANA ADMINISTRATIVO 23/11/99

1 JUAN ADMINISTRATIVO 01/04/98

2 MARIA INFORMATICA 23/01/00

SELECT EMPLEADO_ID EMPLEADO,

EMPLEADO.NOMBRE NOMBRE_EMP,

F_INGRESO FECHA_INGRESO

FROM EMPLEADO, DEPARTAMENTO

WHERE EMPLEADO.DEPTO_ID = DEPARTAMENTO.DEPTO_ID

AND DEPARTAMENTO.NOMBRE = 'ADMINISTRATIVO'

ORDER BY 2

EMPLEADO NOMBRE_EMP FECHA_IN

--------- ------------------------------ --------

4 ANA 23/11/99

3 CARLOS 29/04/96

1 JUAN 01/04/98

SELECT EMPLEADO_ID EMPLEADO,

EMPLEADO.NOMBRE NOMBRE_EMP,

F_INGRESO FECHA_INGRESO

FROM EMPLEADO, DEPARTAMENTO

WHERE EMPLEADO.DEPTO_ID = DEPARTAMENTO.DEPTO_ID

AND DEPARTAMENTO.NOMBRE = 'ADMINISTRATIVO'

ORDER BY 3

EMPLEADO NOMBRE_EMP FECHA_IN

--------- ------------------------------ --------

3 CARLOS 29/04/96

1 JUAN 01/04/98

4 ANA 23/11/99

INSERT INTO EMPLEADO

VALUES(6,'GUILLERMO','16-08-1993',3);

1 row created.

SQL> SELECT * FROM EMPLEADO

2 ORDER BY F_INGRESO DESC;

EMPLEADO_ID NOMBRE F_INGRES DEPTO_ID

----------- ------------------------------ -------- ---------

2 MARIA 23/01/00 3

4 ANA 23/11/99 1

1 JUAN 01/04/98 1

5 PEDRO 13/08/97 2

3 CARLOS 29/04/96 1

6 GUILLERMO 16/08/93 3

UPDATE EMPLEADO

SET DEPTO_ID = 2

WHERE NOMBRE LIKE '%A%'

4 rows updated.

SQL> SELECT * FROM EMPLEADO;

EMPLEADO_ID NOMBRE F_INGRES DEPTO_ID

----------- ------------------------------ -------- ---------

1 JUAN 01/04/98 2

2 MARIA 23/01/00 2

3 CARLOS 29/04/96 2

4 ANA 23/11/99 2

5 PEDRO 13/08/97 2

6 GUILLERMO 16/08/93 3

6 rows selected.

UPDATE EMPLEADO

SET DEPTO_ID = 1

WHERE NOMBRE LIKE '%AN%'

;

2 rows updated.

SQL> SELECT * FROM EMPLEADO;

EMPLEADO_ID NOMBRE F_INGRES DEPTO_ID

----------- ------------------------------ -------- ---------

1 JUAN 01/04/98 1

2 MARIA 23/01/00 2

3 CARLOS 29/04/96 2

4 ANA 23/11/99 1

5 PEDRO 13/08/97 2

6 GUILLERMO 16/08/93 3

6 rows selected.

DELETE FROM EMPLEADO WHERE NOMBRE IN ('JUAN','PEDRO');

2 rows deleted.

PL/SQL es una extensión de SQL que aporta las características de un lenguaje de programación. Con SQL se procesan todas las filas en grupo. Si se consulta, el RDBMS retorna todas las filas seleccionadas a un mismo tiempo y no se puede ir procesando una a una. Igual pasa con los borrados o las modificaciones. En SQL no se tienen ciclos, IF’s y otros comandos tradicionales de un lenguaje de programación. Con PL/SQL se solventan estas limitaciones.

PL/SQL trabaja en bloques. Los bloques se pueden anidar y se respeta la jerarquía de declaración de variables. Un bloque se compone de:

DECLARE

• variables, constantes, cursores, etc.

BEGIN

• instrucciones SQL
• instrucciones PL/SQL (puede incluir otros bloques)

EXCEPTION

• acciones para manipular errores

END

Ejemplo de bloque de PL/SQL

DECLARE

CURSOR detalles IS

SELECT dmo_unidades unidades,

dmo_acl_art_referencia referencia,

dmo_rrd rrd

FROM re_det_movimientos_tb

WHERE dmo_mov_emp_empresa = :new.mov_emp_empresa

AND dmo_mov_cli_cliente = :new.mov_cli_cliente

AND dmo_mov_movimiento = :new.mov_movimiento

;

accion_v re_tipos_movimiento_tb.tmo_accion%TYPE;

movimiento_v re_movimientos_tb.mov_movimiento%TYPE;

rrd_v re_movimientos_tb.mov_rrd%TYPE;

BEGIN

/*********************************************************

* Nombre: RE_MOV_BU

* Tipo: Trigger de before update

* Proposito:

* Aplicar los movimientos, según cambio de estado

********************************************************

* 8 de setiembre de 2000

********************************************************/

IF ( :new.mov_estado != :old.mov_estado ) THEN

IF ( :new.mov_estado = 'A' and

:old.mov_estado = 'R' ) THEN

BEGIN

SELECT tmo_accion

INTO accion_v

FROM re_tipos_movimiento_tb

WHERE tmo_tipo_movimiento = :new.mov_tmo_tipo_movimiento

;

EXCEPTION

WHEN NO_DATA_FOUND THEN

raise_application_error(-20001,'No encontró tipo de mov');

WHEN OTHERS THEN

raise_application_error(-20001,'RE_MOV_BU:'||sqlerrm);

END;

/* *******************************************

Ejecuta la acción dependiendo del tipo

de movimiento correspondiente.

******************************************* */

IF ( accion_v = 'A' ) THEN

FOR f IN detalles LOOP

UPDATE re_referencias_cliente_tb

SET acl_saldo_unidades = NVL(acl_saldo_unidades,0) +

f.unidades

WHERE acl_cli_cliente = :new.mov_cli_cliente

AND acl_art_referencia = f.referencia

;

IF ( SQL%ROWCOUNT = 0 ) THEN

RAISE_APPLICATION_ERROR(-20001,

'No encontró la referencia'||

f.referencia || ' para el cliente '||

to_char(:new.mov_cli_cliente));

END IF;

INSERT INTO re_saldos_rrd_tb(

sal_rrd,

sal_emp_empresa,

sal_cli_cliente,

sal_art_referencia,

sal_unidades,

sal_saldo_unidades)

VALUES(

f.rrd,

:new.mov_emp_empresa,

:new.mov_cli_cliente,

f.referencia,

f.unidades,

f.unidades)

;

END LOOP;

ELSIF ( accion_v = 'D' ) THEN

FOR f IN detalles LOOP

UPDATE re_referencias_cliente_tb

SET acl_saldo_unidades = NVL(acl_saldo_unidades,0) –

f.unidades

WHERE acl_cli_cliente = :new.mov_cli_cliente

AND acl_art_referencia = f.referencia

;

IF ( SQL%ROWCOUNT = 0 ) THEN

RAISE_APPLICATION_ERROR(-20001,'No encontró referencia’||

f.referencia || ' para el cliente '||

to_char(:new.mov_cli_cliente));

END IF;

UPDATE re_saldos_rrd_tb

SET sal_saldo_unidades = sal_saldo_unidades - f.unidades

WHERE sal_rrd = f.rrd

AND sal_emp_empresa = :new.mov_emp_empresa

AND sal_cli_cliente = :new.mov_cli_cliente

AND sal_art_referencia = f.referencia

;

IF ( SQL%ROWCOUNT = 0 ) THEN

RAISE_APPLICATION_ERROR(-20001,

'No encontraron saldos para RRD <'||f.rrd||'-'||

to_char(:new.mov_emp_empresa)||

'-'||to_char(:new.mov_cli_cliente)||'-'||

to_char(:new.mov_movimiento)||'>');

END IF;

END LOOP;

END IF;

ELSIF ( (:new.mov_estado = 'A' AND :old.mov_estado != 'R') OR

(:new.mov_estado = 'R') OR

(:old.mov_estado = 'N') ) THEN

RAISE_APPLICATION_ERROR(-20001,

'Invalido cambio de estado en el movimiento');

END IF;

END IF;

EXCEPTION

WHEN OTHERS THEN

raise_application_error(-20001,'RE_MOV_BU:'||sqlerrm);

END;

PRACTICA