Programación » el blog de giltesa

Entradas de » Programación

abr 2012

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

/*
	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');

abr 2012

1×11: Devuelve parámetros por valor

/*
	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';

abr 2012

1×10: Consulta triple anidada con un varios valores

/*
	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');

abr 2012

1×09: Consulta doble anidada con un único valor

/*
	Ejercicio 9:
	Tablas Centros/Departamentos/Empleados (script primeros_pasos.sql)
	
	Realizar un procedimiento que acepte un departamento como argumento y
	devuelva (visualice) todos los datos de los empleados que en él trabajan.
*/

delimiter $$
drop procedure if exists 1x09 $$
create procedure 1x09( in elDepartamento varchar(30) )
	begin
		select * from empleados where numde = (
			select numde from departamentos where nomde like elDepartamento
		);
	end $$
delimiter ;

-- call 1x09('SECTOR SERVICIOS');

Ejercicio 9:

Tablas Centros/Departamentos/Empleados (script primeros_pasos.sql)

Realizar un procedimiento que acepte un departamento como argumento y

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

delimiter $$

drop procedure if exists 1x09 $$

create procedure 1x09( in elDepartamento varchar(30) )

begin

select * from empleados where numde = (

select numde from departamentos where nomde like elDepartamento

);

end $$

delimiter ;

-- call 1x09('SECTOR SERVICIOS');

abr 2012

1×08: Descompón un importe de euros en billetes y monedas.

/*
	Ejercicio 8:
	Implementar un procedimiento que reciba un importe y visualice el desglose del cambio en unidades
	monetarias de céntimos de €,  1€, 2€, 5€, 10€, 50€. Ej. 58.9 =  1 billete de 50€, 1 billete de 5 €,
	3 monedas de 1€ y 90 céntimos de €
*/

delimiter $$
drop procedure if exists 1x07 $$
create procedure 1x07(in e double)

	begin
		# Variables:
		declare euros    integer default e div 1; #Parte entera
		declare centimos integer default truncate( (e-floor(e)), 2 )*100 div 1; #Parte decimal

		declare cincuentaEuros, diezEuros, dosEuros, unEuro,
				cincuentaCents, veinteCents, cincoCents, dosCents, unCents
				integer default 0;


		# Euros:
		set cincuentaEuros = euros div 50;
		set diezEuros      = euros mod 50 div 10;
		set dosEuros       = euros mod 50 mod 10 div 2;
		set unEuro         = euros mod 50 mod 10 mod 2 div 1;

		# Centimos: 
		set cincuentaCents = centimos div 50;
		set veinteCents     = centimos mod 50 div 20;
		set cincoCents     = centimos mod 50 mod 20 div 5;
		set dosCents       = centimos mod 50 mod 20 mod 5 div 2;
		set unCents        = centimos mod 50 mod 20 mod 5 mod 2 div 1;


		# Muestra el resultado de forma desglosada:
		select
			e                                              as 'Total', 
			if( cincuentaEuros = 0, null, cincuentaEuros ) as '50€',
			if( diezEuros      = 0, null, diezEuros      ) as '10€',
			if( dosEuros       = 0, null, dosEuros       ) as '2€',
			if( unEuro         = 0, null, unEuro         ) as '1€',
			if( cincuentaCents = 0, null, cincuentaCents ) as '0,50€',
			if( veinteCents    = 0, null, veinteCents    ) as '0,20€',
			if( cincoCents     = 0, null, cincoCents     ) as '0,05€',
			if( dosCents       = 0, null, dosCents       ) as '0,02€',
			if( unCents        = 0, null, unCents        ) as '0,01€'
		;

	end $$

delimiter ;


-- call 1x07(524.60);

Ejercicio 8:

Implementar un procedimiento que reciba un importe y visualice el desglose del cambio en unidades

monetarias de céntimos de €, 1€, 2€, 5€, 10€, 50€. Ej. 58.9 = 1 billete de 50€, 1 billete de 5 €,

3 monedas de 1€ y 90 céntimos de €

delimiter $$

drop procedure if exists 1x07 $$

create procedure 1x07(in e double)

begin

# Variables:

declare euros integer default e div 1; #Parte entera

declare centimos integer default truncate( (e-floor(e)), 2 )*100 div 1; #Parte decimal

declare cincuentaEuros, diezEuros, dosEuros, unEuro,

cincuentaCents, veinteCents, cincoCents, dosCents, unCents

integer default 0;

# Euros:

set cincuentaEuros = euros div 50;

set diezEuros = euros mod 50 div 10;

set dosEuros = euros mod 50 mod 10 div 2;

set unEuro = euros mod 50 mod 10 mod 2 div 1;

# Centimos:

set cincuentaCents = centimos div 50;

set veinteCents = centimos mod 50 div 20;

set cincoCents = centimos mod 50 mod 20 div 5;

set dosCents = centimos mod 50 mod 20 mod 5 div 2;

set unCents = centimos mod 50 mod 20 mod 5 mod 2 div 1;

# Muestra el resultado de forma desglosada:

select

e as 'Total',

if( cincuentaEuros = 0, null, cincuentaEuros ) as '50€',

if( diezEuros = 0, null, diezEuros ) as '10€',

if( dosEuros = 0, null, dosEuros ) as '2€',

if( unEuro = 0, null, unEuro ) as '1€',

if( cincuentaCents = 0, null, cincuentaCents ) as '0,50€',

if( veinteCents = 0, null, veinteCents ) as '0,20€',

if( cincoCents = 0, null, cincoCents ) as '0,05€',

if( dosCents = 0, null, dosCents ) as '0,02€',

if( unCents = 0, null, unCents ) as '0,01€'

;

end $$

delimiter ;

-- call 1x07(524.60);

abr 2012

1×07: Muestra solo caracteres alfabéticos

/*
	Ejercicio 7:
	Escribir un procedimiento que visualice solamente caracteres alfabéticos sustituyendo cualquier otro
	carácter no alfabético por blancos a partir de una cadena que se pasará en la llamada.
*/

delimiter $$
drop procedure if exists 1x07 $$
create procedure 1x07(in cad varchar(30))
	begin
		declare cadTemp varchar(30) default '';
		declare carAscii int;
		declare i int default 1;
		
		while i <= char_length(cad) do

			set carAscii = ascii(mid(cad,i,1));
			
			if carAscii >= 65 && carAscii <= 90  ||  carAscii >= 97 && carAscii <= 122 then
				set cadTemp = concat(cadTemp,mid(cad,i,1));
			else
				set cadTemp = concat(cadTemp,' ');
			end if;
		
			set i = i + 1;
		end while;
		
		select cadTemp as 'Solo letras';
	end$$
delimiter ;

-- call 1x07('H0l@ qu3 t@l?');

Ejercicio 7:

Escribir un procedimiento que visualice solamente caracteres alfabéticos sustituyendo cualquier otro

carácter no alfabético por blancos a partir de una cadena que se pasará en la llamada.

delimiter $$

drop procedure if exists 1x07 $$

create procedure 1x07(in cad varchar(30))

begin

declare cadTemp varchar(30) default '';

declare carAscii int;

declare i int default 1;

while i <= char_length(cad) do

set carAscii = ascii(mid(cad,i,1));

if carAscii >= 65 && carAscii <= 90 || carAscii >= 97 && carAscii <= 122 then

set cadTemp = concat(cadTemp,mid(cad,i,1));

else

set cadTemp = concat(cadTemp,' ');

end if;

set i = i + 1;

end while;

select cadTemp as 'Solo letras';

end$$

delimiter ;

-- call 1x07('H0l@ qu3 t@l?');

abr 2012

1×06: Calcula número de trienios

/*
	Ejercicio 6:
	Escribir un procedimiento que visualice los trienios completos que hay entre dos fechas. 
*/

delimiter $$
drop procedure if exists 1x06 $$
create procedure 1x06(in fecha1 date, in fecha2 date)
	begin
		select abs(datediff(fecha1,fecha2)) div 1095 as trianios;
	end$$
delimiter ;

-- call 1x06('2012-04-12','2020-06-01');

Ejercicio 6:

Escribir un procedimiento que visualice los trienios completos que hay entre dos fechas.

delimiter $$

drop procedure if exists 1x06 $$

create procedure 1x06(in fecha1 date, in fecha2 date)

begin

select abs(datediff(fecha1,fecha2)) div 1095 as trianios;

end$$

delimiter ;

-- call 1x06('2012-04-12','2020-06-01');

abr 2012

1×05: Calcula número de años

/*
	Ejercicio 5:
	Desarrollar un procedimiento que visualice el número de años completos que hay entre dos fechas que se
	pasan como argumentos.
*/

delimiter $$
drop procedure if exists 1x05 $$
create procedure 1x05(in fecha1 date, in fecha2 date)
	begin
		select abs(datediff(fecha1,fecha2)) div 365 as anios;
	end$$
delimiter ;

-- call 1x05('2012-04-12','2020-06-01');

Ejercicio 5:

Desarrollar un procedimiento que visualice el número de años completos que hay entre dos fechas que se

pasan como argumentos.

delimiter $$

drop procedure if exists 1x05 $$

create procedure 1x05(in fecha1 date, in fecha2 date)

begin

select abs(datediff(fecha1,fecha2)) div 365 as anios;

end$$

delimiter ;

-- call 1x05('2012-04-12','2020-06-01');

Si el tiempo que le dedico al blog aportando información te resulto de utilidad puedes ayudarme a mantener el servidor, ¡gracias!

Ultimas películas vistas

giltesa 6,1 666

La extraña vida de Timothy Green Cindy y Jim Green (Jennifer Garner y Joel Edgerton), una pareja feliz, sueña con tener un hijo. Cuando, inesperadamente, el joven Timothy (CJ Adams) aparece en la puerta de su casa durante una noche de tormenta, Cindy, Jim y el pequeño pueblo de Stanleyville descubren que a veces lo insólito puede ocurrir, aunque sea de manera pasajera. (FILMAFFINITY): 8

El vuelo (Flight) Tras un aterrizaje de emergencia en medio del campo gracias al cual salvan la vida un centenar de pasajeros, el comandante Whip Whitaker (Denzel Washington), que pilotaba el avión, es considerado un héroe nacional. Sin embargo, cuando se pone en marcha la investigación para determinar las causas de la avería, se averigua que el capitán tenía exceso de alcohol en la sangre y que puede ir a la cárcel si se demuestra que pilotó el avión en estado de embriaguez. (FILMAFFINITY): 7

Adiós pequeña, adiós A dos detectives privados de Boston, Patrick Kenzie (Casey Affleck) y Angela Gennaro (Michelle Monaghan), los contrata una familia para que encuentren a una niña de cuatro años, hija de una drogadicta (Amy Ryan), que ha sido secuestrada en uno de los barrios más sórdidos de la ciudad. Adaptación de un best-seller del autor de "Mystic River". (FILMAFFINITY): 5