ActiveDelphi

[flavio_verneque]

while not DM.qr_notas.Eof do
begin
inota := inota+1;
ipedido := DM.qr_notas.FieldByName('pedido').AsInteger;

FD_Executa.SQL.Add('update notasitem set nota = '+inttostr(inota)+' where pedido = '+inttostr(ipedido)+' ;');
FD_Executa.SQL.Add(' update notas set nota = '+inttostr(inota)+' where pedido = '+inttostr(ipedido)+' ;');
FD_Executa.SQL.Add(' update empresa set nnota = '+inttostr(inota)+' where codigo = 1 ;');

showmessage(FD_Executa.sql.text);

FD_Executa.ExecSQL;
FD_Executa.sql.clear;
DM.qr_notas.Next;
end;

[imex]

Boa tarde,

Você está utilizando FireDAC? FD_Executa é uma FDQuery?
Não tenho experiência com FireDAC mas acho que com uma FDQuery só é possível executar um comando SQL por vez.
Para executar vários em sequência de uma vez acredito que você pode utilizar um FDScript.

Espero que ajude

[anderbelluno]

Me parece o FDScript.

Remove esse espaço ' update...

'update...'

Esse componente executa vários script sql