Verificar registros em um recordset

[sr.silva 1]

Olá!!

 

Gostaria de saber como eu faço para verificar se o RECORDSET esta vazio, ou não!!

 

Segue o problema....

 

strSQL =  " SELECT * FROM ATIVIDADES  "  set RS = Conn.execute(strSQL)if not RS.eof then  <<<<<<<<<<<<<<<<<< LINHA EM QUESTÃO  <select>	<option> teste </option>	<option> teste </option>	<option> teste </option>	<option> teste </option>  </select>end if

Faço isso, pois nessa página e um cadastro de usuarios, onde o codigo acima representa um COMBO, com as opcões de ATIVIDADES para cadastrados dos mesmos. So que se eu não tiver ATIVIDADES, da erro na página, pois estou fazendo a SQL acima.....

 

Como faco para resolver isso.....

[Mário Monteiro 179]

que erro que dá...aparentemente a verificação ta certa...

[sr.silva 1]

Tipo de Erro:ADODB.Field(0X800200091)BOF ou EOF sao verdadeiros ou o registro atual foi excluido.A operacao solicitada pelo aplicativo requer um registro atual

[Mário Monteiro 179]

a linha do erro é jusatamente aquela??

[sr.silva 1]

Sim, pois se eu retiro a linha em destaque....funciona!

[jrcardozo 4]

aparentemente seu erro está aqui estás misturando html com asp

<%if not RS.eof then  %>  <select>	<option> teste </option>	<option> teste </option>	<option> teste </option>	<option> teste </option>  </select><%end if%>

[sr.silva 1]

Na verdade por questão de "tempo", coloquei o codigo HTML, PURO.Mais no meu codigo, estou colocando.....Response.Write( "<select>") Response.Write(" e por assim vai .....")

[Mário Monteiro 179]

poe o codigo tiozinhocom a linha do erro apontada...

[jrcardozo 4]

se é assim, acredito que o código não está completo, coloque toda a página ai, acho que tem algo entre a execussão do recordset e a verificação, provavelmente um while ou movelast

 

 

strSQL =  " SELECT * FROM ATIVIDADES  "  set RS = Conn.execute(strSQL)>>>>por aqui deve ter algo que move o recordset para o ultimo registroif not RS.eof then  <<<<<<<<<<<<<<<<<< LINHA EM QUESTÃO

[sr.silva 1]

SQL = " SELECT * FROM USUARIOS "   set RS = Conn.execute(SQL)Response.Write(RS("UI_NOME")Response.Write(RS("UI_LOGIN"))strSQL =  " SELECT * FROM ATIVIDADES  "  set RS = Conn.execute(strSQL)if not RS.eof then  <<<<<<<<<<<<<<<<<< LINHA EM QUESTÃO  <select>	<option> teste </option>	<option> teste </option>	<option> teste </option>	<option> teste </option>  </select>end if

[ultra 0]

O problema não está no primeiro set RS q você faz ? tenta por um if rs.eof lá também

[sr.silva 1]

O primeiro e apenas para listar o USUARIOS cadastrados...nao tenho erro nisso...

[jrcardozo 4]

eu fiz o mesmo código que você colocou como erro e tá rodando beleza, olha só:

 

 

 

<!--#include file="config.asp" --><%Set rs = Server.CreateObject("ADODB.Recordset")strSQL="SELECT * FROM tabUsuario "set rs = con.execute(strSQL)if not rs.eof then  Response.Write( "<select>")  do while not rs.eof	  Response.Write( "<option> "& rs(1) &" </option>")	  rs.MoveNext  loop  Response.Write( "</select>")end if%>

obviamente adaptei para meu db e conexão

[Mário Monteiro 179]

a parada é a seguinte tiozinhoantes de abrir outro RS com o mesmo nome... pelo menos feche o anteriore ja que voce AFIRMA que nunca virá vazio o erro nao pode ser lá em cimamas eu particularmente sempre faço o teste de EOF mesmo quando sempre vem registrosnao custa praticamente nada mesmo

[sr.silva 1]

Os recordsets´s estao com nomes diferetes...

[jrcardozo 4]

pelo seu post os recordsets estão com o mesmo nome "RS"

[Mário Monteiro 179]

eu vi iguaissó mudou a variavel da string SQL e isso tanto faz...

[jrcardozo 4]

tenta fazer o seguinte, comente as linhas onde você busca e exibe o usuário e execute....na teoria tem que funcionar e se assim for o problema está no primeiro recordset que você deve destrui-lo ou criar outro com nome diferente de "RS", se ocorrer erro depois de comentar as linhas provavelmente você não tenha colocado o codigo completo e tem algo ai que tá ocasionando esse erro

[Mário Monteiro 179]

pode ser o mesmo nome mas...é bom fechar antes né??

[sr.silva 1]

Segue o fonte...na íntegra

 

<!--'*******************************************************************'Autor....: Bruno Silva da Costa - BSC'Data.....: 11/08/2006'*******************************************************************--><!--#include file="lib/util.asp" --><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>AMZ Soluções - Informática Sem Limites</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="../css/estilos.css" type="text/css"><script language ="JavaScript"><!--function ValidaForm(){   if (form1.Atividades.value.length ==0) 	  {		 window.alert("Informe uma Atividade!")		 form1.Atividades.focus()		  return false	   } }//--></script></head><body><!-- TABELA DO TOPO E MENU --><!--#include file="lib/topo.asp" --><!--#include file="lib/VerificarMensagens.asp" --><br><%call AbrirConexao'***SQL PRINCIPAL  strSQL = " SELECT * FROM NOSSOS_PARCEIROS "	Set RS = Conn.execute(strSQL) <<<<<<<<<<<<<<%><TABLE width=750 height="26" border=0 align="center" cellpadding="0" cellspacing="0">  <TR>	<TD>  <form name="form1" method="post" action="inclusao/CadastroNossosParceiros.asp" onSubmit="return ValidaForm()">  <table width="75%" border="0" align="center">	<tr>	  <td width="7%" height="26"><a href="CadNossosParceiros.asp"><b> [ Novo Registro ]</b></a> </td>	</tr>  </table>  <table width="75%" border="0" align="center" class="tabelas">	  <tr bgcolor="#990000">		<td colspan="2"><p class="titulos">Nossos Parceiros</p></td>	  </tr>	  <tr>		<td width="19%" height="19"><p class="labels">Nome:</p></td>		<td width="81%"><input name="txtNome" type="text" id="txtNome" size="60"></td>	  </tr>	  <tr>		<td height="19"><p class="labels">Contato:</p></td>		<td height="19"><input name="txtContato" type="text" id="txtContato" size="60"></td>	  </tr>	  <tr>		<td height="19"><p class="labels">Endereço:</p></td>		<td height="19"><input name="txtEndereco" type="text" id="txtEndereco" size="60"></td>	  </tr>	  <tr>		<td height="19"><p class="labels">Telefone:</p></td>		<td height="19"><input name="txtTelefone" type="text" id="txtTelefone" size="60"></td>	  </tr>	  <tr>		<td height="19"><p class="labels">URL:</p></td>		<td height="19"><input name="txtURL" type="text" id="txtURL" size="60"></td>		</tr>	  <tr>		<td height="19"><p class="labels">Email:</p></td>		<td height="19"><input name="txtEmail" type="text" id="txtEmail" size="60"></td>	  </tr>	  <tr>		<td height="19"><p class="labels">Produtos:</p></td>		<td height="19"><input name="txtProdutos" type="text" id="txtProdutos" size="60"></td>	  </tr>	  <tr>		<td height="19"><p class="labels">Ativo:</p>	 </td>		<td height="19"><p class="btnNavegacao">				<input name="chkAtivo" type="checkbox" id="chkAtivo" value="selected">			Sim</p></td>	  </tr>	  <tr>		<td height="19"><p class="labels">Atividade:</p></td>		<td height="19"><%								'***SQL DE ATIVIDADES		strAtividades = " SELECT * FROM ATIVIDADES_PARCEIROS "		  set RSAtividades = Conn.execute(strAtividades)	<<<<<<<<<<<<<<<<					Response.Write("<select name='Atividades'>")		Response.Write("<option> </option>")		while not RSAtividades.Eof		Response.Write("<option value="&RSAtividades("AP_CODIGO")&">"&RSAtividades("AP_DESCRICAO")&"</option>")		RSAtividades.MoveNext		Wend		Response.Write("</select>")		%>		  </td>	  </tr>	  <tr>		<td height="19" colspan="2"><div align="center">		  <input name="bt_envia" type="submit" id="bt_envia5" value="Salvar" />		</div></td>	  </tr>	</table>	<!-- FIM TABELA CADASTROS -->			<br>	<hr width="600">	<br>		<!-- TABELA DE REGISTROS -->		<table width="78%" border="0" align="center" class="tabelas">	  <tr bgcolor="#990000">		<td><p class="titulos">Descrição</p>		</td>		<td><p class="titulos">URL</p></td>		<td colspan="2"> </td>	  </tr>	<%'*******************************************************************'Assunto..: Listando os Registros Cadastrados'Autor....: Bruno Silva da Costa - BSC'Data.....: 16/08/2006'*******************************************************************	while not RS.EOF	%>	  <tr>		<td width="45%">																  		  <p class="labels" align="center" ><a href="AltNossosParceiros.asp?codigo=<%=RS("NP_CODIGO")%>"> <%=RS("NP_NOME")%> </a> </p>		</td>		<td width="45%">		   <p class="labels" align="center" ><a href="AltNossosParceiros.asp?codigo=<%=RS("NP_CODIGO")%>"> <%=RS("NP_CONTATO")%> </a> </p>		</td>		<td width="5%"><div align="center"><a href="AltNossosParceiros.asp?codigo=<%=RS("NP_CODIGO")%>"><img src="../imagens/editar.jpg" width="16" height="16" border="0"  alt="Editar Registro"></a></div>		</td>		<td width="5%"><a href="exclusao/ExcNossosParceiros.asp?codigo=<%=RS("NP_CODIGO")%>"><img src="../imagens/delete.jpg" alt="Excluir Registro" width="14" height="14" border="0" onclick='return confirm("Deseja realmente EXCLUIR esse registro?");'></a></td>	  </tr>	  <%	RS.MoveNext	Wend		call FecharConexao	%>	</table>	<!-- FIM TABELA REGISTROS -->			<a href="java script:history.go(-1)"><img src="../imagens/seta_esquerda.jpg" alt="Voltar" width="13" height="13" border="0">voltar</a><br>  </form></TD>  </TR></TABLE><!-- FIM TABELA PRINCIPAL --><!-- TABELA DO RODAPE --><TABLE align="center" cellSpacing=0 cellPadding=0 width=750 border=0 borderColor=#bc9f67>		<TR>		  <TD width="100%">			<P><IMG height=15 src="../imagens/rodape.jpg" width=750 border=0></P>		  </TD>		</TR></TABLE><!-- FIM DA TABELA DO RODAPE --></body></html>