1 reply to this topic

[EuNaoSei]

Bom Dia!

Tenho a seguinte função:

Function BuscaTotalExtraR(projeto_)
	Dim SQL_,QUERY_
	
	SQL_ = "Select SUM(tbh_apontamento.apon_horaTotal) as BuscaTotalExtraR "
	SQL_ = SQL_ & "From tbh_apontamento "
	SQL_ = SQL_ & "Where apon_aprovado=3 "
	SQL_ = SQL_ & "And(apon_motivo=2 or apon_motivo=5) "
	SQL_ = SQL_ & "And apon_banco=2 "
	SQL_ = SQL_ & "And apon_projeto In (" & projeto_ & ") "
	
	Set QUERY_ = db.execute(SQL_)
	
	if not QUERY_.eof then
		BuscaTotalExtraR = QUERY_(BuscaTotalExtraR)
	else 
		BuscaTotalExtraR = 0		
	end if

End Function

Alguem pode me ajudar a saber oq é esse erro q esta dando nesse cod...


Tipo de erro:
ADODB.Recordset (0x800A0CC1)
O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.
/suporte/Func_UtilApon2.asp, line 86


Linha 86 - BuscaTotalExtraR = QUERY_(BuscaTotalExtraR)


Agradeço desde já.

Edição feita por: DarkSign, 25/11/2009, 09:27.
tag [code] facilita visualização de códigos.

[Renan L. Queiroz]

Tenta assim:
[codebox]
QUERY_("BuscaTotalExtraR")
[/codebox]