ADO

Question

Ola Pessoal !!! Estou montando uma Query dinamica com ADOQuery e esbarro neste problema.. QryCadastro.Sql.Clear; QryCadastro.Sql.Add(�Select C.Apelido, sum(S.Quantidade*S.PrecoLiquido) as Venda,�); Qr...

Rjun · Answer

Pq vc n�o deixa isso tudo dentro da Query e usa par�metros para passar os campos [b:3972490b6c]wdat1[/b:3972490b6c] e [b:3972490b6c]wdata2[/b:3972490b6c]?...

Robsons · Answer

Porque eu tenho alguns outros parametros que n�o est�o ai, e que s�o definidos em tempo de execu��o........

Rjun · Answer

Tudo bem, mas mesmo assim pergunto: por que voc� n�o usa par�metros?...

Robsons · Answer

Tem algum exemplo de como ficaria a declaracao de parametors em tempo de execu��o....S� costumo usar os parametros quando uso o componente...Se existir outra maneira, me de uma ajuda...Grato...

Rjun · Answer

Eu particularmente abomino enfiar o c�digo SQL no meio do c�digo do programa. Coloque o c�digo SQL no seu componente ADOQUERY.

SELECT 
  C.Apelido, 
  SUM(S.Quantidade * S.PrecoLiquido) AS Venda,
  SUM(S.Quantidade * S.CustoProduto) + 
  SUM(S.Quantidade * S.ValorIcms) + 
  SUM(S.Quantidade * S.Comissao) AS Custo,
  SUM(S.Quantidade * (S.PrecoLiquido - S.CustoProduto - S.ValorIcms -  S.Comissao)) AS Lucro
From 
  SaidaProduto S, 
  CadastroCliente C
WHERE 
  S.IdCodigoCliente = C.IdCodigoCliente AND
  S.DataEmissao BETWEEN #:wdat1 AND :wdata2
GROUP BY  
  C.Apelido
ORDER BY
  C.Apelido

Depois coloque isso no seu c�digo:

qryCadastro.Parameters.ParamByName(�wdat1�).Value := StrToDate(wdat1);
qryCadastro.Parameters.ParamByName(�wdat2�).Value := StrToDate(wdat2);
qryCadastro.Open;
try
  // coloque o q vc deve fazer com o resultado
finally
  qryCadastro.Close;
end;

F�rum ADO #293296