[Resolvido]Comparar duas Tabelas

boa tarde a todos

Como que comparo uma tabela com outra, via sql

exemplo

tabela lanccar     > Tabela Lanccielo

100,00                    100,00
125,00                    100,00
189,00

então o resultado entre a duas seria o valor de 189,00 que nao tem nas duas, nao e soma de valores e sim relacao de itens faltando na tabela Lanccar em relacao a tabela Lanccielo ou vise versa

Suponho que ambas as tabela tenham um ID, então pode usar o NOT IN por exemplo;

Código:

SELECT * FROM SuaTabela1 WHERE ID NOT IN (SELECT ID FROM SuaTabela2 WHERE SuaTabela2.QualquerCampo2 = SuaTabela1.QualquerCampo1;

Bom dia JPaulo


mas o filtro seria pelo valor

exemplo

tabela A  
100,00
100,00
100,00
100,00
105,25

tabela B
100,00
100,00
105,25
entao o resultado seria

100,00
100,00

e nesse select ainda preciso filtrar por periodo mensal

Só lhe dei a cana, ainda não lhe ensinei a pescar rsrsrs

O campo do valor em causa é o VLRLC ???

Veja se é isto usando o LEFT JOIN;

boa tarde JPaulo

to tentando fazer em sql mas o porem q nao aceita NZ e nem VAL

Código:

Public Function ComparaTabelas()
Parametros_de_SysConectDate "SysConectData.Jas"
Dim MesAno As String
MesAno = "06/2023"
MA_I = DateSerial(Year(Format(MesAno, "mm/yyyy")), Month(Format(MesAno, "mm/yyyy")), 1)
MA_F = DateSerial(Year(Format(MesAno, "mm/yyyy")), Month(Format(MesAno, "mm/yyyy")) + 1, 0)
Filtro = Format(MA_I, "mm/dd/yyyy") & "' AND '" & Format(MA_F, "mm/dd/yyyy")
Call Conectar
strSQL = "SELECT Lanccar.DATALANC, Lanccar.VLRLC, Lanccielo.VLRLC, Lanccar.IDC, Lanccar.DESCRICAO " & vbCrLf & _
"FROM Lanccar LEFT JOIN Lanccielo ON Lanccar.VLRLC = Lanccielo.VLRLC " & vbCrLf & _
"WHERE (Lanccar.DATALANC Between '" & Filtro & "')" & vbCrLf & _
"ORDER BY Lanccar.DATALANC;"
Set rs = Conexao.Execute(strSQL, 4)
    Do While Not rs.EOF
 MsgBox rs!VLRLC
 rs.MoveNext
 Loop
Call Desconectar
End Function


so que ta demorando demas e nao filtra so os que nao falta entre as tabela

up

boa tarde Jpaulo, consegue me ajudar, eu uso o banco de dados firebird e ele nao aceita val e nem nz em consulta

Amigão lamento, aqui só tratamos de Ms Access.

No entanto se não aceita, retire o NZ (tratamento de nulos) e o VAL (transforma texto em numerico).

Boa tarde,

só um pitaco de leve, kkkk

Ao trabalhar com o Firebird, algumas funções do Access, como NZ e VAL, não estão disponíveis. No entanto, você pode usar funções equivalentes do Firebird para alcançar o mesmo resultado.

Em vez de NZ, você pode usar a função COALESCE para fornecer um valor padrão caso um campo seja nulo. Por exemplo, em vez de NZ(Campo, ValorPadrao), você pode usar COALESCE(Campo, ValorPadrao).

Em vez de VAL, você pode usar a função CAST para converter uma string em um número. Por exemplo, em vez de VAL(Campo), você pode usar CAST(Campo AS INTEGER) para converter para um número inteiro. Certifique-se de ajustar o tipo de dados (INTEGER, FLOAT, etc.) conforme necessário.

Aqui está o seu código atualizado para usar as funções equivalentes no Firebird, veja se ajuda

Código:


Public Function ComparaTabelas()
    Parametros_de_SysConectDate "SysConectData.Jas"
    Dim MesAno As String
    MesAno = "06/2023"
    MA_I = DateSerial(Year(Format(MesAno, "mm/yyyy")), Month(Format(MesAno, "mm/yyyy")), 1)
    MA_F = DateSerial(Year(Format(MesAno, "mm/yyyy")), Month(Format(MesAno, "mm/yyyy")) + 1, 0)
    Filtro = Format(MA_I, "mm/dd/yyyy") & "' AND '" & Format(MA_F, "mm/dd/yyyy")
    Call Conectar
    strSQL = "SELECT Lanccar.DATALANC, Lanccar.VLRLC, Lanccielo.VLRLC, Lanccar.IDC, Lanccar.DESCRICAO " & vbCrLf & _
            "FROM Lanccar LEFT JOIN Lanccielo ON Lanccar.VLRLC = Lanccielo.VLRLC " & vbCrLf & _
            "WHERE (Lanccar.DATALANC Between '" & Filtro & "')" & vbCrLf & _
            "ORDER BY Lanccar.DATALANC;"
    Set rs = Conexao.Execute(strSQL, 4)
    Do While Not rs.EOF
        MsgBox rs.Fields("VLRLC").Value
        rs.MoveNext
    Loop
    Call Desconectar
End Function



bom dia Carvalho


mas o codigo continua o mesmo, to tentando imprementar o cast e o coalesce, mas ainda nao tive sucesso

onde você pretende colcoar o NZ ou Val no código ?

Código:

strSql = "SELECT Lancacar.DATALANC, [Lancacar]![VLRLC] AS Lancacar_VLRLC, Val(Nz([Lanccielo]![VLRLC],0)) AS Lanccielo_VLRLC, Month([Lancacar]![DATALANC]) AS MesRef, Year([Lancacar]![DATALANC]) AS AnoRef " & vbCrLf & _
"FROM Lancacar LEFT JOIN Lanccielo ON (Lancacar.VLRLC = Lanccielo.VLRLC) AND (Lancacar.DATALANC = Lanccielo.DATALANC) " & vbCrLf & _
"GROUP BY Lancacar.DATALANC, [Lancacar]![VLRLC], Val(Nz([Lanccielo]![VLRLC],0)), Month([Lancacar]![DATALANC]), Year([Lancacar]![DATALANC]) " & vbCrLf & _
"HAVING (((Val(Nz(Lanccielo!VLRLC,0)))=0) And ((Month(Lancacar!DATALANC))=[Qual o mês ? Exemplo: 6 ou 7 ou 8]) And ((Year(Lancacar!DATALANC))=Year(Date()))) " & vbCrLf & _
"ORDER BY Lancacar.DATALANC;"

tente assim

Código:


SELECT Lancacar.DATALANC,
      Lancacar.VLRLC AS Lancacar_VLRLC,
      CAST(COALESCE(Lanccielo.VLRLC, 0) AS NUMERIC) AS Lanccielo_VLRLC,
      EXTRACT(MONTH FROM Lancacar.DATALANC) AS MesRef,
      EXTRACT(YEAR FROM Lancacar.DATALANC) AS AnoRef
FROM Lancacar
LEFT JOIN Lanccielo ON Lancacar.VLRLC = Lanccielo.VLRLC AND Lancacar.DATALANC = Lanccielo.DATALANC
GROUP BY Lancacar.DATALANC, Lancacar.VLRLC, CAST(COALESCE(Lanccielo.VLRLC, 0) AS NUMERIC), EXTRACT(MONTH FROM Lancacar.DATALANC), EXTRACT(YEAR FROM Lancacar.DATALANC)
HAVING COALESCE(Lanccielo.VLRLC, 0) = 0 AND EXTRACT(MONTH FROM Lancacar.DATALANC) = [Qual o mês ? Exemplo: 6 ou 7 ou 8] AND EXTRACT(YEAR FROM Lancacar.DATALANC) = EXTRACT(YEAR FROM CURRENT_DATE)
ORDER BY Lancacar.DATALANC;



boa tarde Carvalho


consegui resolver obridado


tem algum site que tem esses

CAST.COALESCE e demais e sua funcoes

que bom resolveu, eu fui pesquisando veja se le atende em algum desses sites.


Documentação oficial do PostgreSQL (funções de manipulação de dados):
Link: https://www.postgresql.org/docs/current/functions.html
Descrição: A documentação oficial do PostgreSQL oferece uma lista completa de funções disponíveis, incluindo a função COALESCE e outras funções relacionadas. Você pode encontrar exemplos de uso e detalhes sobre a sintaxe dessas funções.

Documentação oficial do MySQL (funções e operadores):
Link: https://dev.mysql.com/doc/refman/8.0/en/functions.html
Descrição: A documentação oficial do MySQL fornece informações detalhadas sobre as funções disponíveis no MySQL, incluindo a função COALESCE e outras funções relacionadas. É possível encontrar exemplos de uso e detalhes sobre a sintaxe.

W3Schools (SQL Functions):
Link: https://www.w3schools.com/sql/sql_ref_functions.asp
Descrição: O W3Schools é um recurso popular para aprender linguagens de programação, incluindo SQL. A seção sobre funções SQL oferece informações sobre a função COALESCE e outras funções comuns, com exemplos de uso e explicações.

Oracle Documentation (Functions):
Link: https://docs.oracle.com/en/database/oracle/oracle-database/21/sqlrf/SQL-Functions.html
Descrição: A documentação oficial da Oracle contém informações abrangentes sobre funções disponíveis no Oracle Database, incluindo a função COALESCE e outras funções relacionadas. Você pode encontrar exemplos e detalhes sobre a sintaxe dessas funções.