Soma entre tabelas diferentes via ADO

[thsie 0]

Olá galera, beleza?Bom, minha dúvida seria a seguinteTenho 1 formulário chamado Estoque_pecas onde ele se conecta com meu banco de dados SQL server via ADO. Nela tem os campos Codigo, Quantidade_total e dois Datagrids, sendo uma delas conectado a minha tabela Movimentacao_materiais no sql server e outro na tabela Saida_notafiscal. Nessas duas últimas tem os campo Codigo e Quantidade. Eu fiz um filtro no campo Codigo onde quando eh mudado o campo os Datagrids buscam nas tabelas que eles pertencem registros e selecionam somente aqueles com o Codigo especificado(tipo, quando digito "a", o Datagrid1 busca na tabela o Codigo a e filtra para mim, jogando nesse grid somente esses registros)O codigo para fazer isso foi assimDim sql As Stringsql = "select * from Movimentacao_materiais where Codigo = '" & DataCombo1.Text & "'"Adodc3.RecordSource = sqlAdodc3.RefreshDim sql2 As Stringsql2 = "Select * from Saida_notafiscal where Codigo = '" & DataCombo1.Text & "'"Adodc4.RecordSource = sql2Adodc4.RefreshBom, ateh aih acho que vcs entederam neh? Bom, como nas tabelas Movimentacao_materiais e no Saida_notafiscal tem os campos quantidade tb, eu queria se possível nesses campos jah filtrados nos grids o vb fizesse a soma da quantidade que estah no datagrid1(Movimentacao_materiais) e tirasse a quantidade que estah no datagrid2(Saida_Notafiscal)Tem como ser feito?

[Luizgrs 0]

Você quer criar um campo somente para exibição ou quer alterar dentro da tabela?

 

Exibição:

sql2 = "Select *,(select quantidade from Movimentacao_materiais where codigo ='" & datacombo1.text & "') - quantidade as quantidade_somada from Saida_notafiscal where Codigo = '" & DataCombo1.Text & "'"