Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

masterofdreams

Po galera me da uma lUZ ...

Por , em ASP Clássico

Recommended Posts

masterofdreams    0

masterofdreams
Postado

Muito obrigado por todas as duvidas respondidas....mas este aqui esta fazendo minha cabeça virar de cabeça para baixo.preciso fazer uma busca em um bd que esta am access..oq vcs precisam para me ajudar...quais os arquivos postar...AbraçosMasterOfDReams :D

Compartilhar este post

Link para o post
Compartilhar em outros sites

mkboy    1

mkboy
Postado

Cara, ta prontinho ae em cima, mas tudo bem vamos passo a passo.Primeiro poste aqui o seu formulario de busca, tipo:busca.html<form action="processa.asp" method="get"><input type="text" name="nome"><input type="submit" value="enviar"></form>Tipo assim, isso você sabe!Entao posta aqui seu formulario de pesquisa, depois vamos para pagina processa, ok!

Compartilhar este post

Link para o post
Compartilhar em outros sites

masterofdreams    0

masterofdreams
Postado

cadastro.asp<html><head><title>Cadastro de Usuários</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body background="file:///C|/Inetpub/wwwroot/logo_Verde.gif"><center><font face="Arial" size="4"><b>Formulário de Cadastro de Usuários</b></center><%If IsEmpty( Request.Form("submit") ) Then%><form method=post action="<%=Request.ServerVariables("script_name")%>"><table border=0 width="80%" align=center> <tr> <td align=right valign=top><font face="Arial" size="2">nome:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="nome" value="" size=30 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">email:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="email" value="" size=20 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">Lucent:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="login" value="" size=10 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">senha:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=password name="senha" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> </font></table><center><input type=submit name=submit value=Incluir style="{<font-family:Arial; font-size:12}"></center></form><%Else If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("nome")) <> "" AND Trim(Request.Form("email")) <> "" AND Trim(Request.Form("login")) <> "" AND Trim(Request.Form("senha")) <> "" Then Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\INETPUB\WWWROOT\banco.mdb;Driver={Microsoft Access Driver (*.mdb)};" ComandoSQL = "INSERT INTO usuarios (nome, email, login, senha)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nome")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("email")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("login")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("senha")) & "')" Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing%> <font face="Arial" size="2"> <center><br>Voce foi cadastrado com sucesso, e agora já pode entrar no SITE. <br><a href="login.htm"><b>Clique aqui</b></a> para continuar</font></center><% Else%> <font face="Arial" size="2"> <center><br>Atenção: Alguns dados necessário não foram preenchidos corretamente <br><a href="java script:history.go(-1)"><b>Clique aqui</b></a> para voltar</font></center><% End IfEnd If%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

mkboy    1

mkboy
Postado

Explica o que você quer fazer direitinho.....Pelo que entendi você tem um form de busca e quer digitar algo nele e buscar no banco de dados e imprimir na tela.É isso que você quer!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

masterofdreams    0

masterofdreams
Postado

po cara se ficar muito dificil, deixa pra lá... eu só queria um BIZU de como poderia ser feito..Por que eu acho q nao sou tão BURRO ih OH,assim rsss.. :D o que você colocou na tela acima funciona como..eu faço assim<%'Recupera o que foi digitado no seu campo de busca o input typebusca_01 = Request.form("busca_01")'Verifica se o campo não está vazio e se estiver ele redireciona para a pagina de busca ou para onde você quiser pois e so alterar o redirect ou substituir por response write e apresentar uma mensagemIf busca_01 = "" thenresponse.redirect "suapaginadebusca.asp"End if'Conecta ao banco access conforme citou.Set conn = Server.CreateObject ("ADODB.Connection")strconn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("banco.mdb")conn.open strconn'Faz a busca na tabela de seu banco no caso eu vou buscar no campo nome pois meu banco tem campo nome email data id ip hora.Set rs = Server.CreateObject("ADODB.Recordset")strrs = "Select * from usuarios where nome like'%" & login & "%' order by email"rs.open strrs, conn'Verifica se foi encontrado algo e se naop dar a respostaIf rs.EOF Thenresponse.write "Nenhum nome encontrado"End if'Pega o total de registro encontradototal = rs.recordcount%><%If erro <> "" ThenResponse.Write mensagemEnd ifDo While not rs.Eof%> <!--Imprime na tela resultado da pesquisa--> <%=nome%><br><%=login%> <%rs.movenextlooprs.closeconn.close%>Mas não deu certo.. o que posso mudar..

Compartilhar este post

Link para o post
Compartilhar em outros sites

mkboy    1

mkboy
Postado

beleza, você tem os campos nome e login, agora você quer buscar na tabela e fazer o que!Quer ir para algum lugar!!!!!Detalhes, manda mais!!! :blink:

Compartilhar este post

Link para o post
Compartilhar em outros sites

mkboy    1

mkboy
Postado

Se você só quer ver o conteudo do banco é o codigo que lhe passei, mas começa do 0 que esse codigo que tu postou ta bagunçado.Vms passo a passo que sai!!!Faça um formulario novinho:Salve essa pagina como busca.html

<html><head><title>Busca</title> </head><body><form  action="executa.asp" method="post" ><div align="center">  <table width="34%" border="0" cellspacing="0" cellpadding="0">    <tr> <td width="42%"> <input type="text" name="busca_01"></td> <td width="58%"> <input type="submit"  value="buscar">       </td>    </tr>  </table></div> </form><p align="center"> </p></body></html>

Depois crie uma pagina vazia e salve como executa.asp e faça isso:

<% busca_01 = Request.form("busca_01")%><%=busca_01%>

Depois das duas pages criadas, abra sua pagina busca e digite algo e clique no botao.Na pagina executa.asp ira aparecer o que você escreveu na tela.Se funcionou até aqui avisa ae!!!Depois que certificar que ta passando os valores do form para o ASP, vms fazer a consulta no banco e imprimir na tela.ok!

Compartilhar este post

Link para o post
Compartilhar em outros sites

mkboy    1

mkboy
Postado

LEIA O CODIGO TODO COM ATENCAO, SUBSTITUA O NOME DE SUA TABELA E O NOME DO SEU BANCO ..... Primeiro vms listar um item, depois é simples de você mudar....Faz assim na pagina asp...(isso é um test depois que funcionar você personaliza)

<%'Recupera o que foi digitado no seu campo de busca o input typebusca_01 = Request.form("busca_01 ")'Verifica se o campo não está vazio e se estiver ele redireciona para a pagina de busca ou para onde você quiser pois e so alterar o redirect ou substituir por response write e apresentar uma mensagemIf busca_01  = "" thenresponse.redirect "suapaginadebusca.asp" End if 'Conecta ao banco access conforme citou.Set conn = Server.CreateObject ("ADODB.Connection")strconn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("nomedoseubanco.mdb")conn.open strconn'Faz a busca na tabela de seu banco no caso eu vou buscar no campo nome pois meu banco tem campo nome email data id ip hora.Set rs = Server.CreateObject("ADODB.Recordset")strrs = "Select * from suatabela where nome like'%" & busca_01  & "%' order by login"rs.open strrs, conn'Verifica se foi encontrado algo e se naop dar a respostaIf rs.EOF Thenresponse.write "Nenhum nome encontrado"End if'Pega o total de registro encontradototal = rs.recordcount%> <%If erro <> "" ThenResponse.Write mensagemEnd ifDo While not rs.Eof%>    <!--Imprime na tela resultado da pesquisa-->    <%=nome%><br><%=login%><%=senha%>   <%rs.movenextlooprs.closeconn.close%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito