erro de exceção

David Silva · Novembro 26, 2007

ASP

<html>

<%@LANGUAGE="VBSCRIPT"%>

<head>

<title>Banco de Dados Siegep</title>

</head>

<%vempresa = Request.Form("frmempresa")

vsemana = Request.Form("frmsemana")

vmes = Request.Form("frmmes")

vano = Request.Form("frmano")

Set CX = Server.CreateObject("ADODB.Connection")

CX.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("CestaBasica")

If vempresa <> "Todas" and vsemana > 0 Then

consulta = " SELECT coleta.Codigoe, coleta.Codigop, Empresa.nomee, Meses.Nmes, Produto.Tipop, Produto.Descri, Produto.Quanti, coleta.Ano, coleta.Mes, coleta.Semana, Min(coleta.Precop) AS Minimo, Max(coleta.Precop) AS Maximo, avg(Coleta.Precop) AS Media, Round(([Quanti]*[Media]),3) As CMedio FROM Ano AS Ano_1, Produto INNER JOIN (Meses INNER JOIN (Empresa INNER JOIN Coleta ON Empresa.Codigoe = Coleta.Codigoe) ON Meses.codigomes = coleta.Mes) ON Produto.CODIGOP = coleta.Codigop GROUP BY coleta.Codigoe, coleta.Codigop, Empresa.nomee, Meses.Nmes, Produto.Tipop, Produto.Descri, Produto.Quanti, coleta.Ano, coleta.Mes, coleta.Semana HAVING coleta.Codigoe Like '%" & vempresa & "%' AND coleta.Ano Like '%" & vano & "%' AND coleta.Mes Like '%" & vmes & "%' AND coleta.Semana Like '%" & vsemana & "%' AND Produto.Quanti > 0 order by Produto.Tipop, Produto.Descri "

End if

If vempresa <> "Todas" and vsemana = 0 Then

consulta = " SELECT coleta.Codigoe, coleta.Codigop, Empresa.nomee, Meses.Nmes, Produto.Tipop, Produto.Descri, Produto.Quanti, coleta.Ano, coleta.Mes, Min(coleta.Precop) AS Minimo, Max(coleta.Precop) AS Maximo, avg(Coleta.Precop) AS Media, Round(([Quanti]*[Media]),3) As CMedio FROM Ano AS Ano_1, Empresa INNER JOIN (Produto INNER JOIN (Meses INNER JOIN Coleta ON Meses.Codigomes = Coleta.Mes) ON Produto.CODIGOP = coleta.Codigop) ON Empresa.Codigoe = coleta.Codigoe GROUP BY coleta.Codigoe, Empresa.nomee, coleta.Codigop, Meses.Nmes, Produto.Tipop, Produto.Descri, Produto.Quanti, coleta.Ano, coleta.Mes HAVING coleta.Codigoe Like '%" & vempresa & "%' AND coleta.Mes Like '%" & vmes & "%' AND coleta.Ano Like '%" & vano & "%' AND Produto.Quanti > 0 order by Produto.Tipop, Produto.Descri "

End If

If vempresa = "Todas" and vsemana > 0 Then

consulta = " SELECT coleta.Codigop, Meses.Nmes, Produto.Tipop, Produto.Descri, Produto.Quanti, coleta.Ano, coleta.Mes, coleta.semana, Min(coleta.Precop) AS Minimo, Max(coleta.Precop) AS Maximo, avg(Coleta.Precop) AS Media, Round(([Quanti]*[Media]),3) As CMedio FROM Ano AS Ano_1, Produto INNER JOIN (Meses INNER JOIN Coleta ON Meses.codigomes = coleta.Mes) ON Produto.CODIGOP = coleta.Codigop GROUP BY coleta.Codigop, Meses.Nmes, Produto.Tipop, Produto.Descri, Produto.Quanti, coleta.Ano, coleta.Mes, coleta.semana HAVING coleta.semana Like '%" & vsemana & "%' AND coleta.Mes Like '%" & vmes & "%' AND coleta.Ano Like '%" & vano & "%' AND Produto.Quanti > 0 order by Produto.Tipop, Produto.Descri "

End If

If vempresa = "Todas" and vsemana = 0 Then

consulta = " SELECT coleta.Codigop, Meses.Nmes, Produto.Tipop, Produto.Descri, Produto.Quanti, coleta.Ano, coleta.Mes, Min(coleta.Precop) AS Minimo, Max(coleta.Precop) AS Maximo, avg(Coleta.Precop) AS Media, Round(([Quanti]*[Media]),3) As CMedio FROM Ano AS Ano_1, Produto INNER JOIN (Meses INNER JOIN Coleta ON Meses.codigomes = coleta.Mes) ON Produto.CODIGOP = coleta.Codigop GROUP BY coleta.Codigop, Meses.Nmes, Produto.Tipop, Produto.Descri, Produto.Quanti, coleta.Ano, coleta.Mes HAVING coleta.Ano Like '%" & vano & "%' AND coleta.Mes Like '%" & vmes & "%' AND Produto.Quanti > 0 order by Produto.Tipop, Produto.Descri "

End If

%>

<%

Set RS = CX.Execute(consulta)

IF RS.EOF AND RS.BOF THEN

%>

<h1>Não há dados que satisfaçam sua Consulta!</h1>

<%else%>

<p> <i><b><font size="4"> <fontsize="3">Universidade da Amazônia - UNAMA Prefeitura Municipal de Belém</font><BR>

</font></b>

<fontsize="2"><b>Curso de Ciências Econômicas </b>

<b>Núcleo de Planejamento - NUSP</b></i></P>

<p> <b><i><font size="4" color="#0000FF"><fontsize="2">Cesta de Consumo Popular na Cidade de Belém</font></font>

<font color="#0000FF"> <font size="4"> Belém, <%=date%> <%=Time%>

</font></font></i></b></P>

<% If (vempresa <> "Todas" and vsemana > 0) or (vempresa <> "Todas" and vsemana = 0) Then%>

Empresa: <fontsize="2"><%=RS.Fields("nomee")%></font>

Semana: <fontsize="2"><%=vsemana%></font>

Mes: <fontsize="2"><%=RS.Fields("Nmes")%></font>

Ano: <fontsize="2"><%=RS.Fields("Ano")%></font>

<%Else%>

Empresa: <fontsize="2"><%=vempresa%></font>

Semana: <fontsize="2"><%=vsemana%></font>

Mes: <fontsize="2"><%=RS.Fields("Nmes")%></font>

Ano: <fontsize="2"><%=RS.Fields("Ano")%></font>

<%End If%>

<tr>

<TD width="30%"><font color="#FF0000">Setor</font></TD>

<TD width="30%"><font color="#FF0000">Produto</font></TD>

<TD width="10%"><font color="#FF0000">Mínimo</font></TD>

<TD width="10%"><font color="#FF0000">Máximo</font></TD>

<TD width="10%"><font color="#FF0000">Média</font></TD>

<TD width="10%"><font color="#FF0000">C Medio</font></TD>

</tr>

</table>

<% RS.MoveFirst

Do While not RS.Eof

tmedia = 0

Do While RS.Fields("Tipop")= "Carne Branca"

smedia = rs.fields("Media")

tmedia=Round((tmedia + smedia),3)%>

<tr>

</tr>

</table>

<%RS.MoveNext

Loop%>

<tr>

</tr>

</table>

<%tmediacv = 0

Do While RS.Fields("Tipop")= "Carne Vermelha"

smedia = rs.fields("Media")

tmediacv=Round((tmediacv + smedia),3)%>

<tr>

</tr>

</table>

<%RS.MoveNext

Loop%>

<tr>

</tr>

</table>

<%tmediafr = 0

Do While RS.Fields("Tipop")= "Frutas"

smedia = rs.fields("Media")

tmediafr=Round((tmediafr + smedia),3)%>

<tr>

</tr>

</table>

<%RS.MoveNext

Loop%>

<tr>

</tr>

</table>

<%tmediaht = 0

Do While RS.Fields("Tipop")= "Hortigranjeiros"

smedia = rs.fields("Media")

tmediaht=Round((tmediaht + smedia),3)%>

<tr>

</tr>

</table>

<%RS.MoveNext

Loop%>

<tr>

</tr>

</table>

<%tmediaid = 0

Do While RS.Fields("Tipop")= "Industrializado"

smedia = rs.fields("Media")

tmediaid=Round((tmediaid + smedia),3)%>

<tr>

</tr>

</table>

<%RS.MoveNext

Loop%>

<tr>

</tr>

</table>

<%tmediahp = 0

Do While RS.Fields("Tipop")= "Material de Higiene Pessoal"

smedia = rs.fields("Media")

tmediahp=Round((tmediahp + smedia),3)%>

<tr>

</tr>

</table>

<%RS.MoveNext

Loop%>

<tr>

</tr>

</table>

<%tmediaml = 0

Do While RS.Fields("Tipop")= "Material de Limpeza"

smedia = rs.fields("Media")

tmediaml=Round((tmediaml + smedia),3)%>

<tr>

</tr>

</table>

<%RS.MoveNext

Loop%>

<tr>

</tr>

</table>

<%tmediasv = 0

Do While RS.Fields("Tipop")= "Serviços"

smedia = rs.fields("Media")

tmediasv=Round((tmediasv + smedia),3)%>

<tr>

</tr>

</table>

<%RS.MoveNext

Loop%>

<tr>

</tr>

</table>

<%Loop%>

<%end if%>

</body>

</html>

dataset · Novembro 26, 2007

Bixo... nao leva a mau ... mas que post bagunçado é esse ?

Como a gente vai achar algo nesse monte de coisa ? você precisa organizar isso... coloca entre tags "CODE" e nao coloque todo o codigo, mas somente a parte que ta dando erro.

Depois de um CTRL+C CTRL+V do erro que aparece no seu Browser e informa. Assim a gente pode analizar melhor e te ajudar.

Valeu ?

jrcardozo · Novembro 27, 2007

ocorre erro onde? explica melhor o que acontece pois só postar o código não é suficiente para adivinharmos

vi por cima apenas que você faz vários do while no mesmo recordset, mas não faz o rs.movefirst antes de iniciar cada do while

Mário Monteiro · Novembro 27, 2007

é verdade

posta o erro e onde aocntece

David Silva · Novembro 27, 2007

ocorre erro onde? explica melhor o que acontece pois só postar o código não é suficiente para adivinharmos

vi por cima apenas que você faz vários do while no mesmo recordset, mas não faz o rs.movefirst antes de iniciar cada do while

Antes de mais nada desculpe, é que pensei que com o código todo fosse mais fácil analizar

O erro que da é este ai em baixo, vou adicionar rs.movefirst antes de cada Do While e ver o que acontece

erro '80020009'

Exceção.

/CestaConsumo/Analise.asp, line 258

acabei de testar colocando rs.movefirst antes de cada do, ficou todo maluco.

a forma que oresultado se apresenta penso que seria satisfatoria se não fosse o erro e o fato de não totalizar o ultimo bloco de produtos.

Caso queira fazer umaconsulta para ter uma melhor visão: http://www.siegep.unama.br/CestaConsumo/Analisefr.htm

selecione os em sequencia: Todos, 1, setembro e 2007

e veja o final da consulta

David Silva · Novembro 27, 2007

é verdade

posta o erro e onde aocntece

Antes de mais nada desculpe, é que pensei que com o código todo fosse mais fácil analizar

O erro que da é este ai em baixo, vou adicionar rs.movefirst antes de cada Do While e ver o que acontece

erro '80020009'

Exceção.

/CestaConsumo/Analise.asp, line 258

Caso queira fazer umaconsulta para ter uma melhor visão: http://www.siegep.unama.br/CestaConsumo/Analisefr.htm

selecione os em sequencia: Todos, 1, setembro e 2007

e veja o final da consulta

Bixo... nao leva a mau ... mas que post bagunçado é esse ?

Como a gente vai achar algo nesse monte de coisa ? você precisa organizar isso... coloca entre tags "CODE" e nao coloque todo o codigo, mas somente a parte que ta dando erro.

Depois de um CTRL+C CTRL+V do erro que aparece no seu Browser e informa. Assim a gente pode analizar melhor e te ajudar.

Valeu ?

Antes de mais nada desculpe, é que pensei que com o código todo fosse mais fácil analizar

O erro que da é este ai em baixo

erro '80020009'

Exceção.

/CestaConsumo/Analise.asp, line 258

Caso queira fazer uma consulta para ter uma melhor visão: http://www.siegep.unama.br/CestaConsumo/Analisefr.htm

selecione os em sequencia: Todos, 1, setembro e 2007

e veja o final da consulta

Mário Monteiro · Novembro 27, 2007

voce é paraense tambem?

David Silva · Novembro 28, 2007

voce é paraense tambem?

Sim, Sou paraense

qualquer coisa: 3249-9298 - 14:00 as 18:00

Mário Monteiro · Novembro 28, 2007

o qeu tem na linha 287?

David Silva · Novembro 28, 2007

o qeu tem na linha 287?

Tem essa linha

<TD width="10%"> <fontsize="2"><%=tmediaml%></font> </TD>

é onde mostro a total da media para um dos grupos de produtos

OBS: postei o telefone errado, na verdade é 4009-9298

Mário Monteiro · Novembro 28, 2007

de onde vem tmediaml?

David Silva · Novembro 29, 2007

de onde vem tmediaml?

Bom como voce já pode perceber, tenho um Do while onde verifico se é final de arquivo e dentro desse Do, tenho varios Do um para cada grupo de produtos todos montados da forma abaixo:

ASP

<%tmediaml = 0

Do While RS.Fields("Tipop")= "Material de Limpeza"

smedia = rs.fields("Media")

tmediaml=Round((tmediaml + smedia),3)%>

<tr>

</tr>

</table>

<%RS.MoveNext

Loop%>

<tr>

</tr>

</table>

Mário Monteiro · Novembro 29, 2007

o erro ainda é na mesma linha?

tira esta linha para ver se surge outro problema

David Silva · Novembro 29, 2007

o erro ainda é na mesma linha?

tira esta linha para ver se surge outro problema

Mario, me desculpe na verdade a linha 287 é essa

Do While RS.Fields("Tipop")= "Material de Limpeza"

ou seja o inicio do laço logo se eu tirar vai dar erro.

mas se eu tirar o bloco todo continua dando erro de exceção

o problema é sempre no último bloco de Do While.

como voce pode perceber ele mostra o último bloco mas não mostra a soma desse bloco e ainda da o erro.

teria alguma coisa a ver com a função round?

Arquivado

erro de exceção

Recommended Posts

David Silva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

dataset 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

David Silva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

David Silva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

David Silva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

David Silva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

David Silva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

David Silva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

select com varias categorias por horario

comando like (Mysql) no php

Alguém com pratica em subir site em codeigniter4 na Hostinger? Não consigo acessar o bd. Erro de Autenticação. O mesmo site funciona normal em outro servidor web.

Fóruns

Tempo Real

Informação importante