Blog JAMcode

/*CURSORES EXPLICITOS*/ --habilitar salida archivo de comandos set serveroutput on; declare cursor c1 is     select country_id, country_name from countries;     v_id countries.country_id%type;     v_nom countries.country_name%type; begin   open c1;   dbms_output.put_line('ID' || ' ' || 'Nombre');   loop     FETCH c1 into v_id, v_nom;     exit when c1%notfound;     dbms_output.put_line(v_id || ' ' || v_nom);     end loop;   close c1; end; /*PROCEDURE CON CURSOR*/ create or replace procedure usp_buscar_region_x_pais(reg_id in number) is begin   declare cursor c2   is     select country_id, country_name from countries     where region_id = reg_id;     v_id countries.country_id%type;     v_nom countries.country_name%type;   begin     open c2;     loop       fetch c2 into v_id, v_n...

/*Creación de Funciones con HR*/ --Funcion que halla el 10% del salario create or replace function f_bono_emp(salario number) return number is begin return (salario * 0.10); end; --Probar begin   dbms_output.put_line('Bono Salario: ' || f_bono_emp(1500)); end; --Funcion que obtiene el Maximo Salario de los empleados create or replace function f_Maximo_Salario return number is v_sal employees.salary%type; begin select max(salary) into v_sal from employees; return v_sal; end; --Probar begin   dbms_output.put_line('Maximo Salario: ' || f_Maximo_Salario()); end; --Funcion que halla el 10% del salario create or replace function f_Salario_emp(p_cod in char) return number is v_sal employees.salary%type; begin select salary into v_sal from employees where employee_id=p_cod; return v_sal; end; --Probar begin   dbms_output.put_line('Salario: ' || f_Salario_emp(200)); end;

/*Creación de Procedimientos con HR*/ --habilitar salida de archivo de comandos set serveroutput on; --Procedimiento para Agregar Registros create or replace procedure pa_insertar_paises (p_id in char, p_name in varchar2, p_regid in number) is begin   insert into countries   values(p_id, p_name, p_regid);   dbms_output.put_line('Se Registro el Pais'); end; --probar begin   pa_insertar_paises('PE','Perú',2); end; --VER select * from countries where country_id='PE'; --Registrar Nuevo Pais begin   pa_insertar_paises('CO','Colombianas',3); end; --VER select * from countries where country_id='CO'; /*Procedimiento para Actualizar Registros*/ create or replace procedure pa_actualizar_pais (p_name varchar2, p_codreg number, p_id char) is begin   update countries set country_name = p_name,   region_id = p_codreg   where country_id = p_id;   dbms_output.put_line('Se Actualizo el Pais'); end; --prob...

create proc usp_buscar_idprod @id int as begin declare @idprod int, @nomprod varchar(40), @nomprov varchar(40) declare cursor1 cursor for select p.IdProducto, p.NomProducto, r.NomProveedor from Compras.productos p join Compras.proveedores r on p.IdProveedor = r.IdProveedor where p.IdProducto = @id open cursor1 fetch cursor1 into @idprod, @nomprod, @nomprov while @@FETCH_STATUS=0 begin print str(@idprod) + ' ' + @nomprod + ' ' + @nomprov fetch cursor1 into @idprod, @nomprod, @nomprov end close cursor1 deallocate cursor1 end go --ejcutar exec usp_buscar_idprod 10

package com.sql; import java.sql.Connection; import java.sql.DriverManager; import java.sql.SQLException; import javax.swing.JOptionPane; public class Conexion {     //var     private Connection cone=null;     //constructor     public Conexion(){         try{             Class.forName("com.microsoft.sqlserver.jdbc.SQLServerDriver");             String url="jdbc:sqlserver://localhost:1433;databaseName=BD_Supermercado;";             cone=DriverManager.getConnection(url, "sa", "xxxxx");         }catch(SQLException ex){             JOptionPane.showMessageDialog(null, "Error Servidor:"           ...

--FUNCIONES EN ORACLE --esta funcion retorna el nombre del empleado a partir del codigo create or replace function f_nom_emple(v_cod in number)   return varchar2 is   v_nom varchar2(20); begin   select first_name into v_nom   from employees   where employee_id = v_cod;   return v_nom; end; --ejecutando la funcion select f_nom_emple(105) from dual; --funcion que muestra el sueldo mas alto de los empleados create or replace function f_sueldo_alto   return number is   v_salario number(8,2); begin   select max(salary) into v_salario   from employees;       return v_salario; end; --ejecutar select f_sueldo_alto as salario_alto from dual; --funcion que muestra el codigo de pais a partir del nombre de pais create or replace function f_codpais(v_nompais in varchar2)   return char is  v_codpais char(2); begin      select country_id into v_codpais      from...

/*ejemplos de procedimientos almacenados*/ --procedimiento almacenado sin parametros create procedure usp_listarproductos as begin select p.IdProducto as codigo, p.NomProducto as NombreProducto, c.Descripcion as Categoria, p.PrecioUnidad as Precio, p.UnidadesEnExistencia as Stock, r.NomProveedor as Proveedor from Compras.productos p join compras.categorias c on p.IdCategoria = c.IdCategoria join Compras.proveedores r on p.IdProveedor = r.IdProveedor end --ejecutar exec usp_listarproductos --procedimientos almacenados con parametros /*select*/ create procedure usp_tot_stockcategorias @nomcate varchar(15) as select c.NombreCategoria, sum(p.UnidadesEnExistencia) as 'Total Stock' from compras.productos p inner join compras.categorias c on p.IdCategoria = c.IdCategoria where c.NombreCategoria=@nomcate group by c.NombreCategoria --ejecutar execute usp_tot_stockcategorias 'Bebidas' go /*insert*/ create procedure usp_agregar_clientes @codclie v...