PDA

Ver la Versión Completa : Como insertar datos a una tabla con un SP


Tauro78
31-01-2007, 20:05:36
hola, en un form tengo 2 edit con los datos Descripcion y Categoria y un boton Aceptar. Quiero saber como hacer una insercion
usando un procedimiento almacenado. Uso FB y MDO.
Desde el form lo llamaria asi:


with MDOSPClientes do
begin
Parameters.ParamByName('@Descripcion').Value := Edit1.Text;
Parameters.ParamByName('@Categoria').Value := Edit2.Text;
Prepared := True;
ExecProc;
end;


En este SP defini el generador de la clave y antes defini el disparador sobre la tabla que se dispara antes que se inserte un registro.
El tema es que no se como debo crear el SP con los datos a insertar y como debo incrementar el valor del generador ?
Entonces al dar click en el boton primero llamo al SP que incrementa el disparador y luego llamo el SP que hace la insercion ?


SET TERM ^ ;
CREATE PROCEDURE SP_GEN_CATEGORIAS_ID
returns (
id integer)
as
BEGIN
ID = GEN_ID(GEN_NRO_CATEGORIA, 1);
SUSPEND;
END^
SET TERM ; ^
GRANT EXECUTE ON PROCEDURE SP_GEN_CATEGORIAS_ID TO SYSDBA;



CREATE GENERATOR GEN_NRO_CATEGORIA;
SET TERM ^ ;
CREATE TRIGGER CATEGORIAS_BI FOR CATEGORIAS
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
IF (NEW.NRO_CATEGORIA IS NULL) THEN
NEW.NRO_CATEGORIA = GEN_ID(GEN_NRO_CATEGORIA,1);
END
^
SET TERM ; ^



CREATE GENERATOR GEN_NRO_CATEGORIA;
SET GENERATOR GEN_NRO_CATEGORIA TO 0;

Lepe
31-01-2007, 22:46:13
al pasar los parámetros no tienes que ponerle la joroba ... digo la arroba delante ;).

el SP más o menos:

SET TERM ^ ;
CREATE PROCEDURE insertavalores(
categoria varchar(20),
descripcion varchar(300)
)
returns (
id integer)
as
BEGIN
ID = GEN_ID(GEN_NRO_CATEGORIA, 1);
insert into Tabla(CampoId, campoCategoria, CampoDescripcion)
values ( id, :categoria, :descripcion)

END^
SET TERM ; ^


ahora mismo no sé si "id" lleva los dos puntos delante o no, siempre me lio en eso :D

PD: He quitado el Suspend, ya que intuyo que no es un SP de selección sino un SP de ejecución. Realmente no sé como lo llamas, pero al hacer un ExecProc estas diciendo que será de ejecución.


Saludos