Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

ricardovoigt

problema com EOF e BOF

Por , em ASP Clássico

Recommended Posts

ricardovoigt    0

ricardovoigt
Postado

Pessoal.Problemas akito querendo listar todos os usuário do banco somente se o campo mostrar do banco estiver com sim dentro dele, senao ele tem que pular o registro e ir pro proximo. POis bem, tentei fazer.. o código da página completa é este.<%@LANGUAGE="VBSCRIPT"%><% if session("sociologado") <> true then response.Redirect("index.asp?erro=erro2") elseif not session("socioid") <> "" then response.redirect("index.asp?erro=erro3") else%><!--#include file="conecta_banco.asp"--><% set listar = server.CreateObject("ADODB.Recordset")listar.open "Select * from socios where mostrar = 'sim' order by nome asc",conexaoset contar = server.CreateObject("ADODB.Recordset")contar.open "Select count(*) as total from socios",conexaocontador = contar("total")%><html><head><title>Visualização de Sócios</title><style type="text/css"><!--a:link { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; text-decoration: none; border: none;}a:visited { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; text-decoration: none; border: none; color: #000000;}a:hover { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; text-decoration: none; border: none;}a:active { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; border: none; text-decoration: none;}--></style><script language="JavaScript" type="text/JavaScript"><!--function MM_popupMsg(msg) { //v1.0 alert(msg);}//--></script></head><body><%dim conta%><table border = 0 align="center" cellpadding="2" cellspacing="2" bordercolor="#000000"><%If listar.EOF or listar.BOF Then%>NENHUM RESGISTRO ENCONTRADO!<%elsedo while not listar.eof%> <%for conta = 1 to contador step 1%> <td> <table width="345" height="87" border="1" cellspacing="1" bordercolor="#804040"> <tr> <td width="83"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Sócio.:</font></div></td> <td width="183"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=listar("nome")%> <br> </font></td> <td width="65" rowspan="4" align="left" valign="top"><img src="sociosfotos/<%=listar("foto")%>" width="65" height="80"></td> </tr> <tr> <td height="18"> <div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Registro.:</font></div></td> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=listar("registro")%> </font></td> </tr> <tr> <td height="21"> <div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Segmento.:</font></div></td> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <% tipo = listar("linha") if tipo = "cor" then text = "Canários de Cor" elseif tipo = "porte" then text = "Canários de Porte" elseif tipo = "corporte" then text = "Canários de Cor e Porte" elseif tipo = "periquitos" then text = "Periquitos" elseif tipo = "psiporte" then text = "Psitascídios e Porte" end if response.write text %> </font></td> </tr> <tr> <td><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Contatar.:</font></div></td> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href=contatosocio.asp?id=<%=listar("id")%>>clique aqui</a> </font></td> </tr> <tr> <td colspan="3"><div align="right"><img src="icones/46.gif" width="20" height="16"><a href="alterar_socio.asp?cod=<%=listar("id")%>">Alterar</a> <img src="icones/delete.gif" width="16" height="16"> <a href="excluir_socio.asp?cod=<%=listar("id")%>" onClick="MM_popupMsg('Voce tem certeza que desejas excluir??')">Excluir</a></div></td> </tr> </table></td><%if conta mod 2 = 0 then%><tr><%end if%><%listar.movenext%><%next%><%loop%></table> </body></html><%end if%><%end if%>xxxxxxxxxxxxao visualizar, dá o seguinte erro:ADODB.Field (0x80020009)BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.o que eu posso fazer?conto com a ajuda de voces pessoal!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Custellinha    0

Custellinha
Postado

listar.open "Select * from socios where mostrar = " & sim &" order by nome asc",conexaoaxo q isso resolve!

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

essa mensagem é porque não há registros no banco que atendam aos filtros do sql. antes de exibir você deve fazer uma verificação se o recordset está ou não vazioif rs.eof then'está vazio, não exibe dadoselse'exibe end if

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito