[Cascavel-pm] Digest Cascavel-pm, volume 173, assunto 3
Juliano Dantas
juliano.dantas em gmail.com
Segunda Novembro 27 03:09:18 PST 2006
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
Mais detalhes sobre a lista de discussão Cascavel-pm