Ir para conteúdo

POWERED BY:

Arquivado

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

marcelocardoso

erro 80020009

Por , em ASP Clássico

Recommended Posts

marcelocardoso    6

marcelocardoso
Postado

Olá pessoal!

 

Tenho este código abaixo, onde através de uma combodinâmica, ele me abre abaixo uma imagem para cada item selecionado no SELECT: vejam o código:

 

AQUI ESTÁ O ERRO, QUE ME DÁ:

ADODB.Field error '80020009'

 

BOF ou EOF são verdadeiros, ou o registro atual foi excluído.

A operação solicitada pelo aplicativo requer um registro atual.

 

?

AQUI ESTÁ O CÒDIGO FUNCIONANDO, SO COM O PROBLEMA DESCRITO ACIMA:

<%'Criando conexão com o Banco Dados para Guardar Dados da Mensagem	 DB = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fotos.mdb")   Set Conexao = Server.CreateObject("ADODB.Connection")	   Conexao.Open DB    Set ObjRS = Server.CreateObject("ADODB.RecordSet")	   ObjRS.Open "SELECT * FROM Fotos",DB%><html><head><title>Combo Dinâmica = CARREGAMENTO DE IMAGENS</title><link href="includes/_inc-estilos.css" rel="stylesheet" type="text/css"><script language="javascript">		function Carregar() {document.frm.submit();}</script></head><body><form action="" method="post" name="frm"><table width="216" height="160"  border="0" align="center" cellpadding="0" cellspacing="0" class="BORDATABELA1"><tr> <td><table width="103%"  border="0" align="center" cellpadding="0" cellspacing="0" class="BORDATABELA2"><tr> 			<td height="29" bgcolor="#FDF4D9"> 			  <div align="center"> <select name="Seleciona" size="1" id="Seleciona" onChange="Carregar()"><option value="Escolha">Escolha</option><% DO WHILE NOT ObjRS.EOF %><option value="<%=ObjRS("Image")%>"><%=ObjRS("Nome")%></option><%ObjRS.MoveNext	  Loop%></select>				<%IF Request.Form("Seleciona") <> "" THENEnd IF%>			  </div></td></tr><tr> <td width="180" height="162"> <div align="center"><img src="<%=Request.Form("Seleciona")%>" alt="<%=ObjRS("Nome")%>" width="170" height="150"></div></td></tr><tr><td></td></tr></table></td></tr></table></form></body></html>

Se alguém puder ajudar fico grato.

Até mais e obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Amigo_zz    0

Amigo_zz
Postado

colega, isso acontece porque tenta escrever no ecra, um campo de um recordset que nao apanha nenhum registo na tabela com os criterios que lhe impoe. experimenta executar a sql com valores fixos directamente no banco de dados.rui costa

Compartilhar este post

Link para o post
Compartilhar em outros sites

Amigo_zz    0

Amigo_zz
Postado

Amigo ele não está achando nada por isso ele ta dando este erro tente colocar antes do while um if not rs.eof and rs.bof then...end if

foi o que eu quis explicar...esqueci-me foi de dizer isto... eh eh eh if rs.recordcount>0 thenend if

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

CAROS AMIGOS!Não entendi muito bem oque me passaram?Será que não conseguem me passar o código como ficará com o exemplo de vocês?Pois um disse uma coisa e o outro outra?Podem me darem cada um o seu exemplo, pois estou me quebrando para realizar...sozinho.Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

na verdade ele ja faz tudo isso mas...ta tentando usar o valor do banco fora do laço aqui ó<img src="<%=Request.Form("Seleciona")%>" alt="<%=ObjRS("Nome")%>" width="170" height="150">só colocar isso dentro do loop ...logico vendo se a logica ta certa e se é isso mesmo que voce quer...

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

CERTO PESSOAL!

 

Valeu pelas dicas, agora funcionou legal!

Mas precisaria agora complementar este código, pois gostaria que assim que abrisse-o arquivo no brownser pela 1º vez, no caso daí não teriamos nada escolhido no selectbox, certo. Portanto gostaria de colocar uma imagem default sempre que abrissemos o arquivo, e depois sim quando escolhermos alguma opção no select box, aí ele me traria a imagem correspondente a opção escolhida.

 

VEJAM o código funcionando, e me ajudem a colocar uma imagem quando nada for selecionado:

<%	 DB = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fotos.mdb")Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open DB    Set ObjRS = Server.CreateObject("ADODB.RecordSet")		ObjRS.Open "SELECT * FROM fotografias",DB%><html><head><title>CARREGAMENTO DE IMAGENS</title><script language="javascript">		function Carregar() {document.frm.submit();}</script></head><body><form action="Default.asp" method="post" name="frm">  <table width="216" height="160"  border="0" align="center" cellpadding="0" cellspacing="0" class="">	<tr><td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0" class="BORDATABELA2"><tr>			<td height="38" bgcolor="#CCCCCC"><div align="center"> <select name="Seleciona" size="1" id="Seleciona" onChange="Carregar()"><option value="Escolha">Escolha</option><% IF NOT ObjRS.EOF = "" THEN %><%DO WHILE NOT ObjRS.EOF %><option value="<%=ObjRS("Image")%>"><%=ObjRS("Nome")%></option><%ObjRS.MoveNext	  Loop%></select></div></td></tr><tr> <td width="207" height="180"><div align="center"><img src="<%=Request.Form("Seleciona")%>" width="170" height="150"></div></td></tr><tr><td></td></tr></table></td></tr></table></form><%ELSE%><%END IF%></body></html>

Obrigado a todos

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