Concatenar uma Instrução para a Qry

Delphi

02/09/2006

Estou fazendo da seguinte forma mas da problema...

with DmDados.QryPesquisa01 do
begin
Close;
SQL.Text := ´Select tbproclote.CodLote, tbproclote.CodCost, tbcost.Nmcost´ +
´from tbproclote´ +
´left join tbcost on tbcost.CodCost = tbproclote.CodCost´ +
´where Data Like:Dia´;
ParamByName(´Dia´).AsDate := DateTimePicker1.Date;
Open;
end;

O Problema é o seguinte... se eu escrever esta instrução em uma única linha, funciona... mas se eu colocar o ´+´ para concatenar, mesmo que seja na mesma linha não funciona...

o q estou fazendo de errado... agradeço a atenção...


Adelor Silva

Adelor Silva

Curtidas 0

Respostas

Raserafim

Raserafim

02/09/2006

isto está acontecendo pois vc não colocou espaços no final de uma instrução para a outra.

faça assim:
with DmDados.QryPesquisa01 do 
begin 
  Close; 
  SQL.Text := ´Select tbproclote.CodLote, tbproclote.CodCost, tbcost.Nmcost ´ + 
´from tbproclote ´ + 
´left join tbcost on tbcost.CodCost = tbproclote.CodCost ´ + 
´where Data Like:Dia´; 
  ParamByName(´Dia´).AsDate := DateTimePicker1.Date; 
  Open; 
end;



GOSTEI 0
Dadonas

Dadonas

02/09/2006

vc está comentendo o seguinte erro:

vc está esquecenco de colocar espaços na terminação das concatenações:

SQL.Text := ´Select tbproclote.CodLote, tbproclote.CodCost, tbcost.Nmcost ´ + <- veja,antes da aspa que fecha vc tem que colocar um espaço...
´from tbproclote ´ +
´left join tbcost on tbcost.CodCost = tbproclote.CodCost ´ +
´where Data Like:Dia´;

se vc não colocar um espaço, o Delphi entende o seguinte:

SQL.Text := ´Select tbproclote.CodLote, tbproclote.CodCost, tbcost.Nmcostfrom tbprocloteleft join tbcost on tbcost.CodCost = tbproclote.CodCostwhere Data Like:Dia´;

ai dá pau.

Espero ter ajudado...


GOSTEI 0
Adelor Silva

Adelor Silva

02/09/2006

Agradeço sua ajuda e ao mesmo tempo, desculpa por não ter visto algo tão óbvio...

Obrigado... Novamente...


GOSTEI 0
POSTAR