Jump to content


Photo

Erro De Consulta


  • Faça o login para participar
4 replies to this topic

#1 fabiano.froes

fabiano.froes

    Normal

  • Usuários
  • 87 posts
  • Sexo:Não informado

Posted 23/10/2006, 20:41

Galera como estou começando com asp agora nao consegui detectar o erro no código q se segue, se alguem puder me ajudar.....

<%
	set fs=Server.CreateObject("Scripting.FileSystemObject")
	arqdir = "e:\home\masterimoveis\dados\" 
	Set bdaluguel = Server.CreateObject("ADODB.Connection")
	bdaluguel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & arqdir & "bdalugueis.mdb;"
	SQL = "SELECT * FROM destaque"
	set destaque = bdaluguel.execute(SQL)
				while not destaque.eof 
		cod = destaque("Imov_Codigo")
		dest = "SELECT * FROM SIMCadImov WHERE Imov_Codigo= " & cod
		set dadosdest = bdaluguel.execute(dest)%>
		<%=dados("Imov_Endereco")%>
					<%
					dadosdest.close
		destaque.movenext
	wend 
	destaque.close

%>
o erro q esta dando é o seguinte:

ADODB.Field error '80020009'

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


se alguem puder me ajudar valew!!!!! (y)
Arley Fabiano Santos Fróes
fabiano@4way.com.br

#2 siola

siola

    Usuário

  • Usuários
  • 894 posts
  • Sexo:Masculino
  • Localidade:SBC - SP
  • Interesses:ASP, .NET, javascript

Posted 23/10/2006, 22:19

O banco de dados está vazio, ou não tem nenhum registro para a pesquisa que você fez.

[]s

#3 colerus

colerus

    Novato no fórum

  • Usuários
  • 4 posts
  • Sexo:Não informado
  • Localidade:Petrópolis-RJ
  • Interesses:Diversos

Posted 24/10/2006, 05:23

Amigo, tente fazer assim...
<%
	set fs=Server.CreateObject("Scripting.FileSystemObject")
				'1º, se possível, para evitar erros de compatibilidade, no futuro, tente assim:
				arqdir = server.mappath("dados/bdalugueis.mdb")
	'ao invés de 'arqdir = "e:\home\masterimoveis\dados\" '
	Set bdaluguel = Server.CreateObject("ADODB.Connection")
	bdaluguel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & arqdir & ";"
	SQL = "SELECT * FROM destaque"
	set destaque = bdaluguel.execute(SQL)
				'aqui, eu recomendaria o recordset, mas tudo bem...
				if not destaque.eof then
							   destaque.movefirst
					while not destaque.eof 
		cod = destaque("Imov_Codigo")
		dest = "SELECT * FROM SIMCadImov WHERE Imov_Codigo= " & cod
		set dadosdest = bdaluguel.execute(dest)
								%>
		<%=dados("Imov_Endereco")%>
					<%
					dadosdest.close
		destaque.movenext
					wend 
				  end if
	destaque.close

%>
bem, assim ele só entra no while se tiver pelo menos 1 registro.
espero que funcione.
http://colerus.net46.net » Ainda em construção...

#4 fabiano.froes

fabiano.froes

    Normal

  • Usuários
  • 87 posts
  • Sexo:Não informado

Posted 24/10/2006, 14:56

Amigos, não é falta de registro porque eu adicionei os registros....
vou mandar o codigo completo pra vcs darem uma olhada....
<%
	set fs=Server.CreateObject("Scripting.FileSystemObject")
	fotosdir= "e:\home\masterimoveis\web\aluguel\img\"
	arqdir = "e:\home\masterimoveis\dados\" 
	Set bdaluguel = Server.CreateObject("ADODB.Connection")
	bdaluguel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & arqdir & "bdalugueis.mdb;"
	SQL = "SELECT * FROM destaque"
	set destaque = bdaluguel.execute(SQL)
				   
%>
</head>
<body bgcolor="#6B696B" leftmargin="0" topmargin="0">
<table width="241" border="0" cellspacing="0" cellpadding="0" background="../images/fundo_destaque.gif">
  <tr>
	  <td height="6"></td>
  </tr>
  <tr> 
	<td width="241" align="left"> <marquee id="vendas" direction=up scrollAmount="2" style="width:250px;height:250px;border:0px;padding:5px;"  onmouseover='this.stop()' onmouseout='this.start()'>
	  <%if not destaque.eof then							   
		destaque.movefirst 
		while not destaque.eof 
		  cod = destaque("Imov_Codigo")
		  dest = "SELECT * FROM SIMCadImov WHERE Imov_Codigo=" & cod
		  set dadosdest = bdaluguel.execute(dest)																
											
	 %>
	  <table width="240" height="82" border="0" cellpadding="0" cellspacing="0">
		<tr> 
		  <td width="5" height="0">&nbsp;</td>
		  <td width="146" height="1" bgcolor="#AAAAAA"><font face="verdana" style="font-size:10px"><b><%=tipo%></b></font></td>
		  <td width="82" height="0" rowspan="4" bgcolor="#FF8200"><div align="center"><img src="../../aluguel/img/<%=dadosdest("Imov_Codigo")%>.jpg" width="80" height="80"></div></td>
		  <td width="7" height="0">&nbsp;</td>
		</tr>
		<tr> 
		  <td height="0">&nbsp;</td>
		  <td height="1" bgcolor="#DDDDDD"><font face="verdana" style="font-size:10px"><%'=dadosdest("Imov_Bairro")%></font></td>
		  <td width="7" height="0">&nbsp;</td>
		</tr>
		<tr> 
		  <td height="0">&nbsp;</td>
		  <td height="1" bgcolor="#DDDDDD"><font color="#FF8200" face="verdana" style="font-size:10px"><b>R$ 
			<%'=dadosdest("Imov_Valor")%>,00</b></font></td>
		  <td width="7" height="0">&nbsp;</td>
		</tr>
		<tr> 
		  <td height="0"><div align="right"></div></td>
		  <td height="0" bgcolor="#DDDDDD"><a href="java script:ver('<%'=dadosdest("Imov_Codigo")%>','<%'=tipo%>')"><div align="right"><font style="font-size:10px" face="verdana">&lt;&lt;Detalhes&nbsp;&nbsp;</font></div></a></td>
		  <td height="0">&nbsp;</td>
		</tr>
	  </table>
	  <br>
	  <%
	  dadosdest.close
	  set dadosdest = nothing
	  destaque.movenext
	  wend 
	  end if	
	   destaque.close
	  %>
	  </marquee> </td>
  </tr>
	<tr>
	  <td height="6"></td>
  </tr>
  <tr> 
</table>
eu tenho um bd com duas tabelas destaque e SIMCadImov onde destaque tem os codigos dos registro de SIMCadImov que são destaques entaum eu selelcionei primeiro todos os registros de destaque e depois seleciono um por um os registros na tabela SIMCadImov, eu acho que o problema esta em ter um select dentro do outro porque qdo eu faço separadamente funciona....
Arley Fabiano Santos Fróes
fabiano@4way.com.br

#5 replay

replay

    Agora a vida começa...

  • Usuários
  • 421 posts
  • Sexo:Não informado

Posted 25/10/2006, 00:17

Kra sempre que vc fizer um select faça um if pra ve se tem registros na tabela

Coloca

'SELECT
If rs.eof then
'banco vazio
else
'mostra os dados
end if

Ta dado o caminho é so vc implementar no seu codigo .. com certeza vai dar certo....

Valeu :P
Não me adicione no MSN pq eu não vo te ajuda... se insistir eu vo ser grosso!!!
Ta com dúvida pergunta aqui no fórum...
Grato




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq