Somar valor do BD

[Boris 0]

Galera estou tentando fazer uma soma e não estou conseguindo aparece o seguinte erro:

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

 

Tipos incompatíveis

 

/teste_busca_01.asp, line 19

 

a linha 19 é:

	vdinheiro= vdinheiro + dados("valor")

 

vDinheiro=0
vCheque=0
vCartao=0

while not Dados.eof
	
	if dados("tipo_pagto")="A" then
	
	vdinheiro= vdinheiro + dados("valor")


	end if
dados.movenext


wend
response.write vdinheiro
%>

Obrigado Galera.

[Vinicius Ianni 189]

Boa Tarde !

 

Como o erro é de tipos incompativeis, tenta converter um dos parametros da soma pra inteiro:

 

vdinheiro= vdinheiro + CInt(dados("valor"))

 

Abraços,

Vinicius Ianni

[Mário Monteiro 179]

basta converter mesmo e resolve

[xanburzum 169]

se esta pegando o valor direto do bd, você pode fazer um SQL SELECT SUM direto na sql