Ir para conteúdo

POWERED BY:

Arquivado

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

br1

ADODB.Field error '80020009'

Recommended Posts

Pessoal meu site esta aparecendo esse erro alguem pode me ajudar

, q isso

 

ADODB.Field error '80020009'

 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

 

/Portal/Home/MAIN1.ASP, line 0

 

 

http://www.portalcatalao.com.br/script/noticias/main.asp

Compartilhar este post


Link para o post
Compartilhar em outros sites

br1,este erro está t dizendo que é inicio e fim do arquivo ao mesmo tempo, ou seja, você não tem nenhum registro disponível para a sua pesquisa.verifique a sua consulta sql, provavelmente ela não esta retornando nenhum registro, ou o seu banco está vazio.

Compartilhar este post


Link para o post
Compartilhar em outros sites

é isso ae q a galera postou, está sem registro e se tentar exibir um campo neste estado ocorre este erro.antes de iniciar a exibição de valores verifique se o recordset foi preenchido, tipo:

if RsTeste.EOF = True and RsTeste.BOF = True then exit sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Pessoal segue o codigo talvez saibam onde está o problema, coisa q nao estou sabendo o bd está com os dados.<%Set conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("../../base/bd/bd.mdb") sub open_recordset(recordset, sql) Set recordset = Server.CreateObject("ADODB.Recordset") recordset.Open sql, conexao, 1, 1end sub%><%open_recordset rs_noticia,"select * from NoDb"Randomize TimerintRnd = (Int(RND * rs_noticia.RecordCount)) if session("NoDbMainIdNo") = intRnd then do while session("NoDbMainIdNo") = intRnd intRnd = (Int(RND * rs_noticia.RecordCount)) loop end if rs_noticia.Move intRnd session("NoDbMainIdNo") = intRnd%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Pessoal Achei o Problema, so não onde está <%rs_noticia.CloseSet rs_noticia = Nothingconexao.closeset conexao = Nothing%><%NoticiaID = ("1")dsn="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("../../base/bd/bd.mdb") set oC = server.createobject("ADODB.connection") oC.open DSN Sqlstr ="Select * From NoDb Where id=" & NoticiaID set oRs= oC.execute(Sqlstr) %>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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