[Salvador-pm] Erro ODBC DB2 Perl

[Joenio Costa]

Allisson,

Você consegue conectar sem ODBC?

2015-08-21 19:17 GMT-03:00 breno <breno em rio.pm.org>:

> Ixe... temos que descobrir que mensagem está escondida aí. Já leu o help
> da IBM? http://www-01.ibm.com/support/docview.wss?rs=71&uid=swg21297335
>
> Eles falam sobre versões  9 fp2 ou superior do IBM DB2 client, e de DBI
> 1.53 ou superior. O sistema tem isso? Eles falam também sobre a variável de
> ambiente DB2LIB. O código de exemplo deles (
> http://www-01.ibm.com/support/knowledgecenter/SSEPGG_9.5.0/com.ibm.db2.luw.apdv.perl.doc/doc/c0006696.html)
> é bem parecido com o seu.
>
> Desculpe, fora isso não sei muito o que fazer pra te ajudar :(
> Se tiver alguma pista, avise!
>
> On Fri, Aug 21, 2015 at 7:08 PM Allisson Andrade Lima <
> allissonlima1 em gmail.com> wrote:
>
>> Independente do encoding do terminal... eu teste com utf8 e latin1,
>> entretanto quando coloco no Perl "use utf8" ele retorna o seguinte:
>>
>> [image: Imagem inline 1]
>>
>> Em 21 de agosto de 2015 19:03, breno <breno em rio.pm.org> escreveu:
>>
>>> Qual o encoding do seu terminal? Aparece assim em utf-8? E em latin1?
>>>
>>> On Fri, Aug 21, 2015 at 7:01 PM Allisson Andrade Lima <
>>> allissonlima1 em gmail.com> wrote:
>>>
>>>> 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
>>>>>
>>>>>
>>>> _______________________________________________
>>>> 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
>
>


-- 
Joenio Costa
http://joenio.me
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/salvador-pm/attachments/20150822/04a94ade/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/20150822/04a94ade/attachment-0002.png>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: image.png
Tipo: image/png
Tamanho: 2732 bytes
Descrição: não disponível
URL: <http://mail.pm.org/pipermail/salvador-pm/attachments/20150822/04a94ade/attachment-0003.png>