Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset
Comments Off

Exemple de connexion à une base de données MySQL Server

Your ads will be inserted here by

Easy AdSense.

Please go to the plugin admin page to paste your ad code.

mysql,base de données,serveur, sql
Download

#!/perl/bin
 
use DBI;
use strict;
 
# Ouvrir une connexion sur la base de données MySQL 'Ventes'
my $db_connect = DBI->connect('dbi:mysql:Ventes',
								'scott',
								'tiger',
								 { PrintError => 0, RaiseError => 1, AutoCommit => 0 });
 
#  Exécuter une requête sur la table 'clients'
my $requete="SELECT Nom, prenom FROM clients";
my $statement = $db_connect->prepare($requete);
 
$statement->execute
	|| die "Impossible d'exécuter cette requête";
 
# Afficher les résultats de la requête
while (my @row=$statement->fetchrow_array)
{
   print "@row n";
}
 
# Fermer la connexion
$db_connect->disconnect();

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Comments are closed.