Jump to content


Photo

While Not?


  • Faça o login para participar
4 replies to this topic

#1 myaccount2lists

myaccount2lists

    Ativo

  • Usuários
  • 347 posts
  • Sexo:Masculino

Posted 02/08/2004, 10:52

<%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?

#2 Jhonathas.net

Jhonathas.net

    12 Horas

  • Usuários
  • 181 posts
  • Sexo:Não informado

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
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)

#3 myaccount2lists

myaccount2lists

    Ativo

  • Usuários
  • 347 posts
  • Sexo:Masculino

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?

#4 Info_Tec

Info_Tec

    Servo do DEUS VIVO!

  • Usuários
  • 398 posts
  • Sexo:Não informado
  • Localidade:Entre a cadeira e o teclado
  • Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

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.

#5 myaccount2lists

myaccount2lists

    Ativo

  • Usuários
  • 347 posts
  • Sexo:Masculino

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
%>





0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq