Boa noite
É possível um conexão Inner Join com uma tabela remota em um servidor, e uma tabela local :
Dim RSB As New ADODB.Recordset
RSB.Open "SELECT PRODUTOS.CodigoDoProduto, PRODUTOS.Loja1, PRODUTOS.Loja2, VENDAITENS.Quantidade, VENDAITENS.ValorUni, VENDAITENS.CodVenda FROM PRODUTOS INNER JOIN VENDAITENS ON PRODUTOS.CodigoDoProduto = VENDAITENS.CodProduto WHERE CodVenda = " & Me.CodVenda & ",", Con, adOpenDynamic, adLockOptimistic
RSB.MoveFirst
Do While Not RSB.EOF
RSB("loja1") = RSB("loja1") - RSB("Quantidade")
RSB.Update
RSB.MoveNext
Loop
RSB.Close
sendo que PRODUTOS é a tabela remota, e VENDASITENS é a tabela local
É possível um conexão Inner Join com uma tabela remota em um servidor, e uma tabela local :
Dim RSB As New ADODB.Recordset
RSB.Open "SELECT PRODUTOS.CodigoDoProduto, PRODUTOS.Loja1, PRODUTOS.Loja2, VENDAITENS.Quantidade, VENDAITENS.ValorUni, VENDAITENS.CodVenda FROM PRODUTOS INNER JOIN VENDAITENS ON PRODUTOS.CodigoDoProduto = VENDAITENS.CodProduto WHERE CodVenda = " & Me.CodVenda & ",", Con, adOpenDynamic, adLockOptimistic
RSB.MoveFirst
Do While Not RSB.EOF
RSB("loja1") = RSB("loja1") - RSB("Quantidade")
RSB.Update
RSB.MoveNext
Loop
RSB.Close
sendo que PRODUTOS é a tabela remota, e VENDASITENS é a tabela local