Boa tarde.
Trabalho em um sistema legado e preciso colocar as informações de uma query em um único objeto memo.
Código segue.
MyQuery.Close;
with MyQuery.SQL do
begin
clear;
add(' select TOP 8 nuentrada, dstpleitu, vlleitura, dshint, dtleitura, hhleitura ');
add(' from ssdentsinaisvitais inner join ssttplei on ssdentsinaisvitais.cdleitura = ssttplei.cdleitura ');
add(' where nuentrada = ' + lblnuentrada.Caption);
add(' order by dtleitura desc, hhleitura desc ');
end;
MyQuery.Open;
while MyQuery.Eof do
begin
mmdsexamefisico.Text := mmdsexamefisico.Text + MyQuery.DataSource.DataSet.FieldByName('dstpleitu').AsString + ': ';
mmdsexamefisico.Text := mmdsexamefisico.Text + MyQuery.DataSource.DataSet.FieldByName('vlleitura').AsString + #13#10;
end;
Ocorre um erro de síntaxe próximo à palavra order.
Conseguem detectar o erro?
A query
formada é a seguinte:
SELECT TOP 8 nuentrada,
dstpleitu,
vlleitura,
dshint,
dtleitura,
hhleitura
FROM ssdentsinaisvitais
INNER JOIN ssttplei ON ssdentsinaisvitais.cdleitura = ssttplei.cdleitura
WHERE nuentrada = 350000701778
ORDER BY dtleitura DESC,
hhleitura DESC
Open
dê umShowMessage(MyQuery.SQL.Text);
e informe qual aquery
que foi formada;add(' where nuentrada = ''' + lblnuentrada.Caption + '''');