Ir para conteúdo

POWERED BY:

Arquivado

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

criacaoi7

Erro no admin

Por , em ASP Clássico

Recommended Posts

criacaoi7    0

criacaoi7
Postado

Pessoal como resolver este erro:

 

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.

 

/paginas/admin/noticias/Default.asp, line 0

 

Página:

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Notícia Regional</title>
<link rel="stylesheet" type="text/css" href="estilo.css">
<link rel="stylesheet" type="text/css" href="/admin/estilos.css">
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="685" height="314" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
	<td height="314" align="center" valign="top"> <table width="99%" border="0" cellspacing="0" cellpadding="0">
		<tr> 
		  <td align="center"> 
			<!--#include virtual="/topo.asp"-->
		  </td>
		</tr>
		<tr> 
		  <td><table width="680" border="0" cellspacing="0" cellpadding="4">
			  <tr> 
				<td align="center"> <table width="493" border="0" cellspacing="0" cellpadding="4">
					<tr> 
					  <td width="485"><font face="Verdana" size="1">  </font> 
						<table width="481" border="0" cellspacing="0" cellpadding="0">
						  <tr> 
							<td width="481"> 
							  <!--#include virtual="/Paginas/admin/config.asp"-->
							  <table border="0" cellpadding="2" cellspacing="0" width="450" bordercolor="#999999" align="center">
								<tr> 
								  <td align="center" bgcolor="#CCCCCC"> <table width="96%" border="0" cellspacing="0" cellpadding="0">
									  <tr> 
										<td align="center"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=name1%></strong></font></td>
									  </tr>
									</table></td>
								</tr>
								<tr> 
								  <td bgcolor="#FFFFFF"> 
									<%
						dim rsNoticias, strQuery
						dim intRegPagina, intPagina
						
						intRegPagina = 10
						
						if Request.QueryString("p") = "" then intPagina = 1 else intPagina = Request.QueryString("p")
						
						
						Set rsNoticias = Server.CreateObject("ADODB.Recordset")
						rsNoticias.CursorLocation = 3
						
													
						strQuery = "select n.id, c.categorias, n.descricao, n.titulo, n.data, n.hora from Noticias N "
						strQuery = strQuery & " inner join Categorias C on  c.ID = n.categoria order by n.id desc"
													
						Dim Dados
						set Dados = createobject("adodb.connection")
						Dados.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\web\olimpiadaconsespcombr\database\noticias.mdb"
						rsNoticias.Open strQuery, Dados
						
						rsNoticias.AbsolutePage = intPagina
						rsNoticias.CacheSize = intRegPagina
						rsNoticias.PageSize = intRegPagina						   
						%>
									<table width="100%" border="0" cellspacing="0" cellpadding="2" class="edicao">
									  <tr> 
										<th colspan="4">Cadastro de Notícias - 
										  <a href="incluir.asp"><img src="/admin/images/incluir.gif" border="0" title="Incluir"></a></th>
									  </tr>
									  <tr> 
										<th>Título</th>
										<th>Data/Hora de Cadastro</th>
										<th>Categoria</th>
										<th>Opções</th>
									  </tr>
									  <%
							for i = 1 to intRegPagina
							%>
									  <tr> 
										<td><%=rsNoticias("Descricao")%></td>
										<td><%=rsNoticias("Data")%> às <%=rsNoticias("Hora")%></td>
										<td><%=rsNoticias("categorias")%></td>
										<td align="center"> <a href="editar.asp?idNoticia=<%=rsNoticias("id")%>"><img src="/admin/images/alterar.gif" border="0" title="Editar"></a> 
										  <a href="acao.asp?idNoticia=<%=rsNoticias("id")%>&acao=e"><img src="/admin/images/excluir.gif" border="0" title="Excluir"></a> 
										</td>
									  </tr>
									  <%
								rsNoticias.MoveNext
							next
							%>
									  <tr> 
										<th colspan="4" align="right" class="paginacao"><p><br>
										  <form>
											Página <%=intPagina%> de <%=rsNoticias.PageCount%> 
											<a href="?p=<%=intPagina + 1%>">>></a> 
											<input type="text" name="p" size="3" title="Digite a página e precione Enter">
										  </form></th>
									  </tr>
									</table>
									<%
						rsNoticias.Close
						set rsNoticias = nothing
						%>
								  </td>
								</tr>
								<tr> 
								  <td bgcolor="#CCCCCC"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
									  <tr> 
										<td align="center"><a href="java script:self.history.go(-1)"><b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">voltar</font></b></a></td>
									  </tr>
									</table></td>
								</tr>
							  </table>
							  <br>  </td>
						  </tr>
						</table></td>
					</tr>
				  </table>
				  <p><br>
				  </p></td>
			  </tr>
			</table></td>
		</tr>
		<tr> 
		  <td><div align="center"> 
			  <!--#include virtual="/base.asp"-->
			</div></td>
		</tr>
	  </table></td>
  </tr>
</table>
<script LANGUAGE="javascript">
<!--
var strMsg = '<%=request("m")%>';
if(strMsg!=''){
	alert(strMsg);
}
//-->
</script>

</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Antes de usar algo vindo do db precisa testar se realmente buscou algum registro

Compartilhar este post

Link para o post
Compartilhar em outros sites

criacaoi7    0

criacaoi7
Postado

Ted dei o response no SQL, veja como eu fiz:

 

Dim Dados
set Dados = createobject("adodb.connection")
Dados.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\web\olimpiadaconsespcombr\database\noticias.mdb"
rsNoticias.Open strQuery, Dados
Response.Write(Dados)
																
rsNoticias.AbsolutePage = intPagina
rsNoticias.CacheSize = intRegPagina
rsNoticias.PageSize = intRegPagina		 
%>

Ele imprimiu isto na tela:

Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=c:\web\olimpiadaconsespcombr\database\noticias.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

 

E continua exibindo o erro:

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.

 

/paginas/admin/noticias/Default.asp, line 0

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

nao é isso nao

 

voce testar

 

IF NOT Recordset.EOF THEN

 

Aqui ´pode imprimir

 

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