<%While Not RS.EOF%>
<%RS.MoveNext
Wen%>
Significa: Enquanto não chega ao final do registros, ir seguindo, até chegar.
Agora, e quando acontece esse erro:
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
Ou seja, como se um registro que voce não existisse.
Qdo acontece isso gostaria que retornasse uma msg:
"registro vazio"
como faço?
While Not?
Started By myaccount2lists, 02/08/2004, 10:52
4 replies to this topic
#1
Posted 02/08/2004, 10:52
#2
Posted 02/08/2004, 11:41
if rs.eof then
response.write "não existe registros"
else
while not rs.eof
balbalbla
rs.movenext
wend
end if
response.write "não existe registros"
else
while not rs.eof
balbalbla
rs.movenext
wend
end if
Não ajunteis tesouros na terra, onde a traça e a ferrugem tudo consomem e aonde os ladrões minam e roubam;
Mas ajuntai tesouros no céu, onde nem a traça nem a ferrugem consomem, e aonde os ladrões não minam nem roubam.
MT 6 . 19
Jhonathas da Silveira de Matos (UIN: 57422166 / MSN: jhon_asp)
Mas ajuntai tesouros no céu, onde nem a traça nem a ferrugem consomem, e aonde os ladrões não minam nem roubam.
MT 6 . 19
Jhonathas da Silveira de Matos (UIN: 57422166 / MSN: jhon_asp)
#3
Posted 02/08/2004, 13:01
Ok. Reconheço isto. Mas nao era bem isso o que eu não estou sabendo solucionar. Explico melhor.
Tenho uma tabela no Banco de dados TB_Cidades com as campos
ID, Cod_Cidade Cidade, End, Tel
O campo cod_Cidade com numeros que identificam com outra tabela. que é a TB_UF. Na TB_UF contem todos os estados brasileiros. Ex. O numero 27 retorna TOCANTIMS, na minha busca no RS, procura por este numero. No while not Rs.eof se ele achar o 27 retorna tudos os campos. Acontece o erro acima, que eu passei antes, pq nao esta achando o 27. Na TB_UF tem, mas na TB_Cidades nao. o While \Not sentiu falta deste numero.
É como se nao tivesse vazio a tabela, mas apenas um registro dela.
como eu poderia fazer?
Tenho uma tabela no Banco de dados TB_Cidades com as campos
ID, Cod_Cidade Cidade, End, Tel
O campo cod_Cidade com numeros que identificam com outra tabela. que é a TB_UF. Na TB_UF contem todos os estados brasileiros. Ex. O numero 27 retorna TOCANTIMS, na minha busca no RS, procura por este numero. No while not Rs.eof se ele achar o 27 retorna tudos os campos. Acontece o erro acima, que eu passei antes, pq nao esta achando o 27. Na TB_UF tem, mas na TB_Cidades nao. o While \Not sentiu falta deste numero.
É como se nao tivesse vazio a tabela, mas apenas um registro dela.
como eu poderia fazer?
#4
Posted 02/08/2004, 13:11
Mostra todo seu While, pq essa descrição de erro não condiz com o que vc está passando de informação.
A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_____________-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.
Aceite JESUS como seu único e suficiente salvador!
_____________-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.
#5
Posted 02/08/2004, 14:30
Set RScidades = Server.CreateObject("ADODB.RecordSet")
strSQLcidades = " SELECT * FROM TB_Cidades WHERE Codigo_Cidades = " & UF & ""
RScidades.Open strSQLcidades, conexao, 3, 3
varRegistros = 3
RScidades.CacheSize = varRegistros
RScidades.PageSize = varRegistros
If Request.QueryString("pag")="" Then
pagina = 1
ElseIf Cint(Request.QueryString("pag")) < 1 Then
pagina = 1
ElseIf Cint(Request.QueryString("pag")) > RScidades.PageCount Then
pagina = RScidades.PageCount
Else
pagina = Request.QueryString("pag")
End If
RScidades.AbsolutePage = pagina
contador = 0
If RScidades.EOF Then
Response.Write("Nenhum registro encontrado.")
End If
While contador < varRegistros And Not RScidades.EOF
%>
AQUI VEM A ACAO
<%
RScidades.MoveNext
contador = contador + 1
If RScidades.EOF then
Response.Write ("")
End If
Wend
For i = 1 To RScidades.PageCount
Response.Write " <a href=cobertura_view.asp?act=yes&uf="&UF&"&pag="&i&">"&Replace(i,pag,"<font color=""#000000"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif""><b>"&i&"</b>")&"</a> "
Next
%>
strSQLcidades = " SELECT * FROM TB_Cidades WHERE Codigo_Cidades = " & UF & ""
RScidades.Open strSQLcidades, conexao, 3, 3
varRegistros = 3
RScidades.CacheSize = varRegistros
RScidades.PageSize = varRegistros
If Request.QueryString("pag")="" Then
pagina = 1
ElseIf Cint(Request.QueryString("pag")) < 1 Then
pagina = 1
ElseIf Cint(Request.QueryString("pag")) > RScidades.PageCount Then
pagina = RScidades.PageCount
Else
pagina = Request.QueryString("pag")
End If
RScidades.AbsolutePage = pagina
contador = 0
If RScidades.EOF Then
Response.Write("Nenhum registro encontrado.")
End If
While contador < varRegistros And Not RScidades.EOF
%>
AQUI VEM A ACAO
<%
RScidades.MoveNext
contador = contador + 1
If RScidades.EOF then
Response.Write ("")
End If
Wend
For i = 1 To RScidades.PageCount
Response.Write " <a href=cobertura_view.asp?act=yes&uf="&UF&"&pag="&i&">"&Replace(i,pag,"<font color=""#000000"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif""><b>"&i&"</b>")&"</a> "
Next
%>
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)