[Cascavel-pm] Digest Cascavel-pm, volume 173, assunto 3

[Juliano Dantas]

Adriano, bom dia.

Coloquei no meu banco de conhecimento a sua sugestão, contudo, encontrei
outro modulo que realiza de uma maneira mais facil e rapida.


use DBI;
use DBD::Oracle;
use DBIx::Procedure::Oracle;

sub ExecProcedure
{
  my ($proc,$uf,$parm) = @_;
  $usr  = "xxx\@yyy";
  $pass = "ddddd";
  gravalog "Recebido na ExecProcedure: $proc - $uf - $parm - $parm1\n";
  unless ($dbh = DBI->connect("dbi:Oracle:", $usr, $pass, { PrintError => 0,
RaiseError => 1} ))
  {
      return -1,"Erro ao tentar conectar no Oracle: $DBI::errstr\n";

  }

  gravalog "Conexao Estabelecida com Sucesso ao Bco de Dados";
  $pointp = DBIx::Procedure::Oracle->new( $dbh, , object_name => $proc );

  unless ($retorno = $pointp->execute($uf,$parm))
  {
      gravalog "Erro na Execução da Procedure [$DBI::errstr] ";
      if ( chomp($DBI::errstr) == NULL )
      {
          return -1, "Erro na Execucao da Procedure\n$DBI::errstr";
      }
  }
  return 0, "Procedure Executada com sucesso. [$proc - $uf - $parm]";
}


Resalto apenas para o fato de que esse modulo não foi adicionado pelo PPM e
sim pelo
MCPAN.

Abraços

-- 
Juliano Dantas Almeida Silva
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20061127/49b4e5e1/attachment.html