Ver Mensaje Individual
  #1  
Antiguo 07-03-2007
Avatar de UREÑA
UREÑA UREÑA is offline
Miembro
 
Registrado: feb 2007
Posts: 75
Reputación: 18
UREÑA Va por buen camino
Unhappy procedimientos almacenados

hola buen dia!!

hice un procedimiento almacenado pero no se como lo puedo mandar llamar desde delphi o mas bien como funciona

Código SQL [-]
SET TERM ^ ;

CREATE PROCEDURE SP_ACTUALIZA_ALUMNO (
    N_LISTA VARCHAR(5),
    NOMBRE_ALU VARCHAR(50),
    FECHA_NAC VARCHAR(10),
    SEXO VARCHAR(1),
    CURP VARCHAR(18),
    PAIS_NAC VARCHAR(30),
    ENTIDAD_NA VARCHAR(2),
    MUNICIPIO VARCHAR(3),
    INCONGRUEN VARCHAR(3),
    BECA VARCHAR(8),
    DOMICILIO VARCHAR(60),
    NOMBRE_PAD VARCHAR(30),
    TELEFONO VARCHAR(11),
    OBSERVACIO VARCHAR(200),
    LENGUA_EXT VARCHAR(3),
    TECNOLOGIA VARCHAR(3),
    RFC VARCHAR(14),
    TURNO INTEGER,
    GRADO INTEGER,
    GRUPO VARCHAR(1))
AS
begin
  /* Procedure Text */
  update Tbl_alumno set N_Lista = :n_lista, NOMBRE_ALU = :nombre_alu, FECHA_NAC = :fecha_nac, SEXO = :sexo, CURP = :curp, PAIS_NAC = ais_nac, ENTIDAD_NA = :entidad_na, MUNICIPIO = :municipio, INCONGRUEN = :incongruen, BECA = :beca, DOMICILIO = :domicilio, NOMBRE_PAD = :nombre_pad, TELEFONO = :telefono, OBSERVACIO = bservacio, LENGUA_EXT = :lengua_ext, TECNOLOGIA = :tecnologia
  where RFC = :rfc and TURNO = :turno and GRADO = :grado and GRUPO = :grupo ;
  suspend;
end^

SET TERM ; ^

GRANT SELECT,UPDATE ON TBL_ALUMNO TO PROCEDURE SP_ACTUALIZA_ALUMNO;

GRANT EXECUTE ON PROCEDURE SP_ACTUALIZA_ALUMNO TO SYSDBA;
les agradeceria infinitamente gracias

//Lo edite para colocar las etiquetas [sql]

Última edición por jhonny fecha: 07-03-2007 a las 19:03:34.
Responder Con Cita