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 :
Cependant j'ai le message d'erreur suivant quand je compile :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
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.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.
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
Partager