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

**Premium** · 16/12/2007, 10h31

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 :

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Schmorgluck** · 16/12/2007, 21h56

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.

**blacksnake** · 16/12/2007, 23h30

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

**Jasmine80** · 17/12/2007, 09h13

Bonjour,

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

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 :

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
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);
        }