Re: ODBC Driver failing?

Big thanks!

I did this:
ldd
/opt/perl_32/lib/site_perl/5.8.8/PA-RISC1.1-thread-multi/auto/DBD/ODBC/ODBC.sl

and got:

 /usr/local/liant/lib/libodbc.sl.1 =>    /usr/local/liant/lib/libodbc.sl.1
        /usr/lib/libc.2 =>      /usr/lib/libc.2
        /usr/lib/libdld.2 =>    /usr/lib/libdld.2
        /usr/lib/libc.2 =>      /usr/lib/libc.2
        /usr/lib/libpthread.1 =>        /usr/lib/libpthread.1

I tried isql -v prod1 username password

and it just hung like other attempts to access the database. No error
messages.




On Wed, Jun 26, 2013 at 12:11 PM, Martin J. Evans <[email protected]>wrote:

> On 26/06/2013 17:28, Dan Bent wrote:
>
>> I suddenly lost the ability to connect to my ODBC database yesterday,
>> after years of using the same function to establish a connection:
>>
>> sub dbaseconnect {
>>      if (defined($testing)) {
>>          if ($testing eq "YES") {
>>              $dsn =  'dbi:ODBC:test1' ;
>>              print "Using test database\n" ;
>>          } elsif ($testing eq "TRAIN") {
>>              $dsn =  'dbi:ODBC:train1' ;
>>              print "Using train1 database\n" ;
>>          } else {
>>              $dsn =  'dbi:ODBC:prod1' ;
>>          }
>>      } else {
>>          $dsn =  'dbi:ODBC:prod1' ;
>>      }
>>      $user =  'USER' ;
>>      $passwd =  'PASSWORD' ;
>>      my %adrivers = DBI->available_drivers();
>>      print join(", ", %adrivers), "\n" ;
>>
>>      print "connecting to DATABASE $dsn  $user $passwd\n" ;
>>      $dbh = DBI->connect($dsn, $user, $passwd,
>>                  {RaiseError => 1, AutoCommit => 0})
>>          or die "Could not connect to database: " . DBI->errstr ;
>>      print "connected to DATABASE $dsn \n" ;
>> }
>>
>> So, to gather information about where the failure is, I ran the
>> following program:
>>
>> #! /usr/bin/perl
>>
>> use DBI ;
>> use DBD::ODBC ;
>> use strict ;
>> use warnings ;
>>
>> print "Available Drivers: " ;
>> my @adrivers = DBI->available_drivers();
>> print join(", ", @adrivers), "\n" ;
>>
>> print "Data Sources: " ;
>> foreach my $driver ( @adrivers ) {
>>      print "Driver: $driver\n";
>>      my @dataSources = DBI->data_sources( $driver );
>>      foreach my $dataSource ( @dataSources ) {
>>          print "\tData Source is $dataSource\n";
>>      }
>>      print "\n";
>> }
>>
>> and the output I got was:
>>
>> Available Drivers: DBM, ExampleP, File, ODBC, Proxy, Sponge
>> Installed Drivers:
>> Data Sources: Driver: DBM
>>          Data Source is DBI:DBM:f_dir=.
>>          Data Source is DBI:DBM:f_dir=CIGNA
>>          Data Source is DBI:DBM:f_dir=Logs
>>          Data Source is DBI:DBM:f_dir=ONCOURSE
>>          Data Source is DBI:DBM:f_dir=autemp
>>          Data Source is DBI:DBM:f_dir=config
>>          Data Source is DBI:DBM:f_dir=fh.cob
>>          Data Source is DBI:DBM:f_dir=perlscripts
>>          Data Source is DBI:DBM:f_dir=pndspndwk
>>          Data Source is DBI:DBM:f_dir=prgrun_dir
>>          Data Source is DBI:DBM:f_dir=scripts
>>
>> Driver: ExampleP
>>          Data Source is dbi:ExampleP:dir=.
>>
>> Driver: File
>>          Data Source is DBI:File:f_dir=.
>>          Data Source is DBI:File:f_dir=CIGNA
>>          Data Source is DBI:File:f_dir=Logs
>>          Data Source is DBI:File:f_dir=ONCOURSE
>>          Data Source is DBI:File:f_dir=autemp
>>          Data Source is DBI:File:f_dir=config
>>          Data Source is DBI:File:f_dir=fh.cob
>>          Data Source is DBI:File:f_dir=perlscripts
>>          Data Source is DBI:File:f_dir=pndspndwk
>>          Data Source is DBI:File:f_dir=prgrun_dir
>>          Data Source is DBI:File:f_dir=scripts
>>
>> Driver: ODBC
>>
>> and the program just hangs when it looks for data sources using the ODBC
>> driver. So, I suspect that there are issues with the ODBC driver. Here
>> are the versions of the various DBI module components:
>>
>>   perl -MDBI -e 'DBI->installed_versions'
>>    Perl            : 5.008008    (PA-RISC1.1-thread-multi)
>>    OS              : hpux        (11.00)
>>    DBI             : 1.50
>>    DBD::Sponge     : 11.10
>>    DBD::Proxy      : install_driver(Proxy) failed: Can't locate
>> RPC/PlClient.pm in @INC
>>    DBD::ODBC       : 1.14
>>    DBD::File       : 0.33
>>    DBD::ExampleP   : 11.12
>>    DBD::DBM        : 0.03
>>
>> I imagine that I may not have the latest versions of everything, and
>> updates are probably in order, but, while updates are desirable, I'd
>> like to be sure that I'm addressing the root cause of the problem, so I
>> get it resolved. This issue affects a lot of programs, and is critical
>> to our business.
>> Any help or suggestions will be greatly appreciated.
>>
>>
> You are in deed running VERY old versions - especially of DBD::ODBC.
>
> You first need to think about what Jonathan said - he's probably right
> that working out what changed yesterday is probably going to give the
> quickest result.
>
> Assuming you cannot find anything here are some suggestions.
>
> DBD::ODBC is usually linked to an ODBC driver manager but back in the days
> of 1.14 people still linked directly to an ODBC driver sometimes - ODBC
> drivers did not support enumerating DSNs - only the driver manager does
> that. So first thing is hwo was DBD::ODBC built? If you don't know that
> look for ODBC.so in your perl tree and run the HPUX equivalent of Linux's
> ldd command on it to find what libraries it depends on (right now I cannot
> remember what the command is).
>
> Once you've done that if the answer is libodbc.so.something then you are
> probably using the unixODBC driver manager. In that case you should
> hopefully have an isql binary and you should have an odbc.ini and
> odbcinst.ini defining your drivers and DSNs. What is in those files. Can
> you run:
>
> isql -v TEST1 username password
> isql -v TRAIN1 username password
> isql -v PROD1 username password
>
> as you didn't say which one you are using?
>
> If you get back with this info I'll help more.
>
> Martin
> --
> Martin J. Evans
> Wetherby, UK
>