Récupérer les commentaires d'une BD Mysql

Version imprimable

Bonjour,
Mysql (pg également) permet de commenter les tables d'une bd (ainsi que les champs).
Question : Peut on avec perl récupérer ces commentaires?
Si non, y'a t'il un SGBD qui le permette ?
actuellement, le code suivant me permet juste de récupérer la structure de chaque table :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
if ($dbh != 0) {
            my $sth = $dbh->prepare("describe $tablename");
            $sth->execute;
            my $numRows = $sth->rows;            
            if ($numRows > 0) {
                print $TABLEINDEX "<table border=1>";                
                while (my @row = $sth->fetchrow_array()) {
                    print $TABLEINDEX "<tr>";
                    foreach my $col (@row) {
                            $col = "&nbsp;" unless defined $col;
                            $col = "&nbsp;" if ($col eq "");
                            print $TABLEINDEX "<td>$col</td>";
                    }
                    print $TABLEINDEX "</tr>\n";
                }
                print $TABLEINDEX "</table>";
            }
            $sth->finish;
        }

J'ai pas mal cherché sur le forum/net, mais rien trouvé.
Merci de votre aide.

17/02/2009, 18h35
djibril

Code:

SHOW TABLE STATUS FROM TABASE

te permet d'avoir toutes les informations des tables d'une base de données
17/02/2009, 22h40
WhoIsTiti

Merci djibril :yaisse2:
En plus ça m'a mise sur la voie pour récupérer les commentaires par table avec :
SHOW FULL COLUMNS FROM TABLE_NAME FROM DATABASE_NAME.
Bon, je n'ai plus qu'à me pencher sur le script de phpxref pour lui faire afficher l'ensemble des données qui m'interesse.

Optimisation d'un code ?

Alors, après avoir fait des recherches via la doc mySql & perl, je suis arrivé à obtenir ce que je recherchais, c.a.d :
-Obtenir le commentaire sur chaque table de la bd.
-Obtenir les commentaires sur chaque champs des tables.
Voici le code que j'ai développé :

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
 
print $TABLEINDEX "<h3>Description de la table :</h3>\n\n";
        #Modif -> on récupère la description de la table.
        if ($dbh != 0) {
            my $sql = qq'SELECT TABLE_COMMENT FROM INFORMATION_SCHEMA.TABLES WHERE table_name = \'$tablename\'';           
            my $row = $dbh ->selectrow_array($sql);
            print $TABLEINDEX "$row";
            }
        #Modif -> on exploite uniquement les champs interessants de la table.
        if ($dbh != 0) {            
            my $sql = qq'SELECT COLUMN_NAME, COLUMN_TYPE, IS_NULLABLE, COLUMN_KEY, COLUMN_DEFAULT, COLUMN_COMMENT FROM INFORMATION_SCHEMA.COLUMNS WHERE table_name = \'$tablename\'';           
            $sth = $dbh->prepare($sql);            
            $sth->execute;           
            my $numRows = $sth->rows;
            if ($numRows > 0) {
            print $TABLEINDEX "<table border=1>";            
            while(my @row = $sth->fetchrow_array()){                
            print $TABLEINDEX "<tr>";
            foreach my $col (@row) {            
            $col = "&nbsp;" unless defined $col;
            $col = "&nbsp;" if ($col eq "");            
            print $TABLEINDEX "<td>$col</td>";
            }
            print $TABLEINDEX "</tr>\n";
            }
            print $TABLEINDEX "</table>";
            }
            $sth->finish;            
        } else {
            print $TABLEINDEX "Description de la table non disponible!<br><br>";
        }

visuellement, le résultat :
http://img153.imageshack.us/img153/9892/capturewf0.jpg
Puis je optimiser ce code :question:
une seule requète au lieu de deux?
Ensuite, dans cette requète :

Code:

my $sql = qq'SELECT TABLE_COMMENT FROM INFORMATION_SCHEMA.TABLES WHERE table_name = \'$tablename\'';

que signifie 'qq' :question:
Sans ce 'qq', j'ai une erreur de syntaxe. Je l'ai mis après l'avoir vu dans un script trouvé sur le net, mais sans savoir exactement sa portée.
Désolé pour les questions idiotes :? ...
Merci.

21/02/2009, 17h44
Jasmine80

Citation:

Envoyé par WhoIsTiti

que signifie 'qq'
Sans ce 'qq', j'ai une erreur de syntaxe.

qq permet d'encader ta requête de doubles quotes et permet ainsi l'interprétation des variables.

Code:

my $sql = qq'SELECT TABLE_COMMENT FROM INFORMATION_SCHEMA.TABLES WHERE table_name = \'$tablename\'';

équivaut à

Code:

my $sql = "SELECT TABLE_COMMENT FROM INFORMATION_SCHEMA.TABLES WHERE table_name = \'$tablename\'";
26/02/2009, 19h56
WhoIsTiti

merci Jasmine pour les précisions concernant la fonction qq.
Qu'en est il de l'optimisation de mon code :question: Dois je garder les deux requêtes (exploitant des méta données) ou est il possible de n'en faire qu'une :question: Peut être que le code que je fournis n'est pas assez pertinent pour donner une réponse détaillée :question:
cdt

Pour fusionner les deux requêtes en une seule, il suffit de faire une jointure :
Code:

1 2 3 4 SELECT TABLE_COMMENT, COLUMN_NAME, COLUMN_TYPE, IS_NULLABLE, COLUMN_KEY, COLUMN_DEFAULT, COLUMN_COMMENT FROM INFORMATION_SCHEMA.TABLES T INNER JOIN INFORMATION_SCHEMA.COLUMNS C ON T.TABLE_SCHEMA = C.TABLE_SCHEMA AND T.TABLE_NAME = C.TABLE_NAME WHERE table_name = '$tablename' ;
Jasmine, en fait, l'équivalent exact de ton qq serait plutôt :

Code:

my $sql = "SELECT TABLE_COMMENT FROM INFORMATION_SCHEMA.TABLES WHERE table_name = '$tablename'";

et ça me semble franchement plus simple !
L'idée du qq est justement d'éviter de devoir échapper un caractère, en te permettant de choisir des délimiteurs de chaîne qui ne soient pas dans ta chaîne. Donc utiliser qq avec des apostrophes n'apporte pas grand-chose. L'idée serait plutôt de faire :

Code:

my $sql = qq{SELECT TABLE_COMMENT FROM INFORMATION_SCHEMA.TABLES WHERE table_name = '$tablename'};

Merci Antoun de ces précisions.
Je vois que les requètes avec perl sont identiques à celles que j'ai apprise à faire avec php, seules les fonctions pour l'exploitation des résultats diffèrent.
Par contre, ta requète :
Code:

1 2 3 4 SELECT TABLE_COMMENT, COLUMN_NAME, COLUMN_TYPE, IS_NULLABLE, COLUMN_KEY, COLUMN_DEFAULT, COLUMN_COMMENT FROM INFORMATION_SCHEMA.TABLES T INNER JOIN INFORMATION_SCHEMA.COLUMNS C ON T.TABLE_SCHEMA = C.TABLE_SCHEMA AND T.TABLE_NAME = C.TABLE_NAME WHERE table_name = '$tablename' ;
a causé l'erreur suivante :

Citation:

DBD::mysql::st execute failed: Column 'table_name' in where clause is ambiguous

que j'ai (correctement :question: ) corrigé par :

Code:

SELECT TABLE_COMMENT, COLUMN_NAME, COLUMN_TYPE, IS_NULLABLE, COLUMN_KEY, COLUMN_DEFAULT, COLUMN_COMMENT FROM INFORMATION_SCHEMA.TABLES T INNER JOIN INFORMATION_SCHEMA.COLUMNS C ON T.TABLE_SCHEMA = C.TABLE_SCHEMA AND T.TABLE_NAME = C.TABLE_NAME WHERE t.table_name = '$tablename'

Je crois que je peux passer le sujet en résolu ...;)

05/03/2009, 23h55
Antoun

Citation:

Envoyé par WhoIsTiti

Je crois que je peux passer le sujet en résolu ...;)

Je crois aussi ;)