Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

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 = "db.myhost.com"; # = "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/ODBC.so' 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/ODBC.so. 0509-150 Dependent module libodbc.a(od +bc.so) could not be lo +aded. 0509-022 Cannot load module libodbc.a(o +dbc.so). 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/ODBC.so. 0509-15 +0 Dependent module /u001/dev/edw/common/ul/perl5/lib/ +site_perl/5.8. +0/aix-64all/auto/DBD/ODBC/ODBC.so could not be loaded. +at /u001/dev/ +edw/common/ul/perl5/lib/5.8.0/aix-64all/DynaLoader.pm 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.


Comment on Re: Perl ODBC error
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1060067]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (16)
As of 2014-08-22 15:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (159 votes), past polls