SOMAR VALORES NO BANCO
galera é o seguinte eu tenho uma tabela com os seguintes nome
id, valor e situação e um form com os nomes txtid,txtvalor e txtsituacao.
eu gostaria de pode somar todos os valores que tivesse marcado no banco na situacao "E" , pois "E" siguifica espera e "I" irrecuperavel.
bom para somar toda a coluna eu faço o seguinte:
rscheques.Open " Select sum(valor) as total from cheques", con, 3, 3
If Not IsNull(rscheques!total) Then
txttotalespera.Text = rscheques!total
Else
txttotalespera.Text = 0
End If
então ele me da o resultado em outro caixa de texto, pois ele soma todos os valor da coluna valor.
isso eu cosigo fazer, mais o que eu quero é que quando eu clicasse em um botão qualquer ele somasse somente os que tivesse em espera, e não tudo.
conto com o apoio de todos.
atenciosamente:
id, valor e situação e um form com os nomes txtid,txtvalor e txtsituacao.
eu gostaria de pode somar todos os valores que tivesse marcado no banco na situacao "E" , pois "E" siguifica espera e "I" irrecuperavel.
bom para somar toda a coluna eu faço o seguinte:
rscheques.Open " Select sum(valor) as total from cheques", con, 3, 3
If Not IsNull(rscheques!total) Then
txttotalespera.Text = rscheques!total
Else
txttotalespera.Text = 0
End If
então ele me da o resultado em outro caixa de texto, pois ele soma todos os valor da coluna valor.
isso eu cosigo fazer, mais o que eu quero é que quando eu clicasse em um botão qualquer ele somasse somente os que tivesse em espera, e não tudo.
conto com o apoio de todos.
atenciosamente:
tenta isso, pois nao testei.
rscheques.Open " Select sum(valor) as total from cheques where Situacao = '" & "E" & "'", con, 3, 3
If Not IsNull(rscheques!total) Then
txttotalespera.Text = rscheques!total
Else
txttotalespera.Text = 0
End If
ou isso, testa ai
rscheques.Open " Select sum(valor) as total from cheques where Situacao = "E"", con, 3, 3
If Not IsNull(rscheques!total) Then
txttotalespera.Text = rscheques!total
Else
txttotalespera.Text = 0
End If
rscheques.Open " Select sum(valor) as total from cheques where Situacao = '" & "E" & "'", con, 3, 3
If Not IsNull(rscheques!total) Then
txttotalespera.Text = rscheques!total
Else
txttotalespera.Text = 0
End If
ou isso, testa ai
rscheques.Open " Select sum(valor) as total from cheques where Situacao = "E"", con, 3, 3
If Not IsNull(rscheques!total) Then
txttotalespera.Text = rscheques!total
Else
txttotalespera.Text = 0
End If
Assim num dá???
rscheques.Open " Select sum(valor) as total from cheques where situacao = 'E';", con, 3, 3
(Estou deduzindo)
rscheques.Open " Select sum(valor) as total from cheques where situacao = 'E';", con, 3, 3
(Estou deduzindo)
Tópico encerrado , respostas não são mais permitidas