6 replies to this topic

[angeloweb]

Como faço para pegar o resultado de uma busca e efetuar uma nova.. ?

Fiz uma busca de produtos e fornecedores, quando efetuo a busca ele me traz os dados que estão na tabela produtos onde tambem consta o nome do fornecedor de cada produto...

Gostaria que o nome do fornecedor fosse um link para uma popup onde devem aparecer os dados do fornecedor que está na tabela fornecedores.

<%=rs("fornecedor")%>
</a><%=rs("categoria")%> </a><%=rs("produto")%></a> <%=rs("modelo")%><%=rs("codproduto")%><address>
</a><%=rs("descricao")%></a> </dd>
<font color="black">


Tem como fazer isso ?

Obrigado...

[Luis Otávio]

o resultado da busca seria mais ou menos assim:

produto - fornecedor

o link para abrir o produto seria:

<a href="detalhe_produto.asp?id=<%=rs("id")%>">Produto</a>

o do fornecedor seria assim:

<a href="detalhe_fornecedor.asp?nome=<%=rs("nome")%>">Fornecedor</a>

em ambos vc usa o request.querystring para mostrar mais detalhes

no caso do fornecedor seria mais ou menos assim

sql = "select * from fornecedores where nome like '"%& request.querystring("nome") &%"' "

assim mostrando todos fornecedores que tenham o mesmo nome do resultado da busca...

seria isso que vc quer???

[angeloweb]

Este é o link para abrir a próxima página no caso a detalhe_fornecedor.asp

<a href="detalhe_fornecedor.asp?nome=<%=rs("nome")%>">Fornecedor</a>

Esta linha vai na página detalhe_fornecedor.asp

sql = "select * from fornecedores where nome like '"%& request.querystring("nome") &%"' "


Más mesmo mudando os campos dá esse erro

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0408)
Caractere inválido
/tudocompras/detalhe_fornecedor.asp, line 11, column 52
sql = "select * from fornecedores where nome like '"%& request.querystring("nome") &%"' "
---------------------------------------------------^

[Luis Otávio]

erro meu na hora da digitação:

troque:

sql = "select * from fornecedores where nome like '"%& request.querystring("nome") &%"' "

por

sql = "select * from fornecedores where nome like '%"& request.querystring("nome") &" % ' "

veja o que da agora...

[angeloweb]

Com a ajuda do Iporto consegui fazer funcionar parte da busca...
na página onde deverá aparecer o link foi colocado
<a href="detalhe_fornecedor.asp?nome=<%=rs("fornecedor")%>"><%=rs("fornecedor")%>

e na página de detalhes do fornecedor :

<!--#include file="cn.asp"--> cn.asp é o arquivo da conexão com o banco de dados
<p></p>
<%response.write ""& request.querystring("nome")
%><%
sql = "select * from fornecedores where nome = '"&request.querystring("nome") &" ' "
%>

O problema é que preciso que alem do nome do fornecedor preciso que apareçam o telefone, endereço, fax.. etc que estão no banco de dados.
Não sei se com esta consulta sql ele vai conseguir pegar esses dados.

[Luis Otávio]

<%
nome = request.querystring("nome")

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

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

strSQL = "SELECT * FROM fornecedores  where fornecedor = '"& nome &"'"
objRS.Open strSQL,DB,3,1
%>
Fornecedor: <%=objrs("fornecedor")%><br>
Endereço: <%=objrs("endereco")%><br>
Telefone: <%=objrs("telefone")%><br>

Só arruma o que ta em vermelho... e tira todos os outros codigos da pagina... so deixando este... se der algum erro... posta o erro ai...

[angeloweb]

Beleza Iporto

Deu certinho.... Funcionou do jeito que eu queria....

Valeu....