ASP E SQL - Procedure

[thiagobellusse 0]

Boa noite, segue um simples exemplo de como passar valores de uma página ASP para um procedure SQL e gravar no banco SQL

 

 

Stored Procedure

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
--Cria a Procedure SP_Insere_Dados
ALTER PROCEDURE [banco].[SP_Insere_Dados]

--Passa como parâmetros para a Procedure os dados (CPF) vindos do código ASP.
@STRACAO varchar(50)=NULL,
@CPF varchar(50)=NULL

AS
BEGIN
IF @STRACAO = 'IN'
	IF NOT EXISTS (SELECT CPFUsuario FROM TB_USUARIOS(NOLOCK)
						WHERE CPFUsuario = @CPF
				)
		BEGIN	
		SELECT 'CPF CADASTRAD0' AS RETORNO
			--Executa código SQL que insere os dados no banco
			INSERT INTO TB_USUARIOS(NomeUsuario,
									 CpfUsuario,
									 EnderecoUsuario,
									 IdadeUsuario)
			VALUES(@Nome, @CPF, @Endereco, @Idade)
			
		END
	ELSE	
		BEGIN	
			SELECT 'CPF JÁ EXISTE' AS RETORNO
	END

END

 

ASP

 

<!--#include file="includes/conexao.asp"-->
<!--#include file="includes/adovbs.inc"-->
<%  
	Dim stracao, cpf
	
	stracao = "IN"
	cpf	= TRIM(REQUEST("CPF"))
	

    Set CMD = Server.CreateObject("ADODB.Command")
    CMD.CommandText = "SP_Insere_Dados"
    CMD.CommandType = 4
    CMD.ActiveConnection = Conexao
 
 	CMD.Parameters.Append CMD.CreateParameter("@STRACAO", advarchar,1,50)
	CMD.Parameters.Append CMD.CreateParameter("@CPF", advarchar,1,50)

	CMD.Parameters("@stracao").Value        = stracao
	CMD.Parameters("@cpf").Value            = cpf

   	Set rsRetorno = CMD.execute()
			response.write rsRetorno("retorno")&"<br/>"

%>

 

Espero que ajudem.

Abraços...

[hargon 64]

Boa contribuição thiagobellusse. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif