Buscar

Query com joiner

Código

Bem, trabalho com DELPHI e INTERBASE 6 e uso querys para acessar o banco. Ai vai.:

LocLerTroca := 'SELECT A.L207_NUM_TROCA, A.L207_DAT_TROCA, A.L207_FORMA_PGTO, A.L207_VLR_DIF,' +
                     ' B.L220_TIP_MVTO,  B.L220_QTD_PROD,  B.L220_VLR_MVTO ' +
              ' FROM       TLJ_TROCA_CP A, TLJ_TROCA_IT B '+
              ' WHERE A.L207_COD_FIL    =  B.L220_COD_FIL'+
              ' AND   A.L207_NUM_TROCA  =  B.L220_NUM_TROCA'+
              ' AND   A.L207_COD_FIL    = '+#39+PUBNumEmpresa+#39+
              ' AND   A.L207_DAT_TROCA BETWEEN '+#39+LocDataIni+#39+' AND '+#39+LocDataFim+#39+
              ' AND   A.L207_STA_REG    = '+#39+'''A'''+#39+
              ' ORDER BY A.L207_COD_FIL, A.L207_DAT_TROCA, A.L207_NUM_TROCA';

DMFinLoja.qryJoinerTroca.Close;
DMFinLoja.qryJoinerTroca.SQL.Clear;
DMFinLoja.qryJoinerTroca.SQL.Add(LocLerTroca);
DMFinLoja.qryJoinerTroca.Open;

while (not DMFinLoja.qryJoinerTroca.Eof)  do
begin
                                { AQUI COLOQUE SEU CÓDIGO DE LEITURA}
   DMFinLoja.qryJoinerTroca.Next;
end;

DMFinLoja.qryJoinerTroca.Close;
DMFinLoja.qryJoinerTroca.SQL.Clear;

Onde.:
LocLerTroca = variável local
PUBNumEmpresa = variável publica
LocDataIni = data no formato MM/DD/AAAA
LocDataFim = data no formato MM/DD/AAAA
Todos os parâmetros da query devem ser STRINGS
#39 = cria as aspas necessárias da STRING

DMFinLoja = Data Module
qryJoinerTroca = É um joiner de duas querys. Este joiner é criado através de um IBQUERY, onde no OBJECT INSPECTOR, em STRINGS, declaro o joiner assim.: select * from TLJ_TROCA_CP A, TLJ_TROCA_IT B
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 19/01/10
Por: João José Fontenele Pimentel
Visualizada: 3258 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009