looks like you havent installed DBD::Oracle.
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]On Behalf Of Waghmare, Satish (IE03x)
Sent: Thursday, January 13, 2005 4:02 PM
To: [EMAIL PROTECTED]
Cc: [email protected]
Subject: Oracle connection - PerlHi..
I am new to the Perl programming.I am facing a problem with connecting to Oracle Database.See below script and error log for details.
Please help me.Thanks~SatishMy Script:use DBI;
my %test;$dbh = DBI->connect("dbi:Oracle:(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=thl02566)(PORT=1529))(CONNECT_DATA=(SID=manthan)))", 'db2admin', 'db2admin', {AutoCommit => 0 } );$sqlstatement="SELECT * FROM solution";
$sth = $dbh->prepare($sqlstatement);
$sth->execute || die "Could not execute SQL statement ... maybe invalid?";#output database results
while (@row=$sth->fetchrow_array()){
#print join('--',$row[0],$row[1], $row[2], "\n");
print "@row\n";
$test{$row[1].$row[2]} = $row[0];
}
print "printing in hash table \n";while(($key,$value) = each %test) {
print join(" ","Hash Key = ", $key, "Hash Value = ", $value, "\n");
}
Error Generated:C:\Perl\bin>perl C:\te.pl
install_driver(Oracle) failed: Can't locate DBD/Oracle.pm in @INC (@INC contains
: C:/Perl/lib C:/Perl/site/lib .) at (eval 1) line 3.
Perhaps the DBD::Oracle perl module hasn't been fully installed,
or perhaps the capitalisation of 'Oracle' isn't right.
Available drivers: ExampleP, ODBC, Proxy.
at C:\te.pl line 5
| ********************************************************* Disclaimer: This message (including any attachments) contains confidential information intended for a specific individual and purpose, and is protected by law. If you are not the intended recipient, you should delete this message and are hereby notified that any disclosure, copying, or distribution of this message, or the taking of any action based on it, is strictly prohibited. ********************************************************* Visit us at http://www.mahindrabt.com |
_______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
