Buscar por:

Executando script sql direto do delphi para oracle

Código

Essa dica serve para rodar Scripts SQL, PL/SQL, direto do Delphi para o Oracle, precisei dessa rotina pois tenho um Script "GIGANTE" e nenhum componente do Delphi conseguia rodar, até que achei o ExecuteDirect.

Pois ele manda para o Oracle e ele "se vira" para rodar...

Espero que essa dica ajude muitas pessoas....

procedure TForm6.BtnExecClick(Sender: TObject);

var

  ErrorCode: Integer;

begin

  try

     {Faz a Conexão com a Base de Dados}

     SQLConnection.Connected  := True;

     SQLConnection.Open;

     {Tenta Rodar o Script}

     ErrorCode := SQLConnection.ExecuteDirect( MemText.Text );

     {Se o SqlConnection retornar "0" é porque tudo correu bem}

     if ErrorCode = 0 then

     begin

          ShowMessage('Script rodado com sucesso');

          BtnLer.Enabled  := True;

          BtnExec.Enabled := False;

     end;

     {Se retornar diferente de "0" é porque algo de errado aconteceu}

     if ErrorCode <> 0 then // only 0 should be correct

       raise Exception.Create( 'Error: code = ' + IntToStr( ErrorCode ) )

   except

     on E: Exception do

       ShowMessage( E.Message )

   end

end;