Re: Oracle -perl connectivity error

From: Ban Spam <ban-spam_at_operamail.com>
Date: Wed, 12 Dec 2001 14:29:41 GMT
Message-ID: <Xns917542110A085SunnySD@24.0.3.73>

priyan_at_karna.net (Priya) wrote in
news:aef23f1d.0112111843.2bb339af_at_posting.google.com:

> Hi,
>
> Environment are as follows
>
> I am using
>
> 1)Installed activeperl in windows 2000.
> 2)Oracle database in the solaris server 192.168.128.58
> 3)Installed Net8 in my system (windows 2000) & configured to oracle
> server as service name "hpdb"
>
> I set the environment variable TWO_TASK as (T:192.168.128.58:hpdb) in
> windows 2000.
>
> I am able to connect using sqlplus system/manager_at_hpdb

><mailto:system/manager_at_hpdb>  

>
> Here is my code for connecting to oracle.
>
> #!perl
>
> use CGI;
> use DBI;
> use DBD::Oracle;
> BEGIN {
> $ENV{ORACLE_HOME} = 'C:/ORACLE/ORA81';
> $ENV{TWO_TASK} = 'T:192.168.128.58:hpdb';
> }
>
> print "content-type: text/html\n\n";
>
> my $dbh=DBI->connect("dbi:Oracle:hpdb", "system", "manager");
> unless (defined $dbh) {
> print "Cannot connect to server: $DBI::errstr\n";
> die;
> }
>
> I am getting "Cannot connect to server: ORA-12640: Authentication
> adapter initialization failed (DBD: login failed) "
>
> What is the possible solution to resolve this issue? Where is the exact
> problem lies?
>
> Thanks in advance.
>
> With regards,
> Priya
>

Below is from working Perl code that I use.

use DBI;

($database, $user, $password) = ('db1', 'abc', 'news'); $dbh = DBI->connect("dbi:Oracle:$database",$user,$password, {RaiseError => 1, AutoCommit => 0}) || die $DBI::errstr;

HTH & YMMV
HAND! Received on Wed Dec 12 2001 - 08:29:41 CST