Clase 21/03/2012



--Declarar palabra a una variable
declare
mensage1 varchar2(4) :='Hola';
mensage2 varchar2(5) :='Mundo';

begin
DBMS_OUTPUT.PUT_LINE(mensage1 || ' ' || mensage2);
end
-------------------------------------------------------------
--Creacion de Tabla T1 con el campo E y F y agregar valores...
create table T1(
e integer,
f integer
);

begin
insert into T1 values(1,3);
insert into T1 values(2,4);
end

select *
from T1

declare
    a number;
    b number;
begin
    select e,f into a,b
    from T1
    where e>1; --Este Select Asigna Al Atributo e=>a ----El valor de la columna e que sera asignado es 2
    insert into T1 values(b,a);
end
-------------------------------------------------------------
--utilizacion de IF
declare
    a integer;
begin
    select count(*) into a
    from T1;
    if a>1 then
        dbms_output.put_line('Hay mas de un REGISTRO');
    elsif a=1 then
        dbms_output.put_line('Hay solo un REGISTRO');
        else
                dbms_output.put_line('Hay solo un REGISTRO');
    end if;
end

-------------------------------------------------------------
--Programa que verifica que el numero es par o impar

declare
    a integer;
   
begin
    a:=15;
    if mod(a,2)=0 then ----la variable 'a' toma el valor de '15'
        dbms_output.put_line('El numero es PAR');
    else
        dbms_output.put_line(''El numero es IMPAR);
    end if;
end
-----Seleccion desde la tabla
declare
    a integer;   
begin
    select count(*) into a
        from T1;
    if mod(a,2)=0 then
        dbms_output.put_line('El numero es PAR');
    else
        dbms_output.put_line('El numero es IMPAR');
    end if;
end
---- insertar mensage(msg)
declare
    a integer;
        msg varchar2(5);   
begin
    select count(*) into a
        from T1;
    if mod(a,2)=0 then
           
        msg :='PAR';
    else
        msg :='IMPAR';
    end if;
        dbms_output.put_line('El numero es' || 'msg');
end
-------------------------------------------------------------
--como usar loop (Contador)
declare
    x integer:=0; -- inicializar (CONTADOR EN '0' O EN VALOR DESIGNADO)
begin
    loop
        dbms_output.put_line('Hola Mundo'); --  Menasje a Imprimir en pantalla
                x := x + 1; -- definir el contador
        exit when x > 100; --Declaracion
    end loop;
end
-------------------------------------------------------------

Diferencia entre SQL y PL-SQL

SQL    : NO Procedual

PL-SQL : Lenguaje Precedual

-------------------------------------------------------------

Datos:


dbms_output.put_line("imprimir"); ---  Este comando es para imprimir