communication base de données via Perl
Bonjour,
Je suis débutant en Perl et je souhaite communiquer avec ma base de données.
Pour vérifier si j'arrive à communiquer avec ma base de données j'ai utilisé le code suivant :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| #!/usr/bin/perl
use warnings;
use strict;
use DBI;
my $bd = 'database';
my $serveur = 'localhost';
my $identifiant = 'root';
my $motdepasse = '';
# Connexion à la base de données MySQL
my $dbh = DBI->connect( "dbi:mysql:dbname=$bd;host=$serveur;", $identifiant, $motdepasse )
or die "Connexion impossible à la base de données $bd !";
my $requete = "SELECT * FROM table ";
my $sth = $dbh->prepare($requete);
$sth->execute();
while(my @row = $sth->fetchrow_array){
print $row['0']." <br>";
}
$sth -> finish;
$dbh -> disconnect; |
Cependant j'ai le message d'erreur suivant quand je compile :
Citation:
DBI connect('dbname=database;host=localhost;','root',...) failed: Access denied for user 'root'@'localhost' (using password: NO) at dbi.pm line 20
Connexion impossible Ã* la base de données database ! at dbi.pm line 20.
PS: j'utilise vnc viewer pour me connecter à une machine distante (fedora) et ma base de données se trouve dans mon pc windows sur lequel j'ai installé le vncviewer.
Est ce un problème avec mon code ou avec l'emplacement de ma base de données ?
Avez vous des solutions à me proposer ?
Merci de votre aide
