Tout d'abord, avant de tenter d'exécuter ce petit programme, assurez-vous que les modules sont installés avec les instructions suivantes :
|
C:\>C:\Perl\Bin\ppm.bat ppm>install DBI ppm>install DBD-odbc |
N.B. Il va de soit qu'à cette étape, vous avez déjà installé votre pilote ODBC !
Ensuite, en supposant que vous avez une base de données nommé «mybasededonnees_db» dans votre base de données par ODBC avec la table «cdmworkgroup» ayant le contenu suivante :
| Cin | WorkGroupId | Name_EN | Name_FR | Description | Status | CreateDate | CreateUserId | LastUpdate | UpdateUserId |
|---|---|---|---|---|---|---|---|---|---|
| 000 | 0000023901 | Coder | Développement | Groupe de programmeur effectuant de la recherche et développement (R&D). | A | 2006/03/09 | SYSADM | 2006/03/09 | SYSADM |
| 000 | 0000023902 | Maintenance | Maintenance | Groupe maintenant les divers services réseaux, implantant les développements, maintenant l'état actuel du matériel et administratant les accès. | A | 2006/03/09 | SYSADM | 2006/03/09 | SYSADM |
| 000 | 0000023903 | Direction | Direction | Direction Groupe de travail s'occupant des divers orientations à prendre sur les projets et les produits. | I | 2006/03/09 | SYSADM | 2006/03/09 | SYSADM |
| 075 | 0000000068 | Test | Teste | Groupe désigné pour le contrôle de la Qualité | A | 2006/03/09 | STREMBLAY | 2006/03/09 | STREMBLAY |
Grâce à ce petit programme, vous pourrez afficher la table «cdmworkgroup» dans un tableau d'une page Web :
- #!/bin/perl
-
- use CGI;
- use DBI();
-
- $Conn = DBI->connect("DBI:ODBC:mybasededonnees_db","root","",{'RaiseError' => 1});
- $html = new CGI;
- $sth = $Conn->prepare("SELECT Name_EN,Name_FR FROM cdmworkgroup ");
- $Result = $sth->execute;
-
- print $html->header;
- print "<TABLE>";
-
- while ($CurrLine = $sth->fetchrow_hashref) {
- print "<TR><TD>".$CurrLine->{Name_EN} . "</TD><TD>" . $CurrLine->{Name_FR} . "</TD>";
- }
-
- print "</TABLE>";
Ensuite, vous devriez voir afficher un résultat ressemblant à celui-ci :
| Coder | Développement |
| Maintenance | Maintenance |
| Direction | Direction |
| Test | Teste |
Dernière mise à jour : Jeudi, le 17 janvier 2019