el blog de giltesa - Página 49 de 106

1×17: Insertar tuplas incrementalmente

18 Abr 20121 mayo 2012 giltesa Deja un comentario

/*
	Ejercicio 17:
	Desarrollar un procedimiento que permita insertar nuevos departamentos según las siguientes especificaciones:
		- Se pasará al procedimiento el nombre del departamento y la localidad.
		- El procedimiento insertará la fila nueva asignando como número de
		  departamento la decena siguiente al número mayor de la tabla. 

*/

delimiter $$
drop procedure if exists 1x17 $$
create procedure 1x17( in nom tinytext, in loc tinytext )
	begin

		select max(dep_no)+10 into @max from departamentos;
		insert into departamentos values ( @max, nom, loc );
		set @max = null;

	end $$
delimiter ;


-- call 1x17( 'MARKETING', 'PAMPLONA' );

Ejercicio 17:

Desarrollar un procedimiento que permita insertar nuevos departamentos según las siguientes especificaciones:

- Se pasará al procedimiento el nombre del departamento y la localidad.

- El procedimiento insertará la fila nueva asignando como número de

departamento la decena siguiente al número mayor de la tabla.

delimiter $$

drop procedure if exists 1x17 $$

create procedure 1x17( in nom tinytext, in loc tinytext )

begin

select max(dep_no)+10 into @max from departamentos;

insert into departamentos values ( @max, nom, loc );

set @max = null;

end $$

delimiter ;

-- call 1x17( 'MARKETING', 'PAMPLONA' );

1×16: Muestra un determinado número de tuplas

18 Abr 20121 mayo 2012 giltesa Deja un comentario

/*
	Ejercicio 16:
	Escribir un programa que visualice el apellido y el salario de los
	cinco empleados que tienen el salario más alto.
*/

delimiter $$
drop procedure if exists 1x16 $$
create procedure 1x16(in num int)
	begin

		select apellido, salario
		from empleados 
    	order by salario desc limit 0, num;

	end $$
delimiter ;

-- call 1x16(5);

Ejercicio 16:

Escribir un programa que visualice el apellido y el salario de los

cinco empleados que tienen el salario más alto.

delimiter $$

drop procedure if exists 1x16 $$

create procedure 1x16(in num int)

begin

select apellido, salario

from empleados

order by salario desc limit 0, num;

end $$

delimiter ;

-- call 1x16(5);

1×15: Visualizar búsqueda y total de coincidencias

18 Abr 20121 mayo 2012 giltesa Deja un comentario

/*
	Ejercicio 15:
	Escribir un procedimiento que reciba una cadena y visualice el apellido
	y el número de empleado de todos los empleados cuyo apellido contenga la
	cadena especificada. Al finalizar visualizar el número de empleados
	mostrados.
*/

delimiter $$
drop procedure if exists 1x15 $$
create procedure 1x15(in cad tinytext)
	begin
		/*
		-- Mostrando las coincidencias enumerando las filas:
		set @col = 0;
		set @cadena = concat( 'select (@col := @col +1) as "Fila", e.emp_no as "Num. empleado", e.apellido as "Apellido" from empleados e where e.apellido like "%', cad ,'%"' );

		prepare consulta from @cadena;
		execute consulta;

		deallocate prepare consulta;
		set @cadena = null;
		set @col = null;
		*/

		-- Mostrando las coincidencias y el total en dos tablas (y sin necesidad de preparar la sentencia):
		select e.emp_no as "Num. empleado", e.apellido as "Apellido" from empleados e where e.apellido like concat("%", cad ,"%");
		select count(*) as 'Numero de empleados' from empleados e where e.apellido like concat("%", cad ,"%");

	end $$
delimiter ;

-- call 1x15('MA');

Ejercicio 15:

Escribir un procedimiento que reciba una cadena y visualice el apellido

y el número de empleado de todos los empleados cuyo apellido contenga la

cadena especificada. Al finalizar visualizar el número de empleados

mostrados.

delimiter $$

drop procedure if exists 1x15 $$

create procedure 1x15(in cad tinytext)

begin

-- Mostrando las coincidencias enumerando las filas:

set @col = 0;

set @cadena = concat( 'select (@col := @col +1) as "Fila", e.emp_no as "Num. empleado", e.apellido as "Apellido" from empleados e where e.apellido like "%', cad ,'%"' );

prepare consulta from @cadena;

execute consulta;

deallocate prepare consulta;

set @cadena = null;

set @col = null;

-- Mostrando las coincidencias y el total en dos tablas (y sin necesidad de preparar la sentencia):

select e.emp_no as "Num. empleado", e.apellido as "Apellido" from empleados e where e.apellido like concat("%", cad ,"%");

select count(*) as 'Numero de empleados' from empleados e where e.apellido like concat("%", cad ,"%");

end $$

delimiter ;

-- call 1x15('MA');

1×14: Consultas a varias tablas con Group by

18 Abr 20121 mayo 2012 giltesa Deja un comentario

/*
	Ejercicio 14:
	Codificar un procedimiento que muestre el nombre de cada departamento
	y el número de empleados que tiene.
*/

delimiter $$
drop procedure if exists 1x14 $$
create procedure 1x14()
	begin

		select d.dnombre as 'Nombre departamento', count(e.dep_no) as 'Numero de empleados'
		from departamentos d, empleados e
		where d.dep_no = e.dep_no
		group by d.dep_no;

	end $$
delimiter ;


-- call 1x14();

Ejercicio 14:

Codificar un procedimiento que muestre el nombre de cada departamento

y el número de empleados que tiene.

delimiter $$

drop procedure if exists 1x14 $$

create procedure 1x14()

begin

select d.dnombre as 'Nombre departamento', count(e.dep_no) as 'Numero de empleados'

from departamentos d, empleados e

where d.dep_no = e.dep_no

group by d.dep_no;

end $$

delimiter ;

-- call 1x14();

1×13: Mostrar información por orden descendente

17 Abr 20121 mayo 2012 giltesa Deja un comentario

/*
	Ejercicio 13:
	TABLAS empleados y departamentos (script cargatablas1.sql)
	
	Desarrollar un procedimiento que visualice el apellido y la fecha
	de alta de todos los empleados ordenados por apellido.
*/

delimiter $$
drop procedure if exists 1x13 $$
create procedure 1x13()
	begin
		select apellido as 'Apellido', fecha_alta as 'Fecha de alta' from empleados order by apellido asc;
	end $$
delimiter ;

-- call 1x13();

Ejercicio 13:

TABLAS empleados y departamentos (script cargatablas1.sql)

Desarrollar un procedimiento que visualice el apellido y la fecha

de alta de todos los empleados ordenados por apellido.

delimiter $$

drop procedure if exists 1x13 $$

create procedure 1x13()

begin

select apellido as 'Apellido', fecha_alta as 'Fecha de alta' from empleados order by apellido asc;

end $$

delimiter ;

-- call 1x13();

1×12: Sentencias preparadas, borrar columna de una tabla

17 Abr 20121 mayo 2012 giltesa Deja un comentario

/*
	Ejercicio 12:
	Realizar un procedimiento que acepte dos cadenas: El nombre de una tabla
	y el de una columna y elimine la columna de la tabla.  No es necesario que
	el procedimiento controle antes si existe la tabla o columna.
*/

delimiter $$
drop procedure if exists 1x12 $$
create procedure 1x12( in tabla tinytext, in columna tinytext )
	begin

		-- Se concatenan las diferentes partes de la consulta:
		set @cadena = concat('alter table ', tabla, ' drop ', columna );

		prepare consulta from @cadena;	-- Se prepara la consulta.
		execute consulta;               -- Se ejecuta.
		deallocate prepare consulta;    -- Se borra la consulta preparada.
		set @cadena = null;             -- Se borra la cadena.

	end $$
delimiter ;

-- call 1x12('empleados','nomem');

Ejercicio 12:

Realizar un procedimiento que acepte dos cadenas: El nombre de una tabla

y el de una columna y elimine la columna de la tabla. No es necesario que

el procedimiento controle antes si existe la tabla o columna.

delimiter $$

drop procedure if exists 1x12 $$

create procedure 1x12( in tabla tinytext, in columna tinytext )

begin

-- Se concatenan las diferentes partes de la consulta:

set @cadena = concat('alter table ', tabla, ' drop ', columna );

prepare consulta from @cadena; -- Se prepara la consulta.

execute consulta; -- Se ejecuta.

deallocate prepare consulta; -- Se borra la consulta preparada.

set @cadena = null; -- Se borra la cadena.

end $$

delimiter ;

-- call 1x12('empleados','nomem');

1×11: Devuelve parámetros por valor

17 Abr 20121 mayo 2012 giltesa Deja un comentario

/*
	Ejercicio 11:
	Realizar un procedimiento que acepte un departamento y devuelva mediante dos
	parámetros de tipo OUT su  número de director (director) y presupuesto.
*/

delimiter $$
drop procedure if exists 1x11 $$
create procedure 1x11( in elDepartamento tinytext, out numDirector int, out presupuesto int )
	begin
		-- Dos formas de guardar la consulta, la primera con into y la segunda con set:
		select direc into numDirector from departamentos where nomde like elDepartamento;
		set presupuesto = ( select presu from departamentos where nomde like elDepartamento );
	end $$
delimiter ;


-- call 1x11( 'FINANZAS', @numDirector, @presupuesto );
-- select @numDirector as 'ID Director', @presupuesto as 'Presupuesto';

Ejercicio 11:

Realizar un procedimiento que acepte un departamento y devuelva mediante dos

parámetros de tipo OUT su número de director (director) y presupuesto.

delimiter $$

drop procedure if exists 1x11 $$

create procedure 1x11( in elDepartamento tinytext, out numDirector int, out presupuesto int )

begin

-- Dos formas de guardar la consulta, la primera con into y la segunda con set:

select direc into numDirector from departamentos where nomde like elDepartamento;

set presupuesto = ( select presu from departamentos where nomde like elDepartamento );

end $$

delimiter ;

-- call 1x11( 'FINANZAS', @numDirector, @presupuesto );

-- select @numDirector as 'ID Director', @presupuesto as 'Presupuesto';

1×10: Consulta triple anidada con un varios valores

17 Abr 20121 mayo 2012 giltesa Deja un comentario

/*
	Ejercicio 10:
	Realizar un procedimiento que acepte un centro como argumento y
	devuelva (visualice) todos los datos de los empleados que en él trabajan.
*/

delimiter $$
drop procedure if exists 1x10 $$
create procedure 1x10(in elCentro varchar(30))
	begin
		select * from empleados where numde in (
			select numde from departamentos where numce = (
				select numce from centros where nomce like elCentro
			)
		);
	end $$
delimiter ;

-- call 1x10('RELACION CON CLIENTES');

Ejercicio 10:

Realizar un procedimiento que acepte un centro como argumento y

devuelva (visualice) todos los datos de los empleados que en él trabajan.

delimiter $$

drop procedure if exists 1x10 $$

create procedure 1x10(in elCentro varchar(30))

begin

select * from empleados where numde in (

select numde from departamentos where numce = (

select numce from centros where nomce like elCentro

)

);

end $$

delimiter ;

-- call 1x10('RELACION CON CLIENTES');