[web] cgi dbi MySQL : créer un tableau ?

Bonjour à tous,

Je cherche à construire et afficher dans un navigateur un tableau dont les données seraient remplies à partir d'un résultat de requête sur ma base de donnée : en gros :
Voici mon code :

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

#!/usr/bin/perl -w   use CGI; use DBI;   my $cgi = new CGI; $db = "maBase"; $host = "localhost";   my $dbh = DBI->connect("DBI:mysql:database=$db;host=$host", "root", "") or die "connection failed";   $request = qq(select * from maTable); $reqDocs = $dbh->prepare($request); $reqDocs->execute or db_err("Unable to execute query", $dbh->errstr); my @tablDocs;   $cgi->start_table({-border => '1'}), $cgi->Tr($cgi->th({-align => 'center'},'NomChamp1'), $cgi->td($cgi->th({-align => 'center'},'NomChamp2')), $cgi->td($cgi->th({-align => 'center'},'NomChamp3')), $cgi->td($cgi->th({-align => 'center'},'NomChamp4'))), ################################################### while(@tablDocs = $reqDocs->fetchrow_array){ $cgi->Tr($cgi->th({-align => 'center'},'$tablDocs[0]'), $cgi->td($cgi->th({-align => 'center'},'$tablDocs[2]')), $cgi->td($cgi->th({-align => 'center'},'$tablDocs[3]')), $cgi->td($cgi->th({-align => 'center'},')$tablDocs[4]]')), } ################################################### $cgi->end_table(), $cgi->end_html();

---

A l'endroit que j'ai repéré par les ###, je cherche donc à compléter le tableau avec les valeurs de la base de données.

Les connections avec la bdd se font bien (testées dans d'autres scripts) et j'arrive à récupérer les donnée par ailleurs.

Seulement, ici, impossible d'éxecuter ce code, la ligne débutant par le while renvoyant une erreur du type "syntaxe error". Cette ligne est pourtant correcte (fonctionne bien ailleurs).

Il semble alors qu'il ne soit pas possible d'écrire une ligne perl en plein milieu de la constrcution du tableau. Est-ce normal ? Peut-on écrire une ligne perl de ce type à cet endroit du code ?

Merci beaucoup d'avance pour vos suggestions !!

:wink:

Je crois que ton while attend plutôt celà :

Code:

---

(@tablDocs = $reqDocs->fetchrow_array)

---

Et pense à utiliser use strict, c'est très utile ! ;)

@+
Mr6

Certes....

Mais l'erreur ne vient pas de là : je l'ai commise en recopiant le code dans le message. Il est comme tu le notes dans mon script. Ce while (quand il est bien écrit !! :lol: ) fonctionne bien par ailleurs.

Merci quand même de ta réponse...

ToCToF

Je crois que j'ai trouvé, essaie comme ca :

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

#!/usr/bin/perl -w   use CGI; use DBI;   my $cgi = new CGI; $db = "maBase"; $host = "localhost";   my $dbh = DBI->connect("DBI:mysql:database=$db;host=$host", "root", "") or die "connection failed";   $request = qq(select * from maTable); $reqDocs = $dbh->prepare($request); $reqDocs->execute or db_err("Unable to execute query", $dbh->errstr); my @tablDocs;   $cgi->start_table({-border => '1'}); $cgi->Tr($cgi->th({-align => 'center'},'NomChamp1'), $cgi->td($cgi->th({-align => 'center'},'NomChamp2')), $cgi->td($cgi->th({-align => 'center'},'NomChamp3')), $cgi->td($cgi->th({-align => 'center'},'NomChamp4'))); ################################################### while(@tablDocs = $reqDocs->fetchrow_array){ $cgi->Tr($cgi->th({-align => 'center'},'$tablDocs[0]'), $cgi->td($cgi->th({-align => 'center'},'$tablDocs[2]')), $cgi->td($cgi->th({-align => 'center'},'$tablDocs[3]')), $cgi->td($cgi->th({-align => 'center'},'$tablDocs[4]]'))); } ################################################### $cgi->end_table(), $cgi->end_html();

---

@+
Mr6

Non, pas bête l'idée des ";" Malheureusement ça ne fonctionne toujours pas : désormais la première partie du tableau est correctement affichée, mais rien ensuite !! Le point virgurle semble "stopper" l'édition du tableau et empécher le reste de s'écrire...

Si de plus j'essaye un print tout bête derrière la première partie du tableau, ce print tout bête se retrouve affiché avant le tableau : en fait je pense que le tableau ne s'affiche qu'au moment où est écrit "$cgi->end_table()," .

Je suis toujours bloqué en utilisant cette méthode. J'arrive cependant à construire le tableau en écrivant laborieusement toutes les balises de construction (print "<table><Tr>..........."). C'est pas classe mais ça fonctionne...:roll:

Si t'as une autre idée je suis preneur. En tout cas merci beaucoup pour ton aide. :wink:

@+

ToCToF

Bon, alors comme ca ca marche totalement, c sûr, je l'ai testé sur une de mes bases :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

print $cgi->header(); print $cgi->start_html(-title=>'test', -bgcolor=>'D4D0C8', -vlink=>'#0000FF', -alink=>'#0000FF'); print $cgi->start_table({-border => '1'}); print $cgi->Tr($cgi->th({-align => 'center'},'NomChamp1'), $cgi->td($cgi->th({-align => 'center'},'NomChamp2')), $cgi->td($cgi->th({-align => 'center'},'NomChamp3')), $cgi->td($cgi->th({-align => 'center'},'NomChamp4'))); ################################################### while(@tablDocs = $reqDocs->fetchrow_array){ print $cgi->Tr($cgi->th({-align => 'center'},"$tablDocs[0]"), $cgi->td($cgi->th({-align => 'center'},"$tablDocs[2]")), $cgi->td($cgi->th({-align => 'center'},"$tablDocs[3]")), $cgi->td($cgi->th({-align => 'center'},"$tablDocs[4]]"))); } ################################################### print $cgi->end_table(); print $cgi->end_html();

---

@+
Mr6

Je viens d'essayer le code, et là, franchement, j'ai envie de te prendre dans mes bras.... :lol:

Ca fonctionne parfaitement, MERCI BEAUCOUP (bah oui je hurle mais ça fait du bien !!)

@+


ToCToF

Citation:

---

Envoyé par toctof

Je viens d'essayer le code, et là, franchement, j'ai envie de te prendre dans mes bras....

---

Uniquement si tu es blonde à forte poitrine alors ;)

@+
Mr6