1 reply to this topic

[pacero]

bom dia pessoal.

estou usando o codigo abaixo pra fazer uma busca. porem na hora de exibir o resultado ele so exibe o campo "nome" q está na tabela. A tabela possui mais 5 campos. como faço para exibir todos os campos daquele determinado nome?

obrigado







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


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

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


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



<%
Busca=TiraAspas(Busca)

strSql = "SELECT * FROM cadastro WHERE nome LIKE '%"&Busca&"%'"
objRS.Open strSQL,DB,1,1
%>

Resultado da busca<br>


<%
if (len(busca)<=2) then
Response.write("Digite uma palavra com o mínimo de 3 letras para fazer a busca.")

ElseIf (Busca = "") then
Response.write("Você precisa escrever uma palavra para fazer uma busca.")

ElseIf (objRS.EOF = true) then
response.write "Sua busca por <b>"&Busca&"</b> não retornou nenhum resultado, por favor tente ser menos específico."
Else
do While not objRS.EOF
%>
<%=objRS(TiraAspas("nome"))%><br>
<%
objRS.MoveNext
Loop
End IF
%>

[leanjo]

<%=objRS(TiraAspas("nome"))%><br>
<%=objRS(TiraAspas("sobrenome"))%><br>
<%=objRS(TiraAspas("idade"))%><br>
<%=objRS(TiraAspas("bla bla bla"))%><br>
<%=objRS(TiraAspas("bla bla bla"))%><br>
<%=objRS(TiraAspas("bla bla bla"))%><br>
<%=objRS(TiraAspas("bla bla bla"))%><br>
<%=objRS(TiraAspas("bla bla bla"))%><br>
<%=objRS(TiraAspas("bla bla bla"))%><br>