Unable to connect to database

[Shaveta_Chawla]

Hi, I am trying to connect to remote database. The snippet of the code is:

 
use strict;
use DBI;
use Test::More qw( no_plan ) ;
use Data::Dumper;

my $host = 'example.com';
my $port = '3306';
my $db = 'calls';
my $user = 'username';
my $password = 'password';
my $data_source = "DBI:mysql:database=" . $db . ":host=" . $host . ":p
+ort=" . $port;
my $dbh = DBI->connect($data_source,$user,$password,{ PrintError => 0}
+);
if(!$dbh) {
        print "Connection to Database Failed\n";
        exit -1;
}

When i execute the script i get the following error: install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC contains ........

my mysql and DBI package is up and running.

Manually installed the DBD module and copied it into the perl repository.

From CPAN i get:

cpan> install DBD::mysql
DBD::mysql is up to date (4.023).

From PPM i get:

ppm install DBD::mysql
No missing packages to install

Even when i execute the command

perl -e "use DBD::mysql";

i get the following error: Can't locate loadable object for module DBD::mysql in @INC......

perl -e "print @INC"; gives me the location of perl library where DBD module is installed. i don't know how to resolve the issue.

[Tux]

Besides that, your code won't work. The driver part of the DSN separates by semi-colons, not by colons:

my $data_source = "DBI:mysql:database=" . $db . ":host=" . $host . ":p
+ort=" . $port;
my $dbh = DBI->connect($data_source,$user,$password,{ PrintError => 0}
+);

=>

my $data_source = "dbi:mysql:database=$db;host=$host;port=$port";
#   these colons should be semi-colons   ^          ^
my $dbh = DBI->connect ($data_source, $user, $password, {
    PrintError => 0,
    });

my $data_source =

[marto]

"Manually installed the DBD module and copied it into the perl repository."

What does this mean? You copied files around manually? Show us how you installed this module. Do you have more than one Perl installed on this machine?

[rnewsham]

If you have confirmed mysql.pm should be found in @INC, then it could be a file permissions issue. If you have manually moved files around it is likely that they have the wrong permissions. If a file is unreadable you will get the "Can't locate .." message.

[marto]

No, these aren't the only issues involved. Not all modules are pure Perl, many require compilation. Many modules require further cpan based dependancies, external libraries or tools and so on which require their own installtion procedure. In such cases simply copying files and editing their permissions isn't going to work. cpan, cpanp and cpanm take care of this for you. Module documentation should cover the basics of installation.

[rnewsham]

Agreed it is far from the only potential issue, I only raised that single suggestion as I thought it was the most likely cause of the error as described. I expect other problems related to incorrect installation will give further errors when that one is resolved.

[Shaveta_Chawla]

I removed the modules which i installed manually. Now if i am trying to install using cpan i get the error:

C:\PROGRA~1\MySQL\MYSQLS~1.6\bin\MYSQLA~1.EXE: connect to server at 'localhost' failed error: 'Access denied for user 'ODBC'@'localhost' (using password: NO)' Problem running C:\PROGRA~1\MySQL\MYSQLS~1.6\bin\MYSQLA~1.EXE - aborting ... Warning: No success on commandC:\Perl\bin\perl.exe Makefile.PL INSTALLDIRS=site

and if i install the module from ppm then i get the following error:

Downloading DBD-mysql-4.011...redirect Downloading DBD-mysql-4.011...failed 401 Authorization Required ppm install failed: 401 Authorization Required

[marto]

5.8.8 is from 2006, consider upgrading. Either read the documentation regarding manual installation or add more PPM repos via PPM::Repositories.

[Shaveta_Chawla]

I just upgraded my perl from 5.8.8 to 5.16.3, and installed the modules without any error, now i am successfully able to run the script. Thanks!!

[poj]

What Perl version do you have ?. It's possible the PPM repository you are accessing requires a Business Edition license. See here for details http://community.activestate.com/product/activeperl
poj

[Shaveta_Chawla]

perl -v gives me

This is perl, v5.8.8 built for MSWin32-x86-multi-thread (with 12 registered patches, see perl -V for more detail) Copyright 1987-2007, Larry Wall Binary build 824 287188 provided by ActiveState http://www.ActiveState.com Built Sep 3 2008 11:14:55 Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page.