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
%>
Sistema De Busca
Started By pacero, 30/11/2007, 09:44
1 reply to this topic
#1
Posted 30/11/2007, 09:44
#2
Posted 30/11/2007, 15:05
<%=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>
<%=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>
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)