Executando scripts via Delphi

Juliano Ribeiro — Thu, 26 Aug 2010 14:24:09 +0000

Já me ocorreu necessidade de rodar alguns scripts simples, para dar manutenção em clientes. A procedure abaixo coleta o conteúdo de um TMemo e envia para banco executar. Qualquer ErrorCode maior que zero indica que houve uma mensagem de retorno negativa. Infelizmente não tenho essa tabela de códigos disponível.

procedure TForm1.ExecutaScript;
var
  ErrorCode: Integer;
begin
   try
      ErrorCode := Conexao.ExecuteDirect(MemoSQL.Text);
      // Conexao é um TSQLConnection já conectado ao banco.

      if ErrorCode = 0 then
          ShowMessage('Script rodado com sucesso');

      {Se retornar diferente de "0" é porque algo de errado aconteceu}
      if ErrorCode <> 0 then
         raise Exception.Create( 'Error: code = ' + IntToStr( ErrorCode ) )

   except
      on E: Exception do
         ShowMessage( E.Message );
   end
end;

Só testei em Oracle, mas não vejo motivos para não rodar em Interbase.

Oficina de SQL

Juliano Ribeiro — Mon, 10 Aug 2009 11:16:03 +0000

Tem alguns dias já, realizamos na Produtec uma oficina sobre SQL. A nossa equipe é bastante jovem, então valeu a pena rever alguns conceitos básicos aplicáveis à base de dados de nosso maior produto, o Maximum (ERP).

Abaixo seguem os slides. Qualquer dúvida podem perguntar que eu esclareço.

Talvez fique um pouco descontextualizado, porque os slides não são nada sem a narração, mas como me pediram, ai está.

Juliano Ribeiro » SQL

Executando scripts via Delphi

Oficina de SQL