[Salvador-pm] Erro ODBC DB2 Perl

Domingo Agosto 23 10:51:25 PDT 2015

Ahhh.. Não tenho acesso ao banco direto. Meu acesso é apenas via ODBC.
Em 23/08/2015 14:49, "Joenio Costa" <joenio em gmail.com> escreveu:

> Eu pergunto se via Perl mesmo, mas sem ODBC, você não consegue conectar?
>
> Você não tem acesso ao banco diretamente? O único acesso é via ODBC?
>
> 2015-08-23 12:25 GMT-03:00 Allisson Andrade Lima <allissonlima1 em gmail.com>
> :
>
>> Joenio, Boa Tarde!
>>
>> Fora do Perl ele funciona normalmente. Fiz o teste com o comando *isql *e
>> consegui realizar a conexão e uma consulta.
>>
>> Em 22 de agosto de 2015 15:02, Joenio Costa <joenio em gmail.com> escreveu:
>>
>>> 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
>>>
>>> _______________________________________________
>>> 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
>
> _______________________________________________
> 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/20150823/15abc893/attachment-0001.html>
-------------- 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/20150823/15abc893/attachment-0002.png>
-------------- 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/20150823/15abc893/attachment-0003.png>