[bysheep] :: stored procedure para mysql

Esta stored procedure foi feita para verificar e depois cadastrar informação em um banco mysql

DELIMITER $$

CREATE DEFINER=`sh7tv`@`%` PROCEDURE `spRua`(

   IN     inRua varchar(50),
             inBairro varchar(50),
             inCidade varchar(50),
             inEstado varchar(50),
             inCEP varchar(50),
    OUT outResposta varchar(50)
)
BEGIN
    — concatena o select para saber se já existe o valor no banco
    — com o primeiro campo da tabela
    SET @aux = CONCAT(‘SELECT ‘,inCEP,’ INTO @verifica FROM mpRua WHERE cep = ‘,inCEP);
            — prepara o comando
            PREPARE stmt FROM @aux;   
            — executa o comando
            EXECUTE stmt;
               — se não existir
               IF (@verifica IS NULL) THEN
                — cria uma variável para concatenar o insert
                SET @Inserir = CONCAT(‘INSERT INTO mpRua (rua,bairro,cidade,estado,cep) VALUES (‘, inRua,’, ‘, inBairro,’, ‘, inCidade,’, ‘, inEstado,’, ‘, inCEP, ‘)’); 
                — prepara o comando
                PREPARE stmtIn FROM @Inserir; 
                — executa o comando
                EXECUTE stmtIn;
                — libera a memória
                DEALLOCATE PREPARE stmtIn;
                — retorna um valor
                SET outResposta = ‘dados da rua cadastrados com sucesso’;
                — se existir
                ELSE
                    SET outResposta = ‘já existe esta rua cadastrada ‘;
            END IF;
    SELECT outResposta;
END

 

a chamada da procedure usando um objeto feito em asp….

 

‘*********************************************************************
        ‘ métodos PRIVATE BANCO
‘*********************************************************************
        ‘ método PRIVATE para abrir o banco
        PRIVATE sub banco()
            Set cn = Server.CreateObject(“ADODB.Connection”)
               cn.Open(“dsn=—–“)
               Set cmd = Server.CreateObject(“ADODB.Command”)
               Set cmd.ActiveConnection = cn
        end sub
‘*********************************************************************
        ‘ métodos PRIVATE INSERT
‘*********************************************************************
        ‘ método PRIVATE para inserir
        PRIVATE sub inserir()
            ‘ chama o método abrir da classe banco passando o caminho e o banco
            cmd.CommandText = “call spRua(” & strRua & “,” & strBairro & “,” & strCidade & “,” & strEstado & “,” & strCEP & “, @outResposta)”
            set rsCadastrar = cmd.execute()
            strResposta = rsCadastrar(0)
        ‘ fim inserir
        end sub

 

a chamada do objeto feita na página

 

‘ cria uma variável do tipo objeto
        set varRua = new clRua
        ‘ chama o método passando os parâmetros
        call varRua.clRua(“”'” & request.form(“rua”) & “”'”, “”'” & request.form(“bairro”) & “”'”,””'” & request.form(“cidade”) & “”'”,””'” & request.form(“estado”) & “”'”,””'” & request.form(“cep”) & “”'”, “I”)
        ‘ mmostra o que aconteceu
        response.write(varRua.resposta)

 

até o próximo post

relógio para o site :: [bysheep]

relógio para colocar no site

http://www.clocklink.com/taggen.php?clkid=9002e

até o próximo post…

[bysheep] :: rotina para mostrar os campos do formulário

uma rotina simples usando vbScript e Asp, para mostrar os campos de um formulário.

<%
   ‘ declara as variáveis
    dim contador
    dim chave
    ‘ coloca a quantidade de campos no contador
    contador = request.Form.count
    ‘loop para mostrar os campos
    for a = 1 to contador -1
        ‘ coloca o nome do campo
        chave = request.form.Key(a)
        response.write("<b>" & chave & "</b> = ")
        ‘ coloca o valor do campo
        response.write (request.form.Item(a))
        response.write("<br/>")
    next
%>

o arquivo de exemplo…

até o próximo post….

[bysheep] :: mantendo acentos usando ajax

http://www.facebook.com/widgets/like.php?href=https://comoposso.wordpress.com/2011/01/23/bysheep-mantendo-acentos-usando-ajax/

 

Como colocar acentos em aplicação com Ajax!

Na pagina que recebe os dados: (Na primeira linha)

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="pt-br" lang="pt-br">

Na pagina que envia os dados, precisa colocar.

EM ASP:
Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1"

EM PHP:
header("Content-Type: text/html; charset=iso-8859-1");

créditos…http://im0rt4lz.wordpress.com/2006/04/25/acentuacao-em-ajax/

até o próximo post….

[bysheep] :: classe comentada em ASp

neste post vou mostrar o uso de uma classe completa em asp. os mesmos argumentos podem ser usados em qualquer classe… (php, java, dot net)

sempre que for trabalhar com classe:
    as variáveis tem que ser PRIVATE
    as propriedades PUBLIC
    os métodos PUBLIC e sem passar parâmetro….

o código asp do arquivo de chamada em html :

<%

‘ define uma variável para ser instância de objeto
dim obj

‘ cria a instância
set obj = new testeCadastro

‘ coloca valor na propriedade do objeto
obj.aPergunta = 10

‘ chama o método do objeto
obj.teste()

‘ mostra na tela o  valor da operação como método do objeto
response.Write("a aPergunta é – " & obj.aPergunta)

%>

o arquivo da classe

<%

‘ classe para manipular banco de dados
    class testeCadastro
   
        ‘ variáveis
       private pergunta
       
        ‘ propriedades da classe
        public property get aPergunta()
            aPergunta = pergunta
        end property
        ‘ o uso do let é o mesmo do set em outras linguagens, o set do vbscript é um pouco diferente
        public property let aPergunta (novaPergunta)
           pergunta = novaPergunta
        end property
        
        ‘ Métodos
           private sub Class_Initialize()
        ‘ Inicializa a classe   
        End sub

        public sub teste()
            pergunta = pergunta + 2
       end sub

       ‘fechar a classe
        private sub Class_Terminate()
       
        End sub
    end Class
%>
até o próximo post …