[ADO und MS SQL-Server 2005/2008] Ausführen von Scripts

[omata]

Vielleicht so...

Delphi-Quellcode:

function executeSQL(filename : string; ADO: TADOConnection) : boolean;
var sql : widestring;
begin
  sql := CreateSQLSequence(filename);
  try
    if not ADO.Connected then
      ADO.Open;
    ADO.BeginTrans;
    ADO.Execute('execute(' + QuotedStr(sql) + ')');
    ADO.CommitTrans;
    ADO.Close;
    Result:=true;
  except
    on e: Exception do begin
      ADO.RollbackTrans;
      Result:=false;
      raise Exception.Create(
        'Bei der Verarbeitung ist folgender Fehler aufgetreten: ' + e.message
      );
    end;
  end;
end;