FireDac TFDScript

[lxo]

Hallo,

kann mir jemand ein Beispiel geben wie man TFDScript richtig anwendet und was dort alles nötig ist?
Ich habe eine TFDConnection und TFDTransaction angehängt aber ohne Erfolg.

Delphi-Quellcode:

  lConnection  := TFDConnection.Create( nil);
  lTransaction := TFDTransaction.Create( nil);
  lScript      := TFDScript.Create( nil);
  try
    lConnection.ConnectionName := 'UPDATEROM';
    lConnection.DriverName := 'IB';
    lConnection.Params.Database := xDbNameInklPfad;
    lConnection.Params.Password := 'masterkey';
    lConnection.Params.UserName := 'SYSDBA';
    lTransaction.Connection := lConnection;
    lScript.Connection := lConnection;
    lScript.Transaction := lTransaction;

    try
      lScript.Connection.StartTransaction;
      lScript.ExecuteFile( xSqlScriptDatei);
      lScript.Connection.Commit;
    except
      ShowMessage( 'FEHLER');
      lScript.Connection.Rollback;
    end;

  finally
    lConnection.Free;
    lTransaction.Free;
    lScript.Free;
  end;

So in etwa sieht mein Konstrukt aus.
Was mach ich falsch?


Fehlermeldung bei " lScript.ExecuteFile( xSqlScriptDatei) ":

Code:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt ***.exe ist eine Exception der Klasse EIBNativeException mit der Meldung '[FireDAC][Phys][IB]invalid transaction handle (expecting explicit transaction start)' aufgetreten.
---------------------------
Anhalten   Fortsetzen   Hilfe   
---------------------------