CURSORES en MYSQL

create procedure uspcur1(IN cod char(5))
begin
declare vcodigo char(5) default '0';
declare vnom varchar(50);
declare vape varchar(50);
declare vsue double;
declare done int default 0;
declare cur_emple cursor for select idempleado,nombres,apellidos,sueldo
from empleados where idempleado=cod;
declare continue handler for sqlstate '02000' set done=1;
open cur_emple;
fetch cur_emple into vcodigo,vnom,vape,vsue;
if(vcodigo = '0') then
select 'No existe empleado registrado';
else
select vcodigo,vnom,vape,vsue;
end if;

close cur_emple;
end
--ejecutando el procedure uspcur1 con el cursor
call uspcur1("E0001");

Comentarios

Anónimo ha dicho que…
Muy bueno el codigo fuente, felicitaciones
22 de enero de 2010, 9:10
Anónimo ha dicho que…
Oye ese codigo esta mostro, busque mucho cursores en mysql paro ya lo encontre gracias
23 de enero de 2010, 13:45
Publicar un comentario

Entradas populares

Ejercicios Consola Visual Basic.NET

Module Module1 Sub Bienvenida() 'Programa que muestra un MENSAJE, almacenado en una VARIABLE Dim MEN As String 'VARIABLE MEN = "Bienvenidos al Microsoft Visual Studio.net 2008" Console.Write(MEN) Console.Read() End Sub Sub Mensaje() 'Programa que muestra MENSAJE, almacenado en una VARIABLE Dim Mens As String 'VARIABLE Mens = "Desarrollando aplicaciones en consola.net" Console.WriteLine(Mens) Console.Read() End Sub Sub Mensaje_vertical() 'Programa que muestra MENSAJE en forma VERTICAL, almacenado en una VARIABLE Dim MV As String 'VARIABLE MV = "Desarrollando aplicaciones en MS Visual Basic.net" Console.WriteLine(MV) Console.WriteLine(MV) Console.WriteLine(MV) Console.Read() End Sub Sub Sumar() 'Programa que SUMA 2 numeros enteros, solo con variables Dim n1, n2, S As Integer 'VARIABLES REM LEER n1 = Console.ReadLine n2 = Console.ReadLine REM PROCESO S = n1 + n2 REM ESCRIBIR Console.WriteLine
Leer más

Numero Capicua Visual Basic

Obtener Numero Capicua de 3 Cifras en VISUAL BASIC 2010         Dim num, uni, aux, dec, cen As Integer         Dim rpta As String         Console.Write("Ingrese Numero de 3 Cifras:")         num = Console.ReadLine         If num >= 100 And num <= 999 Then             cen = num \ 100             aux = num Mod 100             dec = aux \ 10             uni = aux Mod 10             If cen = uni Then                 rpta = "Numero es Capicua"             Else                 rpta = "Numero no es Capicua"             End If         Else             rpta = "Numero fuera de intervalo"         End If               Console.WriteLine(rpta)         Console.ReadKey() 'Prof. jhonatan abal mejia
Leer más

Procedimientos Almacenados ORACLE

EJEMPLOS DE INSERTAR CON PROCEDIMIENTOS ALMACENADOS ORACLE 11G /*creacion de la tabla*/ create table clientes( idcliente varchar2(5)primary key, nombres varchar2(55), apellidos varchar2(55), dni varchar2(8) ); /*creacion del procedimiento almacenado*/ CREATE OR REPLACE PROCEDURE pa_grabar(id IN varchar2, nom IN varchar2, ape IN varchar2, dni IN varchar2) AS BEGIN INSERT INTO clientes VALUES(id,nom,ape,dni); END; /*ejecutar el procedimiento almacenado*/ EXECUTE pa_grabar('C0010','Juan','Perez Rios', '12345678');
Leer más