[Salvador-pm] Erro ODBC DB2 Perl

[Allisson Andrade Lima]

Breno, Boa Noite!

Segue código abaixo:

--------8<--------

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use DBI;
use DBD::ODBC;

my $databaseTcf = 'Coop_tcf';
my $usr = 'usr111';
my $pwd = '123';

my $dbi = "dbi:ODBC:DSN=$databaseTcf";

my $sqlTcf = "call COOPCONS.SPU_CLI_TIPOEMPRESA";

my $dbConDb2 = DBI->connect("$dbi","$usr","$pwd") or die "Erro na Conexao:"
. $DBI::errstr . "\n";

my $dbResultDb2 = $dbConDb2->prepare($sqlTcf) or warn "Erro Prepare:
$DBI::errstr\n";
$dbResultDb2->execute;
my $tCampos = $dbResultDb2->{NUM_OF_FIELDS};

print $tCampos;

--------->8-------------

O erro apresentado é exatamente o que segue:

DBI connect('DSN=Coop_tcf','usr111',...) failed: ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ (SQL-)
at ./teste2.pl line 16.
Erro na Conexao:▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ (SQL-)

Em 20 de agosto de 2015 19:52, breno <breno em rio.pm.org> escreveu:

> Oi Allisson,
>
> pode compartilhar o código que está usando para testar? Imagino que seja
> algo como:
>
> --------8<--------
> use strict;
> use warnings;
> use DBI;
> use DBD::DB2::Constants;
> use DBD::DB2;
>
> $dbh = DBI->connect("dbi:DB2:db_name", $username, $password)
>     or die $DBI::errstr;
>
> if ($dbh->{Active}) {
>     print "conectado!\n";
> } else {
>     print "desconectado\n";
> }
> --------->8-------------
>
> Qual a mensagem de erro?
>
> []s
>
> -b
>
> On Thu, Aug 20, 2015 at 5:07 PM Allisson Andrade Lima <
> allissonlima1 em gmail.com> wrote:
>
>> Caros Colegas,
>>
>> Estou enfrentando um problema ao conectar a um banco DB2 via ODBC, onde
>> me retorna o erro abaixo:
>>
>> [image: image.png]
>>
>> Já tentei diversas coisas como codificação, módulos do Perl, versão...
>> Pelo comando isql funciona normalmente.
>>
>> Peço  a ajuda de vocês neste caso.
>>
>> Atenciosamente,
>>
>> Allisson Lima
>> _______________________________________________
>> Salvador-pm mailing list
>> Salvador-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/salvador-pm
>>
>
> _______________________________________________
> Salvador-pm mailing list
> Salvador-pm em pm.org
> http://mail.pm.org/mailman/listinfo/salvador-pm
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/salvador-pm/attachments/20150821/6ed0fe7a/attachment-0001.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: image.png
Tipo: image/png
Tamanho: 3274 bytes
Descrição: não disponível
URL: <http://mail.pm.org/pipermail/salvador-pm/attachments/20150821/6ed0fe7a/attachment-0001.png>