Erro na linha 0 ???

[WLJ 0]

ADODB.Field erro '80020009'

 

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

 

/spte/admin/regioes/alterar_regioes.asp, line 0

ps.: o registro existe! O Banco não ta vazio...

[d.eleete 0]

Posta o codigo pra gente :rolleyes:

[WLJ 0]

Desculpa se estiver muito bagunçado é q to fazendo varios testes com o codigo pra achar o q é esse erro...

<%@LANGUAGE="vb script: this.className='imgtdOver'" onmouseout="java script: this.className='imgtdOut'"><A HREF="../transportadores/procurar_transportador.asp">Procurar/Editar</A></TD>      </TR>      <TR>        <TD HEIGHT="15" BGCOLOR="#F1F1E0" onMouseOver="java script: this.className='imgtdOver'" onmouseout="java script: this.className='imgtdOut'"><A HREF="../transportadores/inserir_transportador.asp">Inserir</A></TD>      </TR>      <TR>        <TD HEIGHT="15" BGCOLOR="#E6E6CC"><IMG SRC="../../images/seta_down.gif" WIDTH="16" HEIGHT="16" ALIGN="ABSBOTTOM"><FONT COLOR="#000000" SIZE="2" FACE="Arial, Helvetica, sans-serif">Cidades</FONT></TD>      </TR>      <TR>        <TD HEIGHT="15" BGCOLOR="#F1F1E0" onMouseOver="java script: this.className='imgtdOver'" onmouseout="java script: this.className='imgtdOut'"><A HREF="alterar_cidades.asp">Procurar/Editar</A></TD>      </TR>      <TR>        <TD HEIGHT="15" BGCOLOR="#F1F1E0" onMouseOver="java script: this.className='imgtdOver'" onmouseout="java script: this.className='imgtdOut'"><A HREF="inserir_cidades.asp">Inserir</A></TD>      </TR>      <TR>        <TD HEIGHT="15" BGCOLOR="#E6E6CC"><IMG SRC="../../images/seta_down.gif" WIDTH="16" HEIGHT="16" ALIGN="ABSBOTTOM"><FONT COLOR="#000000" SIZE="2" FACE="Arial, Helvetica, sans-serif">Regiões</FONT></TD>      </TR>      <TR>        <TD HEIGHT="15" BGCOLOR="#F1F1E0" onMouseOver="java script: this.className='imgtdOver'" onmouseout="java script: this.className='imgtdOut'"><A HREF="../regioes/alterar_regioes.asp">Procurar/Editar</A></TD>      </TR>      <TR>        <TD HEIGHT="15" BGCOLOR="#F1F1E0" onMouseOver="java script: this.className='imgtdOver'" onmouseout="java script: this.className='imgtdOut'"><A HREF="../regioes/inserir_regioes.asp">Inserir</A></TD>      </TR>      <TR>        <TD HEIGHT="15" BGCOLOR="#E6E6CC"><IMG SRC="../../images/seta_down.gif" WIDTH="16" HEIGHT="16" ALIGN="ABSBOTTOM"><FONT COLOR="#000000" SIZE="2" FACE="Arial, Helvetica, sans-serif">Entidades</FONT></TD>      </TR>      <TR>        <TD HEIGHT="15" BGCOLOR="#F1F1E0" onMouseOver="java script: this.className='imgtdOver'" onmouseout="java script: this.className='imgtdOut'"><A HREF="../entidades/alterar_entidades.asp">Procurar/Editar</A></TD>      </TR>      <TR>        <TD HEIGHT="15" BGCOLOR="#F1F1E0" onMouseOver="java script: this.className='imgtdOver'" onmouseout="java script: this.className='imgtdOut'"><A HREF="../entidades/inserir_entidades.asp">Inserir</A></TD>      </TR>    </TABLE></TD>    <TD WIDTH="573" HEIGHT="401" ROWSPAN=2 VALIGN="TOP" BACKGROUND="../images/trans_admin_07.jpg" BGCOLOR="#FCFCEC" CLASS="BgAdminCenter"><FORM ACTION="alterar_regioes.asp" METHOD="GET" NAME="form1">        <TABLE WIDTH="686" BORDER="0" ALIGN="CENTER" CELLPADDING="2" CELLSPACING="2">          <TR>            <TD COLSPAN="3" CLASS="BgBarraSubTitle">Alterar Região</TD>          </TR>          <TR>            <TD COLSPAN="3"> </TD>          </TR>          <TR>            <TD WIDTH="5" CLASS="BgBarraCampo">Cod</TD>            <TD WIDTH="120" HEIGHT="20" CLASS="BgBarraCampo">Região</TD>            <TD HEIGHT="20" CLASS="BgBarraCampo">Cidade</TD>          </TR>          <TR>            <TD WIDTH="5"> </TD>            <TD> </TD>            <TD WIDTH="426">  </TD>          </TR>          <%While NOT rsregioes.EOF%>          <TR>            <TD WIDTH="5"><INPUT NAME="Cod_Regiao" DISABLED TYPE="text" SIZE="5" MAXLENGTH="5" VALUE="<%=rsregioes("Cod_Regiao")%>"></TD>            <TD>              <INPUT TYPE="TEXT" NAME="regiao_<%=rsregioes("Cod_Regiao")%>" VALUE="<%=rsregioes("Nome_Regiao")%>">            </TD>            <TD>              <Select Name="cidade">        <%rscidades.MoveFirst%>                      <%While NOT rscidades.EOF%>                <option value="<%=rscidades("Cod_Cidade")%>"    <%    If rsregioes("Cod_Cidade")= rscidades("Cod_Cidade")  Then    Response.Write " selected "    End If    %>    ><%=rscidades("Nome_Cidade")%> </Option>                <%rscidades.MoveNext%>                <%Wend%>              </select>              <INPUT NAME="Cod_Cidade" TYPE="hidden" ID="Cod_Cidade" VALUE="<%=rscidades("Cod_Cidade")%>">              <INPUT NAME="Btn" TYPE="SUBMIT" CLASS="BtnAlterarRegiao" VALUE="<%=rsregioes("Cod_Regiao")%>">             </TD>          </TR>          <%rsregioes.MoveNext%>          <%Wend%>        </TABLE>      </FORM>    </TD>    <TD HEIGHT="401" ROWSPAN=2 VALIGN="TOP" BACKGROUND="../images/trans_admin_08.jpg" BGCOLOR="#FFFFFF"> <IMG SRC="../images/trans_admin_08.jpg" WIDTH=20 HEIGHT=401 ALT=""></TD>  </TR>  <TR>    <TD WIDTH="11" HEIGHT="35" CLASS="BgTb9">  </TD>    <TD WIDTH="17" HEIGHT="35" CLASS="BgTb10">  </TD>  </TR>  <TR>    <TD COLSPAN=5> <IMG SRC="../images/trans_admin_11.jpg" WIDTH=780 HEIGHT=18 ALT=""></TD>  </TR></TABLE><TABLE WIDTH="780" BORDER="0" ALIGN="CENTER" CELLPADDING="0" CELLSPACING="0">  <TR>    <TD><DIV ALIGN="CENTER"><FONT COLOR="#666666" SIZE="2" FACE="Arial, Helvetica, sans-serif">Passageiro.:          Busca  -  Link´s  -  Anuncie  -  Dicas  -  Legislação</FONT></DIV>    </TD>  </TR>  <TR>    <TD><DIV ALIGN="CENTER"><FONT COLOR="#666666" SIZE="2" FACE="Arial, Helvetica, sans-serif">Motorista.:          Legislação  -  Sindicato  -  Dicas  -  Consulta          de Multas</FONT></DIV>    </TD>  </TR>  <TR>    <TD HEIGHT="40" ALIGN="CENTER" VALIGN="MIDDLE"><DIV ALIGN="CENTER"><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif">Desenvolvido          por ASP & Cia. Softhouse</FONT></DIV>    </TD>  </TR></TABLE><P> </P></BODY></HTML><%Call FechaConexaoSet rsregiao=nothingSet rscidades=nothing%>

[franksilva 0]

De qq forma ta parecendo que não retornou nada...Tente isso pra verificar tamanho do rs antes de acessar seus atributos ou executar seus métodos: IF (rs.BOF = TRUE) AND (rs.EOF = TRUE) THEN Response.Write "Não retornou nenhum registro" ELSE seus_comandos END IF []'sDouglas Frankenberger

[d.eleete 0]

POw.. tira aquela primeira linha la..

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

[nostrinkes 0]

não está faltando este bagu_immmSet Rs = Server.CreateObject("adodb.recordset")

[WLJ 0]

De qq forma ta parecendo que não retornou nada...Tente isso pra verificar tamanho do rs antes de acessar seus atributos ou executar seus métodos: IF (rs.BOF = TRUE) AND (rs.EOF = TRUE) THEN Response.Write "Não retornou nenhum registro" ELSE seus_comandos END IF []'sDouglas Frankenberger

continua mesmo erro....

[WLJ 0]

POw.. tira aquela primeira linha la..

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

continua mesmo erro....

[WLJ 0]

não está faltando este bagu_immmSet Rs = Server.CreateObject("adodb.recordset")

continua mesmo erro....

[diego_sl 0]

posta o código do conexao.asp pra nóse faz uma coisa tb....na 1a linha colok a isso<%response.buffer = true%>v c funciona

[WLJ 0]

posta o código do conexao.asp pra nóse faz uma coisa tb....na 1a linha colok a isso<%response.buffer = true%>v c funciona

continua mesmo erro....

[WLJ 0]

posta o código do conexao.asp pra nóse faz uma coisa tb....na 1a linha colok a isso<%response.buffer = true%>v c funciona

tai o codigo da conexao.asp

<%dim conexaoSub AbreConexao	Dim caminho	caminho= "c:\InetPub\sites\spte\db\transportadores.mdb"	set conexao=server.createobject("ADODB.Connection")	conexao.open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & caminhoEnd SubSub FechaConexao   conexao.close   set conexao=nothingEnd Sub%>

[WLJ 0]

É muito Maluko esse negocio de erro na linha 0... isso é normal ???

[nostrinkes 0]

Então cara ,,, vou tentar novamente eu posso estar dizendo geleia de abobrinha mais,,,,Não estou achando o createObject da query.....voce tem duas select com o banco e nenhuma cria objeto antes...já olhei seu codigo e não achei ,,, Duas....rsregioes e rscidadesSet rsregioes = Server.CreateObject("adodb.recordset")Set rscidades = Server.CreateObject("adodb.recordset") :lol: :( :(