Sabado 17/12/2011

PL/SQL -> Lenguaje de programacion

Estructura
----------
Declare
     vTipo    Propiedad.Tipo%type
begin
   excepcion
end

Loop
-----
declare
I integer;
begin
I:=1;
LOOP
DBMS_OUTPUT.PUT_LINE('Hola Mundo ' || I);
  I:=I+1;
  exit when I >10;
end loop;
end;
Arreglar, no esta funcionando
-----------------------------
declare
c numeric(15,0);i
begin
cnumeric(15,0); :=0;i
for:=1; i in reverse 15loopc

end
end;=iDBMS_OUTPUT.PUT_LINE(i); loop;
Ejemplo de cursor
============
DECLAREvNombre empleado.nombre%TYPE;vSexo empleado.sexo%TYPE;vTexto varchar2(25);
CURSOR micursor IS SELECT nombre, sexo FROM empleado;BEGINOPEN micursor;LOOPFETCH micursor INTO vNombre, vSexo;EXIT WHEN micursor%NOTFOUND;
if vSexo = 'M' thenvTexto := 'Hombre' ;elsif vSexo = 'F' thenvTexto := 'Mujer';elsevTexto := 'Ambiguo';end if;
dbms_output.put_line (vNombre || ' ' || vSexo || ' ' || vTexto);END LOOP;
CLOSE micursor; END;