Dúvida no TSQLDataSet

Delphi

18/10/2004

Olá Pessoal,
estou com uma quando utilizo o TSQLDataSet para uma Query
via código,
acho que ele não reconhece minha query no command text quando tem mais de uma linha.

Por exemplo:

dtModule.CDS_RelatorioPedido.Active := False;
with dtModule.SQL_RelatorioPedido do
begin
Close;
CommandText := ´SELECT P.PEDIDO,P.NRONOTA,C.NOME,C.CPFCNPJ´;
CommandText := ´FROM PEDIDO_SAIDA P,CLIENTES C´;
CommandText := ´WHERE P.CODCLIENTE=C.NUMERO´;
end;
dtModule.CDS_RelatorioPedido.Active := True;

Quando executo a consulta, dá um erro dizendo que não Encontra o FROM.
Será que o TSQLDataSet não trabalha como o TSQLQuery que permite separar o código em varias linhas como por exemplo:

with dtModule.SQL_RelatorioPedido do
begin
Close;
SQL := ´SELECT P.PEDIDO,P.NRONOTA,C.NOME,C.CPFCNPJ´;
SQL := ´FROM PEDIDO_SAIDA P,CLIENTES C´;
SQL := ´WHERE P.CODCLIENTE=C.NUMERO´;
end;
dtModule.CDS_RelatorioPedido.Active := True;


Desde já agradeço a ajuda,
Abraço Ricardo Palhares.


Ricardoapalhares

Ricardoapalhares

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

18/10/2004

Colega,

A propriedade CommandText do TSQLDataSet é uma única String (Wide), e não TStrings como a propriedade SQL das queries... então vc deve informar uma única linha, mas pode usar concatenção para facilitar a leitura do código :
with dtModule.SQL_RelatorioPedido do
begin
  Close;
  CommandText := ´SELECT P.PEDIDO,P.NRONOTA,C.NOME,C.CPFCNPJ ´ +
                 ´FROM PEDIDO_SAIDA P,CLIENTES C ´ +
                 ´WHERE P.CODCLIENTE=C.NUMERO´;
end;


T+


GOSTEI 0
POSTAR