Object Required: 'rs'

[py2tz]

Isso aparece somente quando tem mais de um item encontrado,

Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'

busca2_bloq.asp, line 27

Quando acha somente um registro somente não aparece o erro acima.

A Linha 27 é a que esta em negrito.

<%achei="não"

end if

x = 0

for x = 1 to totalrecs

if rs.eof then

exit for

else

%>

Acho que esta faltando alguma coisa, pois esta pedindo para ir para o else e não existe nenhum else no script. Acho que tenho que criar um else mas não sei como fazer.

Fausto

[bareta]

sintexe:

sql="select...."
set rs=conn.execute(sql)

if rs.eof then
'nada encontrado
else
'gira os registros
while not rs.eof
'da o loop
rs.movenext
wend
end if
rs.close
set rs=nothing

[py2tz]

Não funcionou!!!!

Eis o código completo, é um frankstein, montei ele em retalhos

<%

vNome = request.form("Nome")

Set Conexao = CreateObject("ADODB.CONNECTION")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("db/arvore.mdb")

conexao.Open DSNtemp

sqlstmt = "SELECT * FROM prlist WHERE Nome Like '%"& vNome &"%'"

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

rs.Open sqlstmt, conexao, 3, 3

totalrecs = rs.recordcount

achei="sim"

if rs.eof then%>

Não Achei nenhum Arquivo com este Nome!!

<%achei="não"

end if

x = 0

for x = 1 to totalrecs

if rs.eof then

exit for

else

%>

<%Sql = "SELECT * FROM prlist WHERE Nome Like '%" & vNome & "%' ORDER BY Nome"

Set rs = Conexao.Execute(Sql)

While not rs.EOF %>

<%=rs("Id")%></td>

<%=rs("Nome")%>

<% rs.MoveNext

Wend

rs.close

Set rs = nothing %>

<% end if

next

if achei="sim" then

%>

<% end if%>

</body>

</html>

[bareta]

veja agora

<%
vNome = request.form("Nome")
Set Conexao = CreateObject("ADODB.CONNECTION")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("db/arvore.mdb")
conexao.Open DSNtemp
sqlstmt = "SELECT * FROM prlist WHERE Nome Like '%"& vNome &"%'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, conexao, 3, 3
totalrecs = rs.recordcount
if rs.eof then%>
Não Achei nenhum Arquivo com este Nome!!
<%achei="não"
else
achei="sim"

While not rs.EOF %>

<%=rs("Id")%></td>
<%=rs("Nome")%>

<% rs.MoveNext
Wend

end if
rs.close
Set rs = nothing %>

<%
if achei="sim" then 
%>
achou.....
<% end if%>
</body>
</html>

[py2tz]

BALA, LEGAL, estou PULANDO DE ALEGRIA.

Obrigado Bareta e galera que tentou......

rodou quase na primeira, só tive que mudar os includes de lugar, mas ficou redondo.

Bareta como faço pra aumentar os campos de pesquisa deste mesmo buscado?

Ele pesquisa o NOME

Queria acrescentar o número do id.

No BD esta id esta como autonumeração e com o nome id mesmo.

Já tentei várias dicas de colegas mas até agora nada. Dá pau.

SELECT * FROM prlist WHERE Nome Like '%"& vNome &"%'

Até +

Fausto