Outro Do While

[Mestre Gabriel]

É o seguinte, o erro que está faltando concertar está explicado logo abaixo do codigo:

<%option explicit

dim cf, m, a, sql, p

cf = request.Form("codforn")
m = request.Form("mês")
a = request.Form("ano")
p = 0


%>

<!--#include file="../CONEXAO/conectar.asp" -->

<%

set sql = conexao.execute("SELECT * FROM Vendastb WHERE CodF = '"&cf&"' AND mês = '"&m&"' AND Ano = '"&a&"'")

if sql.eof then
    session("msg") = "Nenhum Resultado Encontrado!"
    response.Redirect("pag2.asp")
end if

do while not sql.eof
    p = p + sql("Total")
sql.MoveNext
Loop
%>

Se eu tirar o laço do while e não calcular nada em "p" o codigo funciona, posso fazer qualquer consulta usando a variavel "sql"

mas tá dando problema no calculo do p.

Se eu mandar escrever apenas o sql("Total") ele coloca certinho... Mas como quero a soma dos totais ele não calcula..

Tenho um programa aqui que fiz algo identico e deu certo.. não to entendendo o erro agora.

Dá uma luz aí pessoal... to quase terminando meu pro.. rsrs

[.Andreia.]

Aparece algum erro?

[Mestre Gabriel]

Aparece sim...

o erro é este:

Tipo de erro:

ADODB.Field (0x80020009)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/junior/SALDO/resultado.asp

Acho que é porque ele não achou valor na consulta... Mas se eu tirar o laço "do while" ele acha os valores na consulta.

O erro está no "do while"

verifica aí fazendo favor.

[.Andreia.]

Tenta assim:

<%
sql = "SELECT * FROM Vendastb WHERE CodF = '"&cf&"' AND mês = '"&m&"' AND Ano = '"&a&"'"
set tab = conexao.execute(sql)

if tab.eof then
    session("msg") = "Nenhum Resultado Encontrado!"
    response.Redirect("pag2.asp")
end if

do while not tab.eof
    p = p + tab("Total")
tab.MoveNext
Loop
%>