DBI-DBD Test

Hey Guys,

I'm trying to test DBI by running the following perl code attached I got from http://www.orafaq.com/faqperl.htm#DBDCONNECT get error below. How do I test DBI install on server to make sure DBI and DBD installed properly.

Thanks

perl code
#!G:\\iw-home/iw-perl/bin/iwperl.exe -w
#!/bin/env perl
#!d:\\perl\\bin\\perl.exe

use DBI;
my $dbh = DBI->connect('dbi Smiley Surprised

racle:host=localhost;sid=D1902;port=1521',
'smartbas', 'test23', \{ RaiseError => 1, AutoCommit => 0 \});
) || die "Database connection not made: $DBI::errstr";
$dbh->disconnect;

error
G:\iw-home\iw-perl\bin>perl dbitest.pl
Backslash found where operator expected at dbitest.pl line 7, near "0 \"
(Missing operator before \?)
syntax error at dbitest.pl line 7, near "0 \"
Execution of dbitest.pl aborted due to compilation errors.

G:\iw-home\iw-perl\bin>

Find more posts tagged with

Comments

nipper

my $dbh = DBI->connect('dbiracle:host=localhost;sid=D1902;port=1521',
'smartbas', 'test23', \{ RaiseError => 1, AutoCommit => 0 \} ) || die "Database connection not made: $DBI::errstr";

try making this change

ISCBorisB

Functionality aside, the following is a correct Syntax

#!G:\\iw-home/iw-perl/bin/iwperl.exe -w
#!/bin/env perl 
#!d:\\perl\\bin\\perl.exe 

use DBI;
my $dbh = DBI->connect(
   'dbiracle:host=localhost;sid=D1902;port= 1521', 
   'smartbas', 
   'test23', 
   {RaiseError => 1, AutoCommit => 0}) || die "Database connection not made: $DBI::errstr";
$dbh->disconnect();

begood321

omitting $dbh->disconnect; gives the same error if I interpret your response correctly, which I tried even before this posting.

begood321

Thanks ghoti, your correction with the code worked better but I got a new error as seen below: Do you know how can I fix this one.

G:\iw-home\iw-perl\bin>perl dbitest.pl
DBI connect('host=localhost;sid=D1902;port= 1521','smartbas',...) failed: ORA-12
541: TNS:no listener (DBD ERROR: OCIServerAttach) at dbitest.pl line 6

G:\iw-home\iw-perl\bin>

Adam Stoller

Thanks ghoti, your correction with the code worked better but I got a new error as seen below: Do you know how can I fix this one.

G:\iw-home\iw-perl\bin>perl dbitest.pl
DBI connect('host=localhost;sid=D1902;port= 1521','smartbas',...) failed: ORA-12
541: TNS:no listener (DBD ERROR: OCIServerAttach) at dbitest.pl line 6

G:\iw-home\iw-perl\bin>

If you're talking about this thread - I believe the thanks go to ISCBorisB - not me.

The above seems to indicate a problem on the DB side - or you are passing the wrong information to connect() such that you are attempting to connect to something that doesn't exist.

I suggest taking it slowly and trying to understand what you're attempting before blindly throwing code into a script and trying to run it.