Procedure MYSQL

Delphi

18/06/2006

EM FIREBIRD EU CRIO UMA PROCEDURE DESTA FORMA. E EM MY SQL 5.0 COMO A MESMA FICARIA ?????



SET TERM ^ ;

CREATE PROCEDURE SP_LOGS (
OPERACAO INTEGER,
CODIGO INTEGER,
COD_USUARIO INTEGER,
DATA DATE,
HORA TIME,
TABELA VARCHAR(20),
MOVIMENTACAO VARCHAR(35))
AS
begin

if (operacao=1) then
insert into logs (COD_USUARIO, DATA, HORA, TABELA, MOVIMENTACAO)

values (:COD_USUARIO, :DATA, :HORA, :TABELA, :MOVIMENTACAO);

suspend;
end^

SET TERM ; ^

GRANT INSERT ON LOGS TO PROCEDURE SP_LOGS;

GRANT EXECUTE ON PROCEDURE SP_LOGS TO SYSDBA;


Genilson

Genilson

Curtidas 0
POSTAR