Re: [dbi] Re: Problem with DBD::ODBC (via unixODBC) connection to remote ADABAS-11 database

From: Martin J. Evans (martin.evans_at_easysoft.com)
Date: 02/23/05

  • Next message: Jonathan Leffler: "Re: Oracle DBD" 
    Date: Wed, 23 Feb 2005 15:29:38 -0000 (GMT)
To: dbi-users@perl.org

    On 23-Feb-2005 Walter Obermiller wrote:
    > Martin,
    >
    > New deck of cards. I have completely cleaned out the perl-odbc
    > environment and replaced it with:
    >
    >
    > Unixodbc 2.2.10 (configured without threading enabled)
    > perl 5.8.6 (unthreaded)
    > DBI-1.47
    > DBD::ODBC 1.13 (configured for 5.8.6 and unixodbc2.2.10)
    >
    > unixODBC 2.2.10
    > DRIVERS............: /usr/local/etc/odbcinst.ini
    > SYSTEM DATA SOURCES: /usr/local/etc/odbc.ini
    > USER DATA SOURCES..: /home/users/walter/.odbc.ini
    >
    > ------------------------------------------
    > [MySQL]
    > Description = ODBC for MySQL
    > Driver = /usr/lib/unixODBC/libmyodbc3.so
    > FileUsage = 1
    >
    > [AdabasD]
    > Description = AdabasD -Driver
    >#Driver = /home2/OpenOffice.org1.1.3/program/libadabas2.so
    > Driver = /usr/local/lib/odbclib.so
    > DontDLClose=1
    >
    > [ODBC]
    > Trace = Yes
    > ----------------------------------------
    >
    > running my time-honored test program:
    >
    > -----trivial connect---------
    >#!/usr/local/bin/perl -w
    > my $dbh = DBI->connect('dbi:ODBC:DSN=emanuel-sbart;UID=walter;PWD=**;')
    >|| die "can't connect to $data_source: $DBI::errstr";
    > $rc = $dbh->disconnect;
    > exit();
    > -----------------------------
    >
    > results in the error:
    > ------------------------dbitrace.log--------------------------------
    > Driver connect 'DSN=emanuel-sbart;UID=walter;PWD=**;', '', 'xxxx'
    > dbd_error: err_rc=-1 rc=0 s/d/e: 0/136851792/136850368
    > dbd_error: SQL-IM001 (native 0): [unixODBC][Driver Manager]Driver does
    > not support this fu
    > nction (SQL-IM001)
    > dbd_error: err_rc=-1 rc=0 s/d/e: 0/0/136850368
    > dbd_db_login/SQLGetInfo(DRIVER_ODBC_VER) error -1 recorded:
    > [unixODBC][Driver Manager]Driv
    > er does not support this function (SQL-IM001)(DBD:
    > dbd_db_login/SQLGetInfo(DRIVER_ODBC_VER
    > ) err=-1)
    > Connected to: Unknown/Unsupported
    > SQLGetFunctions - SQL_MoreResults supported: 0
    > ------------------------dbitrace.log--------------------------------------
    >
    >
    > Could this be a problem with the ODBC-Level ?
    >
    > -walt

    But did it connect?

    I see the Driver connect line looks correct now:
      'DSN=emanuel-sbart;UID=walter;PWD=**;'

    Neither of other two should matter:
       rc = SQLGetInfo(imp_dbh->hdbc, SQL_DRIVER_ODBC_VER, &imp_dbh->odbc_ver,
                       (SWORD) sizeof(imp_dbh->odbc_ver), &dbvlen);
       if (rc != SQL_SUCCESS && rc != SQL_SUCCESS_WITH_INFO)
       {
          YOU GOT HERE - just affetcs the odbc_ver reported to your perl
          should it ask.
          dbd_error(dbh, rc, "dbd_db_login/SQLGetInfo(DRIVER_ODBC_VER)");
          strcpy(imp_dbh->odbc_ver, "01.00");
       }

    unless unixODBC doesn't like a driver not saying what ODBC version it is - I
    doubt it.

    and:

       rc = SQLGetFunctions(imp_dbh->hdbc, SQL_API_SQLMORERESULTS,
                            &supported);
       if (ODBC_TRACE_LEVEL(imp_dbh) >= 3)
          PerlIO_printf(DBIc_LOGPIO(imp_dbh), " SQLGetFunctions -
    SQL_MoreResults supported: %d\n",
                        supported);
       if (SQL_ok(rc)) {
          imp_dbh->odbc_sqlmoreresults_supported = supported ? 1 : 0;
       } else {

    Just means you can use odbc_more_results method.

    Martin 

    --
Martin J. Evans
Easysoft Ltd, UK
Development
  • Next message: Jonathan Leffler: "Re: Oracle DBD"

    Relevant Pages