Fórum Concatenar uma Instrução para a Qry #328497
02/09/2006
0
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...
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
Curtir tópico
+ 0
Responder
Posts
02/09/2006
Raserafim
isto está acontecendo pois vc não colocou espaços no final de uma instrução para a outra.
faça assim:
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;
Responder
Gostei + 0
02/09/2006
Dadonas
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...
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...
Responder
Gostei + 0
02/09/2006
Adelor Silva
Agradeço sua ajuda e ao mesmo tempo, desculpa por não ter visto algo tão óbvio...
Obrigado... Novamente...
Obrigado... Novamente...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)