Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda Para A Pesquisa

Guest vlaryous

Perguntado por Guest vlaryous,

 Share

Pergunta

Guest vlaryous

Guest vlaryous

Postado
Postado

estou com um certo probleminha.....

fiz uma pesquisa em um banco de dados que consiste em .....

digitar o nome do individuo no campo de pesquisa.

aparece uma tabela com os resultados....

clica em cima do nome e em fim aparece uma descriçao completa da pessoa...

pois bem...

consegui fazer a pesquisa, e aparecer o nome com o link....

então fiz duas versoes para o mesmo codigo....

em uma delas, a descricao apareceria na mesma pag.... e em outra, em uma pag diferente...

então ficou assim:

www.danntech.com.br/leonardo/teste.asp

e tem a pag que tentei fazer para uma posterior pesquisa em outra pag

www.danntech.com.br/leonardo/detalhes.asp

e aqui estao os codigos:

TESTE.ASP

<html>
<head>
<title>..::DannTech Inform&aacute;tica LTDA -  IntraNet::..</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
Digite um Nome a ser pesquisado... 
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="24" valign="top">
<form action="teste.asp" method="post">
        <input type = text name="buscando" size=12 style= "font-family : Verdana; font-size : 11px; width : 400px;">
<input type="submit" name="Submit" value="Buscar">
</form>
</td>
</tr>
</table>


<%
Busca = Trim(Request.form("buscando"))
%>

<%
set DB = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("dados/mkdiv.mdb")
DB.open constr

Set objRS = Server.CreateObject("ADODB.Recordset")
%>
<hr>

<%
function TiraAspas(str)
str = replace(str,"'","""")
TiraAspas = str
End function


 if (request("visualizar")<>"S") then 
%>
    
    
    
    
<table width="100%" border="1">
  <tr bgcolor="#00CCFF"> 
    <td width="5%"> <div align="center"><strong>Codigo:</strong></div></td>
    <td> <div align="center"><strong>Nome:</strong></div></td>
  </tr>
  <tr> 
    <td height="1"> </td>
    <%
    Busca=TiraAspas(Busca)
    
    strSql = "SELECT * FROM pessoas WHERE nome LIKE '%"&Busca&"%'"
    objRS.Open strSQL,DB,1,1
    %>
    <%    
    If (Busca = "") then
    Response.write("Você precisa escrever um nome para realizar sua pesquisa.")
    
    ElseIf (objRS.EOF = true) then
    response.write "Sua busca por <b>"&Busca&"</b> não retornou nenhum resultado, por favor tente novamente."
    Else
    do While not objRS.EOF
    %>
  </tr>
  <tr> 
    <td width="5%"><a href="?cod=<%=objRS("codigo")%>&visualizar=S"><%=objRS("codigo")%></a></td>
    <td><a href="?cod=<%=objRS("codigo")%>&visualizar=S"><%=objRS(TiraAspas("nome"))%></a></td>
    <%
    objRS.MoveNext
    Loop
    End IF
    %>
  </tr>

</table>

<table width="100%" border="1">
<%
    else
    response.write"    <table width=100% border=1>"
    strSql = "SELECT * FROM pessoas WHERE codigo = '%"&cod&"%'"
    
    objRS.Open strSQL,DB,1,1    
%>
  <!-- COLOCAR aqui O RETANTE DOS CAMPOS DA BASE DE DAODOS !.-->
  <tr>
    
  <td width="80" bgcolor="#00CCFF"><strong>Codigo</strong></td>
    <td width="883"><%=objRS("codigo")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Empresa</strong></td>
    <td width="883"><%=objRS("nome")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Cod. Emp.</strong></td>
    <td width="883"><%=objRS("codigo_emp")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Titulo</strong></td>
    <td width="883"><%=objRS("titulo")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Nome</strong></td>
    <td width="883"><%=objRS("nome")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Endere&ccedil;o</strong></td>
    <td width="883"><%=objRS("logradouro")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>N&ordm;</strong></td>
    <td width="883"><%=objRS("numero")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Compl.</strong></td>
    <td width="883"><%=objRS("complement")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Bairro</strong></td>
    <td width="883"><%=objRS("bairro")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Cidade</strong></td>
    <td width="883"><%=objRS("cidade")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Est.</strong></td>
    <td width="883"><%=objRS("estado")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>CEP</strong></td>
    <td width="883"><%=objRS("cep")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Tel.1</strong></td>
    <td width="883"><%=objRS("telefone1")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Ram.1</strong></td>
    <td width="883"><%=objRS("ramal1")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Tel.2</strong></td>
    <td width="883"><%=objRS("telefone2")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Ram.2</strong></td>
    <td width="883"><%=objRS("ramal2")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Fax</strong></td>
    <td width="883"><%=objRS("fax")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Ram.Fax</strong></td>
    <td width="883"><%=objRS("ramalfax")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Depto.</strong></td>
    <td width="883"><%=objRS("departamnt")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>R.G.</strong></td>
    <td width="883"><%=objRS("rg")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>CPF</strong></td>
    <td width="883"><%=objRS("cpf")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Sexo</strong></td>
    <td width="883"><%=objRS("sexo")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Data Nasc.</strong></td>
    <td width="883"><%=objRS("data_nasc")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>E-mail</strong></td>
    <td width="883"><%=objRS("email")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Site</strong></td>
    <td width="883"><%=objRS("site")%></td>
  </tr>

<%
    response.write"    </table>"
    objRS.MoveNext
    end if 
%>
</table>


</body>
</html>
DETALHES.ASP (eu ainda não sei nem o que fazer nela... mas sei que apenas indicando no link acimda da teste.asp antes do ?cod... ficar assim detalhes.asp?cod.... então preciso apenas saber como pegar a pesquisa do link e jogar nas tabelas... cada sedula com seu campo.... 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento sem t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

<%
busca = trim(request.ServerVariables("codigo"))
%>

<%
set DB = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("dados/mkdiv.mdb")
DB.open constr

Set objRS = Server.CreateObject("ADODB.Recordset")
%>


<table width="100%" border="1">
<%
    else
    response.write"    <table width=100% border=1>"
    strSql = "SELECT * FROM pessoas WHERE codigo = "request.ServerVariables("cod")
    
    objRS.Open strSQL,DB,1,1    
%>
  <!-- COLOCAR aqui O RETANTE DOS CAMPOS DA BASE DE DAODOS !.-->
  <tr>
    
  <td width="80" bgcolor="#00CCFF"><strong>Codigo</strong></td>
    <td width="883"><%=objRS("codigo")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Empresa</strong></td>
    <td width="883"><%=objRS("nome")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Cod. Emp.</strong></td>
    <td width="883"><%=objRS("codigo_emp")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Titulo</strong></td>
    <td width="883"><%=objRS("titulo")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Nome</strong></td>
    <td width="883"><%=objRS("nome")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Endere&ccedil;o</strong></td>
    <td width="883"><%=objRS("logradouro")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>N&ordm;</strong></td>
    <td width="883"><%=objRS("numero")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Compl.</strong></td>
    <td width="883"><%=objRS("complement")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Bairro</strong></td>
    <td width="883"><%=objRS("bairro")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Cidade</strong></td>
    <td width="883"><%=objRS("cidade")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Est.</strong></td>
    <td width="883"><%=objRS("estado")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>CEP</strong></td>
    <td width="883"><%=objRS("cep")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Tel.1</strong></td>
    <td width="883"><%=objRS("telefone1")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Ram.1</strong></td>
    <td width="883"><%=objRS("ramal1")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Tel.2</strong></td>
    <td width="883"><%=objRS("telefone2")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Ram.2</strong></td>
    <td width="883"><%=objRS("ramal2")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Fax</strong></td>
    <td width="883"><%=objRS("fax")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Ram.Fax</strong></td>
    <td width="883"><%=objRS("ramalfax")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Depto.</strong></td>
    <td width="883"><%=objRS("departamnt")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>R.G.</strong></td>
    <td width="883"><%=objRS("rg")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>CPF</strong></td>
    <td width="883"><%=objRS("cpf")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Sexo</strong></td>
    <td width="883"><%=objRS("sexo")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Data Nasc.</strong></td>
    <td width="883"><%=objRS("data_nasc")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>E-mail</strong></td>
    <td width="883"><%=objRS("email")%></td>
  </tr>
  <tr>
    
  <td bgcolor="#00CCFF"><strong>Site</strong></td>
    <td width="883"><%=objRS("site")%></td>
  </tr>

<%
    response.write"    </table>"
    objRS.MoveNext
    end if 
%>
</table>

</body>
</html>

um muito obrigado

vlw

falou

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
marcos_804

marcos_804

Postado
Postado

Você escreveu este link não é?

a href="?cod=<%=objRS("codigo")%>&visualizar=S"><%=objRS(TiraAspas("nome"))%></
Então.. agora é só você chamar a string "cod" da "url" na página detalhes Exemplo 
[color=#FF0000][b]codigo[/b][/color] = request.querystring("cod") ' Pega o valor que estiver depois do sinal de igual da string até "&".

                Exemplo: se tivermos uma string asim "?tipo=marcos%20oliveira"
                              se eu chamar a string "request.querystring("tipo")" ele vai me retornar "marcos oliveira".


'Daí você faz uma busca no banco pelo código


Exp.:

rs.Open "SELECT * FROM sua_Tabela WHERE campo="& [color=#FF0000][b]codigo[/b][/color], suaConexão, 3, 3

Daí é só voce executar e pronto ele exibirá as informações...

.... Espero ter ajudado... Caso precise poste aí...

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...