Fórum Executar script SQL - Delphi e Firebird #410807

procedure ExecutarScript(Script: TStrings);
var
   IBTransaction: TIBTransaction;
   IBDatabase: TIBDatabase;
   IBScript: TIBScript;
begin
   try
      IBTransaction := TIBTransaction.Create(nil);
      IBDatabase := TIBDatabase.Create(nil);
      IBScript := TIBScript.Create(nil);
      IBTransaction.DefaultDatabase := IBDatabase;

      IBDatabase.DefaultTransaction := IBTransaction;
      IBDatabase.DatabaseName := SqlConnectionConexao.Params.Values[Database];
      IBDatabase.Params.Add(USER_NAME=SYSDBA);
      IBDatabase.Params.Add(PASSWORD=masterkey);
      IBDatabase.LoginPrompt := False;
      IBDatabase.Connected := true;
      IBScript.Transaction := IBTransaction;
      IBTransaction.Active := true;
      IBScript.Database := IBDatabase;
      IBScript.Terminator := ;;
      IBScript.Script := Script;
      IBScript.AutoDDL := true;
      IBScript.Transaction.Commit;
      IBScript.ExecuteScript;
   finally
      FreeAndNil(IBScript);
      FreeAndNil(IBTransaction);
      FreeAndNil(IBDatabase);
   end;
end;