ActiveDelphi

[guimas]

Boa tarde a todos - nos delphis antigos vc podia executar vários sql num objeto TQuery, TZQuery - porém no tokyo, isso não funciona, fazer mais de 1 update ou mais de um insert ... alguém tem alguma dica.

Desde já muito obrigado

[joemil]

pelo q me lembro o TQuery (e seus derivados) nao permite executar varios comandos sql de uma vez so. vc teria q usar componente de script pra isso:

[guimas]

MUITO Obrigado pela dica Joemil, peguei um exemplo aqui

with DMConnection.FDScript1 do
begin
try
SQLScripts.Clear;
SQLScripts.Add;
with SQLScripts[0].SQL do
begin
Add(///sua instruição sql aqui);
end;
ValidateAll;
ExecuteAll;
except
on E: Exception do
GerarLog('C:\MeuSistema\ERRO_Script ' + TB_CADASTRO +
'.wcerro', E.Message, E.ClassName);
end;
end;

Só que se eu insiro 10 linhas de inserções e da pau na 4, tem q dar rollback ... e ele apenas insere 9 ... tentei NOT VALIDATEALL, mas não funciona o mesmo ...

Tentei várias outras formas ... mas não consigo dar ROLLBACK se alguma instrução falhar

Tens alguma ideia ??

[guimas]

RESOLVIDO - obrigado a todos

with FDScript1 do
begin
try
SQLScripts.Clear;
SQLScripts.Add;
with SQLScripts[0].SQL do
begin
Add('insert into usuarios (cod_usuario,nome,senha,ativo)values(5,'+QuotedStr('AAA')+','+QuotedStr('111')+','+QuotedStr('S')+');');
Add('insert into usuarios (cod_usuario,nome,senha,ativo)values(6,'+QuotedStr('BáB')+','+QuotedStr('111')+','+QuotedStr('S')+');');
Add('insert into usuarios (cod_usuario,nome,senha,ativo)values(7,'+QuotedStr('CCC')+','+QuotedStr('111')+','+QuotedStr('S')+');');
end;

ValidateAll;
FDCon.StartTransaction;
if FDScript1.ExecuteAll then
FDCon.Commit
else
begin
//showmessage(inttostr(fdscript1.TotalJobSize)); // don't undertand these TotalJobSize and related values
ShowMessage('Error');
FDCon.Rollback;
end;

except
on E: Exception do
ShowMessage('Erro');
end;
end;