Fórum Executar Script com SQLConnection #256906

function RunScript(aSQLConnection: TSQLConnection; aFileName: String): Boolean;
var TD: TTransactionDesc;
    Arquivo: TextFile;
    Linha, StrTemp: String;
    Scripts: TStringList;
    i: integer;
begin
  Result:= False;
  if not FileExists(aFileName) then Exit;
  { **** }
  Scripts:= TStringList.Create;
  StrTemp:= ´´;
  AssignFile(Arquivo, aFileName);
  Reset(Arquivo);
  while not Eof(Arquivo) do
  begin
    ReadLn(Arquivo, Linha);
    StrTemp:= StrTemp + Linha;
    if Pos(´;´, StrTemp) > 0 then
    begin
      Scripts.Add(StrTemp);
      StrTemp:= ´´;
    end
    else StrTemp:= StrTemp + ´ ´;
  end;
  CloseFile(Arquivo);
  { **** }
  TD.TransactionID:= 1;
  TD.IsolationLevel:= xilREADCOMMITTED;
  try
    if not aSQLConnection.Connected then
      aSQLConnection.Connected:= True;
    for i:= 0 to (Scripts.Count - 1) do
    begin
      try
        aSQLConnection.StartTransaction(TD);
        aSQLConnection.ExecuteDirect(Scripts[i]);
        aSQLConnection.Commit(TD);
      except
        on E: Exception do
        begin
          aSQLConnection.Rollback(TD);
          ShowMessage(e.Message);
          Exit;
        end;
      end;
    end;
  except
    on E: Exception do
    begin
      ShowMessage(e.Message);
      Exit;
    end;
  end;
  Result:= True;
end;

if RunScript(SQLConnection1,´D:\correcoes.sql´) then
ShowMessage(´Atualizações concluídas.´);