Eu Di Volta ?

valterlin · Março 5, 2004

Tenho um banco de dados com CEP e outras informações como rua logradouro, etc. Vamos direto ao assunto.

Tem como eu fazer um código que quando a pessoa digitar o numero do CEP que tem no meu banco de dados ele ache as informações referente aquele CEP por exemplo. o CEP 02935050 ? e puxa-se as informações referente a ele ?

Eu uso Recordset ? Select ? Qual ?

Obs: Eu tenho esse banco de dados só não sei o que fazer referente ao código!

Tork · Março 5, 2004

sql = "SELECT * FROM suatabela WHERE cep = " & request.form("cep") & " "
set rs = suaconexao.Execute(sql)

Response.Write rs("nome_da_rua")

Entendeu? Eu fiz uma busca no bd de todos os registros onde o cep é igual ao cep que o cara digitou...

no response.write eu escrevi o campo "nome_da_rua"

certo?

Março 6, 2004

bom... vou dar um exemplo onde sua página deve chamar um asp que faz a consulta no banco que se chama dadoscep.mdb (contendo os campos cep, rua e bairro, todos como string e cep é a chave primária) e joga o resultado nos campos como rua e bairro ... como ? olha o código abaixo ... depois para testar é só usar o IIS ou jogar num servidor que tenha suporte a asp como o http://reg.1asphost.com/ , que dá 100mb pra você usar... Valeu um abração !!!

Marcelo Canevello Ferreira (dj Marcelo S/Pitch .. House Music !!! )

--> seguinte, o código abaixo você salva como index.htm :

<body>
<form name="FORMULARIO" action="recebe_tudo.asp">
cep:
   <input type="text" name="cep" onchange="procura_informacoes()">
<br>
rua:
   <input type="text" name="rua">
<br>
bairro:
   <input type="text" name="bairro">
<br>
<script>
function procura_informacoes(){
   window.open('pega_informacoes.asp?cep=' + document.FORMULARIO.cep.value ,'pegainfo');
}
</script>
<iframe height="0" width="0" name="pegainfo"></iframe>
<input type="submit" value="Enviar" >
</form>
</body>

--> e esse aqui você aqui você salva como pega_informacoes.asp :

<%
   cep = request.QueryString("cep")

   If (cep <> "") Then
     ' mapeia o caminho do mdb
     x = Server.MapPath("dadoscep.mdb")
     ' cria o objeto Conexão	
     Set Conexao = Server.CreateObject("ADODB.Connection")
     liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x 
     Conexao.Open liga
     strSQL = "Select rua, bairro from infos_do_cep where cep='"& cep &" ';"
     Set tabela = Server.CreateObject("ADODB.RECORDSET")
     Set tabela.ActiveConnection = Conexao        
     tabela.open strSQL
     If not (tabela.BOF and tabela.EOF) then
     %>
      <script>
         parent.document.FORMULARIO.rua.value="<%=tabela.Fields("rua")%>";
         parent.document.FORMULARIO.bairro.value="<%=tabela.Fields("bairro")%>";
       </script>
      <% 
     Else
     %>
      <script>
         parent.document.FORMULARIO.rua.value="Não encontrada";
         parent.document.FORMULARIO.bairro.value="Não encontrado";
       </script>
      <% 
     End If
   End If
%>

Registre-se na comunidade e não faça este tipo de coisa, não é necessário para responder uma dúvida!.

Editado Março 7, 2004 por ursolouco

Março 6, 2004

bom... vou dar um exemplo onde sua página deve chamar um asp que faz a consulta no banco que se chama dadoscep.mdb (contendo os campos cep, rua e bairro, todos como string e cep é a chave primária) e joga o resultado nos campos como rua e bairro ... como ? olha o código abaixo ... depois para testar é só usar o IIS ou jogar num servidor que tenha suporte a asp como o http://reg.1asphost.com/ , que dá 100mb pra você usar... Valeu um abração !!!
Marcelo Canevello Ferreira (dj Marcelo S/Pitch .. House Music !!! )
--> seguinte, o código abaixo você salva como index.htm :
<body>
<form name="FORMULARIO" action="recebe_tudo.asp">
cep:
<input type="text" name="cep" onchange="procura_informacoes()">
<br>
rua:
<input type="text" name="rua">
<br>
bairro:
<input type="text" name="bairro">
<br>
<script>
function procura_informacoes(){
window.open('pega_informacoes.asp?cep=' + document.FORMULARIO.cep.value ,'pegainfo');
}
</script>
<iframe height="0" width="0" name="pegainfo"></iframe>
<input type="submit" value="Enviar" >
</form>
</body>
--> e esse aqui você aqui você salva como pega_informacoes.asp :
<%
cep = request.QueryString("cep")
If (cep <> "") Then
' mapeia o caminho do mdb
x = Server.MapPath("dadoscep.mdb")
' cria o objeto Conexão
Set Conexao = Server.CreateObject("ADODB.Connection")
liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x
Conexao.Open liga
strSQL = "Select rua, bairro from infos_do_cep where cep='"& cep &" ';"
Set tabela = Server.CreateObject("ADODB.RECORDSET")
Set tabela.ActiveConnection = Conexao
tabela.open strSQL
If not (tabela.BOF and tabela.EOF) then
%>
<script>
parent.document.FORMULARIO.rua.value="<%=tabela.Fields("rua")%>";
parent.document.FORMULARIO.bairro.value="<%=tabela.Fields("bairro")%>";
</script>
<%
Else
%>
<script>
parent.document.FORMULARIO.rua.value="Não encontrada";
parent.document.FORMULARIO.bairro.value="Não encontrado";
</script>
<%
End If
End If
%>

Voce me ajudou pacas com esse código vou testa-lo já..

Tork · Março 7, 2004

Cara, evita postar posts antes de ter feito o teste, senão é desnecessário...

Março 7, 2004

Cara, evita postar posts antes de ter feito o teste, senão é desnecessário...

Agradeço a ajuda funcionou certinho valewwwwwwwwwwww

Entrar

Eu Di Volta ?

Pergunta

valterlin

Link para o comentário

Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

Tork

Link para o comentário

Compartilhar em outros sites

Guest Marcelo Canevello Ferreira

Link para o comentário

Compartilhar em outros sites

Guest Valewwwwwwwww...

Link para o comentário

Compartilhar em outros sites

Tork

Link para o comentário

Compartilhar em outros sites

Guest Funcionou !

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades