Ir para conteúdo

POWERED BY:

Arquivado

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

sr.silva

Verificar registros em um recordset

Por , em ASP Clássico

Recommended Posts

Mário Monteiro    179

Mário Monteiro
Postado

agora poe a linha do erro deste seu "codigo na integra"

Compartilhar este post

Link para o post
Compartilhar em outros sites

sr.silva    1

sr.silva
Postado

Resumindo o código..

==========================

 

<html>

<head>

</head>

<body>

 

<!-- TABELA DO TOPO E MENU -->

<!--#include file="lib/topo.asp" -->

<!--#include file="lib/VerificarMensagens.asp" -->

<br>

<%

call AbrirConexao

 

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

<td height="19"><p class="labels">Email:</p></td>

<td height="19"><input name="txtEmail" type="text" id="txtEmail" size="60"></td>

</tr>

<tr>

</tr>

<tr>

<td height="19"><p class="labels">Atividade:</p></td>

<td height="19">

<%

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

 

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

 

</body>

</html>

 

========================

 

O erro estão nas linhas em destaque....seguindo todo aquele problema já relatado... :mellow:

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mas quial a linha agora??? do erro.. aind aé de EOF???

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

bom, dei uma olhada por cima e vi um erro...você não criou o objeto 

Set RSAtividades = Server.CreateObject("ADODB.Recordset")
coloque isso antes de executar o comando da conexão e veja se funciona

Compartilhar este post

Link para o post
Compartilhar em outros sites

sr.silva    1

sr.silva
Postado

O problema se encontra na linhas em AZUL, pois como falei, se eu retirar as mesmas funciona....a pagina e carregada.!

bom, dei uma olhada por cima e vi um erro...você não criou o objeto CODESet RSAtividades = Server.CreateObject("ADODB.Recordset")coloque isso antes de executar o comando da conexão e veja se funciona

Tá tudo em um include...
<!--#include file="lib/topo.asp" -->call AbrirConexaocall FecharConexao

Compartilhar este post

Link para o post
Compartilhar em outros sites

ultra    0

ultra
Postado

Ta... agora muda para:

<%strAtividades = " SELECT * FROM ATIVIDADES_PARCEIROS "set RSAtividades = Conn.execute(strAtividades)Response.Write("<select name='Atividades'>")Response.Write("<option> </option>")IF not RSAtividades.Eof thenwhile not RSAtividades.EofResponse.Write("<option value="&RSAtividades("AP_CODIGO")&">"&RSAtividades("AP_DESCRICAO")&"</option>")RSAtividades.MoveNextWendend IFResponse.Write("</select>")%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

sr.silva    1

sr.silva
Postado

Mais e essa a questao....se eu coloco tal condicao, nao funciona....O que deveria mesmo era funcionar...mas..

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mas como assim nao funciona....do jeito que voce ta fzazendo ainda da erro ou nao aparece nada ou o que...ta dificil de falar algo poruqe quando voce poe o codigo nao poe o erro quando poe o erro ninguem sabe onde étente colocar o trecho do codigo umas 10 linhas por ai e poe tambem a descricao e a linha do erro que da pra ajudar mais

Compartilhar este post

Link para o post
Compartilhar em outros sites

sr.silva    1

sr.silva
Postado

LINHAS DE ERRO...

 

<%strAtividades = " SELECT * FROM ATIVIDADES_PARCEIROS "set RSAtividades = Conn.execute(strAtividades)Response.Write("<select name='Atividades'>")Response.Write("<option> </option>")while not RSAtividades.EofResponse.Write("<option value="&RSAtividades("AP_CODIGO")&">"&RSAtividades("AP_DESCRICAO")&"</option>")RSAtividades.MoveNextWendResponse.Write("</select>")%>

:: DESCRICAO DO ERRO.....

 

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

já tentou a fazer isso, verificar por etapas...

 

<%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>")response.write(RSAtividades("AP_CODIGO"))%>

com isso você vai saber se o recordset está sendo executado corretamente se retornar o primeiro registro

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