[Resolvido] error '80020009'

Filipe Poiato · Março 10, 2010

Boa Tarde,

Estou com um problema um pouco comum, mas não consigo resolver, verifiquei outros posts do mesmo problema, mas não me ajudaram. Po isso estou postado.

Tenho uma página de pesquisa que deve mostrar uma tabela assim: o grupo de exames, os dias em que foram realizados e as quantidades. Meu problema é que a primeira tabela é mostrada sem problemas, mas quando vai mostrar a segunda da esse maldiro error 80020009. Segue abaixo o código que deveria gerar as tabelas:

<%do while not bd.eof%>
<%
				vargrupo = bd("grupoid")
				set dia 		= Conexao.Execute ("SELECT dia FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
				set countdia 	= Conexao.Execute ("SELECT SUM (dia) as qtde FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
				set agend_int		= Conexao.Execute ("SELECT SUM (agendadas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
				set tot_ag_int		= Conexao.Execute ("SELECT SUM (agendadas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
				set falt_int		= Conexao.Execute ("SELECT SUM (faltas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
				set tot_fa_int		= Conexao.Execute ("SELECT SUM (faltas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
				set canc_int		= Conexao.Execute ("SELECT SUM (canceladas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
				set tot_ca_int		= Conexao.Execute ("SELECT SUM (canceladas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
				set enca_int		= Conexao.Execute ("SELECT SUM (encaixes_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
				set tot_en_int		= Conexao.Execute ("SELECT SUM (encaixes_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
				set real_int		= Conexao.Execute ("SELECT SUM (realizadas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
				set tot_re_int		= Conexao.Execute ("SELECT SUM (realizadas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
				set agend_ext		= Conexao.Execute ("SELECT SUM (agendadas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
				set tot_ag_ext		= Conexao.Execute ("SELECT SUM (agendadas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
				set falt_ext		= Conexao.Execute ("SELECT SUM (faltas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
				set tot_fa_ext		= Conexao.Execute ("SELECT SUM (faltas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
				set canc_ext		= Conexao.Execute ("SELECT SUM (canceladas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
				set tot_ca_ext		= Conexao.Execute ("SELECT SUM (canceladas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
				set enca_ext		= Conexao.Execute ("SELECT SUM (encaixes_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
				set tot_en_ext		= Conexao.Execute ("SELECT SUM (encaixes_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
				set real_ext		= Conexao.Execute ("SELECT SUM (realizadas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
				set tot_re_ext		= Conexao.Execute ("SELECT SUM (realizadas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
%>
<%IF dia("dia") = "" THEN %>
		<TABLE align=center border=1>
			<TR>
				<TD>
					<B><%=bd("grupo")%></B>
				</TD>
				<TD align="center" width=50 colspan=2>
					<B>Total</B>
				</TD>
			</TR>
			<TR>
				<TD>
					Teste 2
				</TD>
				<TD align="center">
					<B>I</B>
				</TD>
				<TD align="center">
					<B>E</B>
				</TD>
			</TR>
			<TR>
				<TD>
					Agendadas
				</TD>
				<TD align="center">
					 
				</TD>
				<TD align="center">
					 
				</TD>
			</TR>
			<TR>
				<TD>
					Faltas
				</TD>
				<TD align="center">
					 
				</TD>
				<TD align="center">
					 
				</TD>
			</TR>
			<TR>
				<TD>
					Canceladas
				</TD>
				<TD align="center">
					 
				</TD>
				<TD align="center">
					 
				</TD>
			</TR>
			<TR>
				<TD>
					Encaixe
				</TD>
				<TD align="center">
					 
				</TD>
				<TD align="center">
					 
				</TD>
			</TR>
			<TR>
				<TD>
					Realizados
				</TD>
				<TD align="center">
					 
				</TD>
				<TD align="center">
					 
				</TD>
			</TR>
		</TABLE>
		<BR>
<%ELSE%>
		<TABLE align=center border=1>
			<TR>
				<TD>
					<B><%=bd("grupo")%></B>
				</TD>
<%
do while not dia.eof
%>
				<TD align="center" width=50 colspan=2>
					<B><%=dia("dia")%></B>
				</TD>
<%
dia.movenext
loop
dia.movefirst
%>
				<TD align="center" width=50 colspan=2>
					<B>Total</B>
				</TD>
			</TR>
			<TR>
				<TD>
					Teste
				</TD>
<%
do while not dia.eof
%>
				<TD align="center">
					<B>I</B>
				</TD>
				<TD align="center">
					<B>E</B>
				</TD>
<%
dia.movenext
loop
set dia = nothing
%>
				<TD align="center">
					<B>I</B>
				</TD>
				<TD align="center">
					<B>E</B>
				</TD>
			</TR>
			<TR>
				<TD>
					Agendadas
				</TD>
<%
do while not agend_int.eof
%>
				<TD align="center">
					<%IF agend_int("total")<>0 THEN%><%=agend_int("total")%><%ELSE%> <%END IF%>
				</TD>
<%
agend_int.movenext
loop
set agend_int = nothing
%>
<%
do while not agend_ext.eof
%>
				<TD align="center">
					<%IF agend_ext("total")<>0 THEN%><%=agend_ext("total")%><%ELSE%> <%END IF%>
				</TD>
<%
agend_ext.movenext
loop
set agend_ext = nothing
%>
				<TD align="center">
					<%IF tot_ag_int("total")<>0 THEN%><%=tot_ag_int("total")%><%ELSE%> <%END IF%>
				</TD>
				<TD align="center">
					<%IF tot_ag_ext("total")<>0 THEN%><%=tot_ag_ext("total")%><%ELSE%> <%END IF%>
				</TD>
			</TR>
			<TR>
				<TD>
					Faltas
				</TD>
<%
do while not falt_int.eof
%>
				<TD align="center">
					<%IF falt_int("total")<>0 THEN%><%=falt_int("total")%><%ELSE%> <%END IF%>
				</TD>
<%
falt_int.movenext
loop
set falt_int = nothing
%>
<%
do while not falt_ext.eof
%>
				<TD align="center">
					<%IF falt_ext("total")<>0 THEN%><%=falt_ext("total")%><%ELSE%> <%END IF%>
				</TD>
<%
falt_ext.movenext
loop
set falt_ext = nothing
%>
				<TD align="center">
					<%IF tot_fa_int("total")<>0 THEN%><%=tot_fa_int("total")%><%ELSE%> <%END IF%>
				</TD>
				<TD align="center">
					<%IF tot_fa_ext("total")<>0 THEN%><%=tot_fa_ext("total")%><%ELSE%> <%END IF%>
				</TD>
			</TR>
			<TR>
				<TD>
					Canceladas
				</TD>
<%
do while not canc_int.eof
%>
				<TD align="center">
					<%IF canc_int("total")<>0 THEN%><%=canc_int("total")%><%ELSE%> <%END IF%>
				</TD>
<%
canc_int.movenext
loop
set canc_int = nothing
%>
<%
do while not canc_ext.eof
%>
				<TD align="center">
					<%IF canc_ext("total")<>0 THEN%><%=canc_ext("total")%><%ELSE%> <%END IF%>
				</TD>
<%
canc_ext.movenext
loop
set canc_ext = nothing
%>
				<TD align="center">
					<%IF tot_ca_int("total")<>0 THEN%><%=tot_ca_int("total")%><%ELSE%> <%END IF%>
				</TD>
				<TD align="center">
					<%IF tot_ca_ext("total")<>0 THEN%><%=tot_ca_ext("total")%><%ELSE%> <%END IF%>
				</TD>
			</TR>
			<TR>
				<TD>
					Encaixe
				</TD>
<%
do while not enca_int.eof
%>
				<TD align="center">
					<%IF enca_int("total")<>0 THEN%><%=enca_int("total")%><%ELSE%> <%END IF%>
				</TD>
<%
enca_int.movenext
loop
set enca_int = nothing
%>
<%
do while not enca_ext.eof
%>
				<TD align="center">
					<%IF enca_ext("total")<>0 THEN%><%=enca_ext("total")%><%ELSE%> <%END IF%>
				</TD>
<%
enca_ext.movenext
loop
set enca_ext = nothing
%>
				<TD align="center">
					<%IF tot_en_int("total")<>0 THEN%><%=tot_en_int("total")%><%ELSE%> <%END IF%>
				</TD>
				<TD align="center">
					<%IF tot_en_ext("total")<>0 THEN%><%=tot_en_ext("total")%><%ELSE%> <%END IF%>
				</TD>
			</TR>
			<TR>
				<TD>
					Realizados
				</TD>
<%
do while not real_int.eof
%>
				<TD align="center">
					<%IF real_int("total")<>0 THEN%><%=real_int("total")%><%ELSE%> <%END IF%>
				</TD>
<%
real_int.movenext
loop
set real_int = nothing
%>
<%
do while not real_ext.eof
%>
				<TD align="center">
					<%IF real_ext("total")<>0 THEN%><%=real_ext("total")%><%ELSE%> <%END IF%>
				</TD>
<%
real_ext.movenext
loop
set real_ext = nothing
%>
				<TD align="center">
					<%IF tot_re_int("total")<>0 THEN%><%=tot_re_int("total")%><%ELSE%> <%END IF%>
				</TD>
				<TD align="center">
					<%IF tot_re_ext("total")<>0 THEN%><%=tot_re_ext("total")%><%ELSE%> <%END IF%>
				</TD>
			</TR>
		</TABLE>
		<BR>

<%END IF%>
<%
bd.movenext
loop
set bd = nothing
%>

O erro aponta a linha:

<%IF dia("dia") = "" THEN %>

Obrigado.

Vinicius Ianni · Março 10, 2010

Hummm esquisito.

Deu um response.write na clausula sql para ver se está tudo correto ? Os campo dia permite valores nulos ?

no if dia("dia")... antes, coloque um

if dia.eof then

response.write "sem registros"

else

if dia("dia") ....

pode ser que o erro seja por isso

Nos proximos posts, coloque só a parte relevante de codigo, porque ler esse moonte de linhas dá muito trabalho/preguiça ;)

Filipe Poiato · Março 10, 2010

Hummm esquisito.

Deu um response.write na clausula sql para ver se está tudo correto ? Os campo dia permite valores nulos ?

no if dia("dia")... antes, coloque um

if dia.eof then

response.write "sem registros"

else

if dia("dia") ....

pode ser que o erro seja por isso

Nos proximos posts, coloque só a parte relevante de codigo, porque ler esse moonte de linhas dá muito trabalho/preguiça ;)

Cara, Valeu pela dica, vendo ela eu resolvi trocar o meu "if dia("dia")..." pelo seu "if dia.eof then" e funcionou como eu precisava.

Quanto a parte do código eu postei todo o esquema do IF principal, pois achei que o erro pederia estar nele.

Valeu mais uma vez.

xanburzum · Março 11, 2010

Se você estiver usando um campo MEMO, TEXT ou VARCHAR (> 255), ele pode gerar este erro, ou isso muitas vezes pode acontecer se você faz referência a um objeto recordset que foi criado em uma página diferente, ou no escopo de sessão. No primeiro caso, você terá que consultar novamente a base de dados para este conjunto de registros e, neste caso, você deve considerar um outro plano para a implementação ... você nunca deve guardar um objeto de registros no escopo de sessão

Vinicius Ianni · Março 11, 2010

De nada, precisando estamos ai http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Entrar

Arquivado

[Resolvido] error '80020009'

Recommended Posts

Filipe Poiato 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

Filipe Poiato 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante