Blog JAMcode

--cursor1 declare cursor c3 is      select nombre from pais;      vpais varchar2(30); begin open c3; loop      fetch c3 into vpais;      exit when c3%notfound;      dbms_output.put_line('Pais: ' || vpais); end loop;     close c3; end; --cursor2 DECLARE CURSOR c2 IS   SELECT PLAZA,NOMBRE,COLEGIO FROM MEDICO WHERE ESPECIALIDAD='0001';   vplaza medico.plaza%type;   vnombre medico.nombre%type;   vcolegio medico.colegio%type; begin open c2; Loop      fetch c2 into vplaza, vnombre, vcolegio;      EXIT WHEN c2%NOTFOUND;      dbms_output.put_line('Plaza: ' || vplaza);      dbms_output.put_line('Medico: ' || vnombre);      dbms_output.put_line('Colegio: ' || vcolegio); End Loop;   close c2; end;   --cursor3 DECLARE CURSOR c1 IS   SELECT * FROM USUARIO WHERE CARGO='M...

--PROCEDURE CON CURSOR CREATE OR REPLACE PROCEDURE P_BUSCAR (COD NUMBER) IS BEGIN DECLARE CURSOR C_LISTADO IS     SELECT * FROM EMPLOYEES WHERE EMPLOYEE_ID=COD;     S EMPLOYEES%ROWTYPE; BEGIN  OPEN C_LISTADO;    LOOP       FETCH C_LISTADO INTO S;       EXIT WHEN C_LISTADO%NOTFOUND;       dbms_output.put_line('ID: ' || S.EMPLOYEE_ID);       dbms_output.put_line('NOMBRES: ' || S.FIRST_NAME);       dbms_output.put_line('APELLIDOS: ' || S.LAST_NAME);    END LOOP; CLOSE C_LISTADO; END; END; --PROBANDO PROCEDURE BEGIN P_BUSCAR('100'); END;  

 declare         c1 usuario%rowtype;         begin              select * into c1 from usuario              where usuario='BERTHA';              dbms_output.put_line('User:' || c1.usuario || 'Password:' || c1.contrasena);         end;   declare        c2 paciente%rowtype; begin      select * into c2      from paciente     where paciente='1987002690';     dbms_output.put_line('Paciente:' || c2.nombres); end;         declare         vnombre varchar2(100);         begin              select nombre into vnombre              from medico              where plaza='106481'...

CREATE OR REPLACE PROCEDURE USP_INSERT_MARCA(cod IN char, nom IN varchar2, des IN varchar2) IS BEGIN INSERT INTO MARCA(codmarca,nombre,descripcion) VALUES(cod,nom,des); COMMIT; EXCEPTION WHEN OTHERS THEN ROLLBACK; END USP_INSERT_MARCA; --ejecutando BEGIN USP_INSERT_MARCA('M05','AKITA','PROCEDENCIA CHINA'); END; CREATE OR REPLACE PROCEDURE USP_UPDATE_MARCA(nom IN varchar2, des IN varchar2, cod IN char) IS Begin UPDATE MARCA SET nombre=nom, descripcion=des WHERE codmarca=cod; COMMIT; EXCEPTION WHEN OTHERS THEN ROLLBACK; End USP_UPDATE_MARCA; --ejecutando BEGIN USP_UPDATE_MARCA('ACER','MADE IN CHINA','M04'); END; CREATE OR REPLACE PROCEDURE USP_DELETE_MARCA(cod IN char) IS BEGIN DELETE FROM MARCA WHERE codmarca=cod; COMMIT; EXCEPTION WHEN OTHERS THEN ROLLBACK; END; --ejecutando BEGIN USP_DELETE_MARCA('M02'); END; --By Ing. Jhonatan Abal Mejia

CLASE CONEXION ***************** Public Function conectardb() As String         Dim cn As New OleDbConnection         Dim mensaje As String = ""         Try             If cn.State = ConnectionState.Closed Then                 cn.ConnectionString = "ProSvider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\CLINICA.accdb"                 cn.Open()                 mensaje = "Conexion OK BD ACCESS"                 cn.Close()                 cn.Dispose()             End If         Catch ex As Exception             mensaje = ex.Message         End Try         Return mensaje  ...

--sintaxis del create sequence Create sequence NOMBRESECUENCIA Start with VALORENTERO Increment by VALORENTERO Maxvalue VALORENTERO Minvalue VALORENTERO Cycle | Nocycle;   --CREACION DE TABLE EN ORACLE CREATE TABLE DISTRITO (  IDDISTRITO NUMBER(5),  CODDISTRITO VARCHAR2(5),  NOMBRE VARCHAR2(60),  CONSTRAINT PK_ID_DIST PRIMARY KEY(IDDISTRITO) ); --CREACION DE SECUENCIA EN ORACLE CREATE SEQUENCE SQ_ID_DISTRITO Start with 1 Increment by 1 Minvalue 1 Maxvalue 99999 Nocycle; --PROBANDO SECUENCIA EN ORACLE INSERT INTO DISTRITO(IDDISTRITO,CODDISTRITO,NOMBRE) VALUES(SQ_ID_DISTRITO.NEXTVAL, 'DISJL','SAN JUAN DE LURIGANCHO'); INSERT INTO DISTRITO(IDDISTRITO,CODDISTRITO,NOMBRE) VALUES(SQ_ID_DISTRITO.NEXTVAL, 'DISJM','SAN JUAN DE MIRAFLORES'); INSERT INTO DISTRITO(IDDISTRITO,CODDISTRITO,NOMBRE) VALUES(SQ_ID_DISTRITO.NEXTVAL, 'DIVMT','VILLA MARIA DEL TRIUNFO'); SELECT * FROM DISTRITO; By: Ing. Jhonatan Abal Mejia

Creamos la siguiente base de datos y tabla en el MS SQL Server 2012 Diseñamos el siguiente Formulario en una Aplicación WINDOWS de Visual Basic 2010 Consideramos el siguiente Código fuente: ------------------------------------------------------------------------------------------------------------ Imports System.Data Imports System.Data.SqlClient Public Class Form1     Dim cn As New SqlConnection("Server=.; DataBase=DEMO; Integrated Security=true;")     Private Sub btnGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrabar.Click         Try             Dim cmd As New SqlCommand()             With cmd                 .CommandText = "INSERT INTO EMPLEADOS(NOMBRE, APELLIDO, FECHANACIMIENTO, ESTADOCIVIL, FOTO)VALUES(@NOM,@APE,@FN,@EC,@FOTO)"                 ....