PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

Fórum procedure insert update, delete e select #404008

29/06/2011

0

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

Leandro Carpine

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar