procedure insert update, delete e select
set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go
create PROCEDURE [dbo].[DADOS_FUNCAO]
(@CODIGO INT OUTPUT,
@NOME [VARCHAR] (50) OUTPUT,
@OPERACAO [VARCHAR] (1),
@VALUE [varchar] (50),
@RETORNO [VARCHAR] (30))
AS
begin
set nocount on
IF @OPERACAO = 'C'
BEGIN
SELECT FUN_CODIGO AS CODIGO, FUN_NOME AS NOME FROM FUNCAO
WHERE FUN_CODIGO LIKE '%' + @VALUE + '%'
END
IF @OPERACAO = 'N'
BEGIN
SELECT FUN_CODIGO AS CODIGO, FUN_NOME AS NOME FROM FUNCAO
WHERE FUN_NOME LIKE '%' + @VALUE + '%'
END
IF @OPERACAO = 'I'
BEGIN
INSERT INTO FUNCAO (
FUN_NOME
)
VALUES( @nome)
END
ELSE
IF @OPERACAO = 'A'
BEGIN
SELECT @RETORNO = ''
BEGIN TRANSACTION
UPDATE FUNCAO
SET FUN_NOME = @NOME
WHERE FUN_CODIGO = @CODIGO
end
IF @OPERACAO = 'D'
BEGIN
/* SELECT @RETORNO = ''
BEGIN TRANSACTION*/
DELETE FROM FUNCAO
WHERE FUN_CODIGO = @CODIGO
/* set @codigo = @@identity --variavel global do SQL SERVER que retorna o ultimo valor de um campo(identity)
if @@error <> 0
begin
rollback transaction
return(1)
end
else
begin
commit transaction
return(0)
end*/
end
END
criei a procedure acima, e funciona certinho no banco de dados, porem no delphi so consigo executar os inserts, updates e deletes, sendo que os selects nao.
meu objetivo e que, passados os parametros, o resultado do select retorne em uma dbgrid no delphi.
alguem sabe com fazer isso?
obrigado
Leandro Carpine
Curtidas 0