SOMA DE CAMPOS NUMERICOS TABELAS DIFERENTES
Ó“lá pessoal!!!
Tà ' com uma dúvida cruel. Recedbi um BD em access e tem 2 tabelas com valores numéricos.
Ex. Tab1 = 7 itens e Tab2 = 13 itens cadastrados, (Quantidade).
Preciso somar os itens das duas Tabelas em uma outra. Ex.: Tab3 = 20 itens
Como posso fazer isso????
Através de uma consulta? Talvez um relatório ?? Ou um formulário??
é necessário incluir algum módulo, código ou algo do tipo??
Quem puder me ajudar, agradeço muito!!!!!
** paulo_jbueno@yahoo.com.br
Obrigado.
Paulo
Tà ' com uma dúvida cruel. Recedbi um BD em access e tem 2 tabelas com valores numéricos.
Ex. Tab1 = 7 itens e Tab2 = 13 itens cadastrados, (Quantidade).
Preciso somar os itens das duas Tabelas em uma outra. Ex.: Tab3 = 20 itens
Como posso fazer isso????
Através de uma consulta? Talvez um relatório ?? Ou um formulário??
é necessário incluir algum módulo, código ou algo do tipo??
Quem puder me ajudar, agradeço muito!!!!!
** paulo_jbueno@yahoo.com.br
Obrigado.
Paulo
Depois de fazer a conexão com o banco de dados execute dois loops somando os valor
das diferentes tabelas e armazenando nas variaveis depois some as variaveis .
Private Sub cmdSoma_Click()
Dim Tot1 As Integer
Dim Tot2 As Integer
Dim Total As Integer
Ado1.Recordset.MoveFirst
Do
Tot1 = Tot1 + Ado1.Recordset.Fields("Valor")
Ado1.Recordset.MoveNext
Loop While Ado1.Recordset.EOF = False
Ado2.Recordset.MoveFirst
Do
Tot2 = Tot2 + Ado2.Recordset.Fields("Valor")
Ado2.Recordset.MoveNext
Loop While Ado2.Recordset.EOF = False
Total = Tot1 + Tot2
txttotal.Text = Total
End Sub
das diferentes tabelas e armazenando nas variaveis depois some as variaveis .
Private Sub cmdSoma_Click()
Dim Tot1 As Integer
Dim Tot2 As Integer
Dim Total As Integer
Ado1.Recordset.MoveFirst
Do
Tot1 = Tot1 + Ado1.Recordset.Fields("Valor")
Ado1.Recordset.MoveNext
Loop While Ado1.Recordset.EOF = False
Ado2.Recordset.MoveFirst
Do
Tot2 = Tot2 + Ado2.Recordset.Fields("Valor")
Ado2.Recordset.MoveNext
Loop While Ado2.Recordset.EOF = False
Total = Tot1 + Tot2
txttotal.Text = Total
End Sub
pode fazer direto na SQL...
' Soma vaores da tabela 1
select sum(nomedatabela1) from nome_da_tabela
' Soma vaores da tabela 2
select sum(nomedatabela2) from nome_da_tabela
Não sei se funciona somar direto, depende o banco...
Total = select sum(nomedatabela1) from nome_da_tabela + select sum(nomedatabela2) from nome_da_ tabela
à ¨ isso !!!
Um Abraço !!
Se for só pra somar sem ter relacionamentos nas duas tabelas...tenta assim
select A.ValorA + B.valorB as ValorTotal
from
(select sum(valor) as Valora from Tabela1) A,
(select sum(a2.valor) as valorB from Tabela2) B
Agora se tiver relacionamento vc pode fazer um join entre as subqueries.agrupando pelo campo necessário
select A.ValorA + B.valorB as ValorTotal
from
(select sum(valor) as Valora from Tabela1) A,
(select sum(a2.valor) as valorB from Tabela2) B
Agora se tiver relacionamento vc pode fazer um join entre as subqueries.agrupando pelo campo necessário
ops...tira o a2.valor da segunda instrução
select A.ValorA + B.valorB as ValorTotal
from
(select sum(valor) as Valora from Tabela1) A,
(select sum(valor) as valorB from Tabela2) B
select A.ValorA + B.valorB as ValorTotal
from
(select sum(valor) as Valora from Tabela1) A,
(select sum(valor) as valorB from Tabela2) B
Olá Laerte !!
Isso mesmo !!!
...desculpem, acabei colocando com a sintese da SQL errada... ..a minha idéia foi armazenar as duas respostas das sql e somar, mas somando tudo de uma vez é mais rápido...
..mas legal isso !!! assim nois aprende !! he he !! [S20]
Um Abraço !!!
Tópico encerrado , respostas não são mais permitidas