Problème de connection à ma base de données MySQL

Version imprimable

Bonjour,

j'ai crée différentes tables dans MySQL. J'ai ensuite crée un programme perl pour récupérer les données d'une table mais le soucis, c'est que je n'arrive pas à me connecter à cette table.
Le nom de ma base de donnée est test. Pour me connecter à ma base donnée, on ne me demande pas de login donc je n'ai rien mis.

Le code que j'ai écrit :
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 25 26 27 28 29 30 31 32 #!usr/bin/perl -w use strict; use Data::Dumper; use DBI; #parametres de la base my $DBI_DSN = "dbi:mysql:database=test;host=localhost"; my $DBI_USER = ""; my $DBI_PWD = "test"; #Connection a la base de données my $db; $db = DBI->connect($DBI_DSN, $DBI_USER, $DBI_PWD) or die("Database connection error"); #Recupération de tous les identifiants et libellés dans la table tSource my $request = qq(SELECT source_i_id, source_s_label FROM tSource); my $sql_query = $db->prepare($request); my $ref_row = $db->selectall_arrayref($sql_query); #on recupère le nombre de sources disponibles my $nb_sources = @$ref_row; #table de hachage my %decode_sourceId; foreach my $line(@$ref_row){ my ($sourceId, $libelle) = @$line; $decode_sourceId{$sourceId} = $libelle; } print Dumper(%decode_sourceId);
J'obtiens :

Code:

DBI connect('database=test;host=localhost','',...) failed: Access denied for user 'ODBC'@'localhost' (using password: YES) at connexion.pl line 13 Database connection error at connexion.pl line 13.

Est-ce que quelqu'un pourrait m'indiquer que corriger pour que je puisse me connecter?

Merci

16/12/2007, 21h56
Schmorgluck

Euh, c'est pas un peu étrange d'avoir un nom d'utilisateur vide et un mot de passe "test" ? Je débute un peu en MySQL, mais je trouve ça pas mal insolite.
16/12/2007, 23h30
blacksnake

Pour mysql le user pas défaut est root sans password.

Bonjour,

Le problème est au niveau de l'accès qui n'est pas autorisé pour ton nom d'utilisateur.

Citation:

Access denied for user 'ODBC'@'localhost' (using password: YES) at connexion.pl line 13 Database connection error at connexion.pl line 13.

En tout cas, j'arrive à me connecter à mes DB en utilisant ton script.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
#!usr/bin/perl -w
use strict;
use DBI;
 
 
#parametres de la base
my $DBI_DSN = "dbi:mysql:database=test;host=localhost";
my $DBI_USER     = "";
my $DBI_PWD = "";
my $Table = "test";
 
# récupération Id et psw
PASS();
 
# connexion DB
my $db;
$db = DBI->connect($DBI_DSN, $DBI_USER, $DBI_PWD) or die("Database connection error");
my $sql0 = "SELECT Acc, Organisme  FROM $Table limit 2";
my $sth0 = $db->prepare($sql0) or print "erreur de preparation SQL\n";
$sth0->execute or die "Could not execute SQL statement ... maybe invalid?";
my @row;
while (@row=$sth0->fetchrow_array)
{
        print  "\n Acc = $row[0]\t Organisme = $row[1]\n";
}
 
$sth0->finish;
$db->disconnect();
 
 
 
 
 
sub PASS
        {
                my $InFilePass = "P:/Perl/InfoPass.txt";
                my $Ligne;
                my $u;
 
	       open (File,"$InFilePass")  or die "Can't open file\n";
 
	       while ($Ligne=<File>)
	       {
                        if ($Ligne =~ /^user/)
                        {
                                ($DBI_USER)=($Ligne =~ /^user = (\w+)\s/)
                        }
                        if($Ligne =~ /^password = (\w+)\s/)
                        {
                                ($DBI_PWD)=($Ligne =~ /^password = (\w+)\s/)
                        }
                }
 
                close (File);
        }

Ce script fonctionne très bien chez moi.

Jasmine,

22/12/2007, 14h11
Premium

Citation:

Envoyé par blacksnake

Pour mysql le user pas défaut est root sans password.

C'est bien de là que venait le problème.
J'ai ajouté :

Code:

my $DBI_USER = "root";

Et ça fonctionne.
Merci à tous pour vos réponses.