Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   MySQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=21)
-   -   Store procedure (https://www.clubdelphi.com/foros/showthread.php?t=52484)

sancarlos 22-01-2008 18:47:25

Store procedure
 
Necesito con caracter de urgencia algun manual o ejemplos de store procedure con mysql.

Agradezco, la ayuda

Trabajo con delphi 7 y mysql

Luis M. 22-01-2008 18:58:52

http://dev.mysql.com/doc/refman/5.0/...rocedures.html

Un saludo.

poliburro 22-01-2008 23:01:10

Mejor referencia que la proporcionda por el amigo Luis no hay :P.

maria.lourdes 30-01-2008 19:51:49

ejemplos de procedimientos almacenados
 
Te envio 2 ejemplos de procedimientos almacenados, espero que te sirvan.

create procedure verificacion_usuarios (in p1 varchar(10),in iu int(12), in iop int(2),out val varchar(1) )
Begin
declare ban int(2);
set val = 'F';
if (iop > 0 and iop < 14)
then
select count(idrol) into ban from definicion_usuarios_x_proyecto
where cod_proyecto = p1 and
identificacion_usuario = iu and
idrol=iop;
if ( ban > 0 ) then set val = 'T';
end if;
end if;
end;

_________________________________________________

create procedure eliminar_indicadores( in p1 varchar(10),in p2 varchar(10),in A1 varchar(10) )
Begin
if ((select count(valor_medicion) from medicion_indicadores
where cod_proyecto= p1 and
cod_proceso = p2 and
cod_actividad= A1) != 0) then
update indicadores set estado_indicador='R'
where cod_proyecto=p1 and
cod_proceso=p2 and
cod_actividad= A1;
else
delete from indicadores where cod_proyecto= p1 and
cod_proceso = p2 and
cod_actividad= A1;
end if;
update actividades_procesos set iden_actividad_medir='N'
where cod_proyecto= p1 and
cod_proceso = p2 and
cod_actividad= A1;
end;


__________________________________________________________


La franja horaria es GMT +2. Ahora son las 18:34:44.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi