I need help!!  I'm running Personal Oracle8i and
ActiveState's perl on the same win98 machine.  All I'm
trying to do is make a connection.  If anyone would
please help me do this I'd appreciate it.

So here goes..

Perl:
    - ActiveState build 629
    - Installed DBD-Oracle
    - Installed DBD-Oracle8
    - Installed DBI

Oracle:
    - Personal Oracle8i
    - Oracle is running
    - SID is MyDB2
    - DB Name is MyDB2

Env Var(From autoexec.bat):
   SET path=C:\WINDOWS;C:\WINDOWS\COMMAND;C:\PERL\BIN;
   SET Path=c:\Oracle\Ora81\bin;"%Path%"


These are both on the same machine at my home (Win98)

Script:

use DBI;
use strict;


#local ($ENV{ORACLE_HOME})='c:\Oracle\Ora81';

my $username = 'SYS';
my $passwd = 'webguru';
my $sid = 'MyDB2';
my $dbserver = 'c1779499-a';

DBI->trace(1);

my $dbh = DBI->connect('DBI:Oracle:MyDB2', $username,
$passwd, {RaiseError => 1, AutoCommit => 0}) || die
"Unable create database handle: $!\n";

Error(STDERR):

C:\WINDOWS\Desktop>perl oracle.pl
    DBI 1.14-nothread dispatch trace level set to 1
    -> DBI->connect(DBI:Oracle:MyDB2, SYS, ****,
HASH(0x176f13c))
    -> DBI->install_driver(Oracle) for perl=5.006001
pid=1782017 ruid=0 euid=0
       install_driver: DBD::Oracle loaded (version
1.06)
    <- install_driver= DBI::dr=HASH(0x1809518)
    !! ERROR: 12541 'ORA-12541: TNS:no listener (DBD
ERROR: OCIServerAttach)'
    <- connect= undef at DBI.pm line 408.
    <- errstr= 'ORA-12541: TNS:no listener (DBD ERROR:
OCIServerAttach)' at DBI.
pm line 409.
DBI->connect(MyDB2) failed: ORA-12541: TNS:no listener
(DBD ERROR: OCIServerAtta
ch) at oracle.pl line 18
    <- DESTROY= undef at unknown location!
    <- disconnect_all= '' at DBI.pm line 450.
    <- DESTROY= undef during global destruction.



__________________________________________________
Do You Yahoo!?
Get email alerts & NEW webcam video instant messaging with Yahoo! Messenger
http://im.yahoo.com

Reply via email to