Discussion :

[synx91]

Salut,

Je cherche (pour l'instant) à effectuer une requête assez simple: afficher les tables d'une bases et afficher ce résultat.

Voici mon code:

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
#!/usr/bin/perl -w
use strict;
use warnings;
use DBI;
 
# Paramètres de connexion à la base de données 
my $bd          = 'centreon'; 
my $serveur     = 'localhost';  
my $identifiant = 'user';  
my $motdepasse  = 'password';
 
# 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 !";  
 
# Procédure pour obtenir toutes les tables - méthode fetchrow_array 
my $query = "SHOW TABLES;";
my $sth = $dbh->prepare($query) or print "erreur de preparation SQL\n";
$sth->execute or die "Could not execute SQL statement ... maybe invalid?";
print "Voici les tables : \n";
$sth->finish; 
$dbh->disconnect();

Mon problème est que je ne sais pas comment afficher le résultat, comment le mettre dans une variable...

Merci.

[djibril]

Cet article t'aidera grandement. Reviens vers nous si tu as des soucis.

[synx91]

Je suis passé par le lien que tu me donnes avant de poster ma question, mais je ne trouve pas comment mettre le résultat d'une requête dans une variable.

Pour moi, il n'y a que des requêtes exécutées mais pas l'affichage du résultat.

[synx91]

A moins que ce ne soit avec ça:

Code :

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

open my $fh_communes, '<', $fichier_communes or die "Impossible de lire le fichier $fichier_communes\n";

Je vais creuser un peu...

[djibril]

Si tu relis bien l'article, avec les différents fetch, tu as tes réponses.

[synx91]

Je suis passé par fetchrow_array.