Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: Perl ODBC error

by runrig (Abbot)
on Oct 28, 2013 at 21:14 UTC ( #1060067=note: print w/replies, xml ) Need Help??

in reply to Perl ODBC error

Original parent post content:

Can someone please look into my below code and error and suggest what exactly is the error here and How should I move forward to get it right. Thanks in advance.
#!/u001/dev/edw/common/ul/bin/perl #Batch history: Developed by Saurav Rout use strict; use warnings; use DBI; use DBD::ODBC; my $host = ""; # = "localhost", the server your are on. my $db = "u210502"; # your username (= login name = account nam +e ) my $user = $db; # your Database name is the same as your acc my $pwd = 'xxxxxx'; # Your account password # connect to the database. + print(__PACKAGE__ . ':' . __LINE__ . ":Connecting...\n"); $dbh = DBI->connect( "DBI:ODBC:$host", $user, $pwd) or die "Connecting + : $DBI::errstr\n "; print(__PACKAGE__ . ':' . __LINE__ . ":Connected.\n"); $sql = "SELECT * FROM D_EIW_W_DEVWORK_1.daily_batch_report"; # executi +ng the SQL statement. $sth = $dbh->prepare($sql) or die "preparing: ",$dbh->errstr; $sth->execute or die "executing: ", $dbh->errstr; print "content-type: text/html\n\n"; # one of the functions to retriev +e data from the table results # check perldoc DBI for more methods. while ($row = $sth->fetchrow_hashref) { foreach(sort(keys(%$row))) { print("$_:\[$row->{$_}\]\n"); } }
And the error I am getting is:
[edwdev2:u210502] /u001/dev/edw/common/ul/cgi-bin/eiw $ perl batch_his + +t Can't load '/u001/dev/edw/common/ul/perl5/lib/site_perl/5.8.0/aix +-64al +l/auto/DBD/ODBC/' for module DBD::ODBC: 0509-022 Cannot + loa +d module /u001/dev/edw/common/ul/perl5/lib/site_perl/5.8.0/aix- +64all/ +auto/DBD/ODBC/ 0509-150 Dependent module libodbc.a(od could not be lo +aded. 0509-022 Cannot load module libodbc.a(o 0509-026 System error: A file or directory in the path name +do +es not exist. 0509-022 Cannot load module /u001/dev/edw/common/ul +/perl5/lib/ +site_perl/5.8.0/aix-64all/auto/DBD/ODBC/ 0509-15 +0 Dependent module /u001/dev/edw/common/ul/perl5/lib/ +site_perl/5.8. +0/aix-64all/auto/DBD/ODBC/ could not be loaded. +at /u001/dev/ +edw/common/ul/perl5/lib/5.8.0/aix-64all/ li +ne 229. at +batch_hist line 8 Compilation failed in require at batch_hist line 8. + BEGIN failed--compilation aborted at batch_hist line 8.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1060067]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (2)
As of 2017-03-29 03:45 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (343 votes). Check out past polls.