[Salvador-pm] Erro ODBC DB2 Perl

[Allisson Andrade Lima]

Ele aparece exatamente assim.

Em 21 de agosto de 2015 18:57, breno <breno em rio.pm.org> escreveu:

> Esse "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒" é legível pra vc de alguma forma?
>
> On Fri, Aug 21, 2015 at 12:18 AM Allisson Andrade Lima <
> allissonlima1 em gmail.com> wrote:
>
>> 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
>>>
>>>
>> _______________________________________________
>> 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/75ab3044/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/75ab3044/attachment-0001.png>