Contar duas tabelas, exibindo resultado em duas colunas

SQL

CRUD - Delphi

30/07/2025

Pessoal,

O código a seguir roda certinho no IBEXPERT, porém estou com um pouco de dificuldade em ajusta-lo para o delphi.

SELECT (SELECT COUNT(*) 
        FROM TBDUPLICATAS 
        WHERE COD_CEDENTE = :CEDENTE
       ) AS DUPLICATAS,
       (SELECT COUNT(*) 
        FROM TBVENCIDAS
        WHERE COD_CEDENTE = :CEDENTE
       ) AS VENCIDAS
 FROM RDB$DATABASE
Renan

Renan

Curtidas 0

Respostas

Fabricio Pereira

Fabricio Pereira

30/07/2025

Pessoal,

O código a seguir roda certinho no IBEXPERT, porém estou com um pouco de dificuldade em ajusta-lo para o delphi.

SELECT (SELECT COUNT(*) 
        FROM TBDUPLICATAS 
        WHERE COD_CEDENTE = :CEDENTE
       ) AS DUPLICATAS,
       (SELECT COUNT(*) 
        FROM TBVENCIDAS
        WHERE COD_CEDENTE = :CEDENTE
       ) AS VENCIDAS
 FROM RDB$DATABASE


Creio que seu SQL esteja dentro de uma query (emplo abaixo qrVendas) então passa o parâmetro (via um campo de texto abaixo edtInput) via código, em um botão por ex.,.....

qrVendas.Close;
qrVendas..Unprepare;
qrVendas.Params[0].Value:=edtInput.Text;
qrVendas.Prepare;
qrVendas.Open;

Cria um DataSource apontando pra essa query e mostra num DBGrid pra ver o resultado
GOSTEI 0
Renan

Renan

30/07/2025

Olá, Fabricio.

Obrigado pela dica.
No meu caso só preciso dos valores mesmo, sem mostrar num grid.
Consegui montar a extrutura no padrão do delphi e ta rodando lisinho.
GOSTEI 0
POSTAR