Olá! Sunday, 26 de May de 2019.



Dicas CódigoFonte.net
Friday, 06 de November de 2009

ASP com Procedures SQL

Olá a todos, este é o meu primeiro artigo aqui no CódigoFonte, espero poder postar novos artigos, tutorias e scripts em breve.
Vamos lá então.
Criei um simples script em ASP para inserção de dados em um banco SQL por meio de procedures, assim sua aplicação se torna mais segura com um melhor desempenho, pois os dados são resolvidos(inseridos) no banco e não na página asp.

A procedure em si:

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' --aqui é recebido o paramentro definido no asp, no caso inserção
        IF NOT EXISTS
(SELECT CPFUsuario FROM TB_USUARIOS(NOLOCK)
                                                WHERE
CPFUsuario = @CPF
                               
)-- este if verifica se o registro já existe no banco, caso exista, ele sai do if e entra no else
               
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

Agora o ASP

'aqui é feito a inclusão da conexão com o banco 'aqui é feito a inclusão do adovbs.inc <%          Dim stracao, cpf                stracao = "IN" 'parametro que é passado para o sql, como visto acima         cpf     = TRIM(REQUEST("CPF"))            Set CMD = Server.CreateObject("ADODB.Command")     CMD.CommandText = "SP_Insere_Dados" ' definindo o nome da procedure a ser usada     CMD.CommandType = 4     CMD.ActiveConnection = Conexao   'Criamos agora a parametrização dos dasdos para serem recebidos no SQL         CMD.Parameters.Append CMD.CreateParameter("@STRACAO", advarchar,1,50)         CMD.Parameters.Append CMD.CreateParameter("@CPF", advarchar,1,50) 'Agora enviamos os dados para o SQL         CMD.Parameters("@stracao").Value        = stracao         CMD.Parameters("@cpf").Value            = cpf         Set rsRetorno = CMD.execute()                         response.write rsRetorno("retorno")&"
" %>


Este script é bem simples, basta apenas adequalo a sua aplicação.

Em breve estarei postando novos artigos.

Abraço a todos.


Comentários do artigo [Novo comentário]

Nenhum comentário, seja o primeiro a comentar.
Para adicionar um comentário você deve efetuar o login


Gostou do CódigoFonte.net? Quer indicar a um amigo?
Preencha os campos a seguir.
Seu Nome:
Seu E-mail:
E-mail de seu Amigo:


CodigoFonte.net » Meu Mural » Competiva - Criação de Sites » Todos os Direitos Reservados © 2002/2010