|
Mise à jour : 11/03/2012
515 visites depuis 7 jours,
dont 5 sur ce chapitre
classé 220/786
|

1 | INSERT INTO MARQUE (nomMarque) VALUES ('BMW') |
1 2 3 4 | my $requete = 'INSERT INTO MARQUE (nomMarque) VALUES (\'BMW\')'; $dbd->do($requete) or die 'Impossible d\'exécuter la requête : '.$dbd->errstr; |
1 2 3 4 | INSERT INTO MARQUE (nomMarque) VALUES ('BMW'); UPDATE VENTE SET numVendeur = 5 WHERE numVoiture = 15; DELETE FROM VENTE WHERE numVendeur = 5; CREATE TABLE... |
1 | UPDATE VENTE SET numVendeur = 5 WHERE numVoiture = 15 |
1 2 3 4 5 6 7 8 9 | my $requete = 'UPDATE VENTE SET numVendeur = 5 WHERE numVoiture = 15'; my $prep = $dbd->prepare($requete) or die 'Impossible de préparer la requête : '.$dbd->errstr; $prep->execute or die 'Impossible d\'exécuter la requête : '.$prep->errstr; print 'Ligne(s) modifiée(s) : '.$prep->rows; |
> perl requete.pl Ligne(s) modifiée(s) : 1 |
1 | UPDATE VENTE SET numVendeur = 2 WHERE numVendeur = 5 |
1 2 3 4 5 6 7 8 9 | my $requete = 'UPDATE VENTE SET numVendeur = 2 WHERE numVendeur = 5'; my $prep = $dbd->prepare($requete) or die 'Impossible de préparer la requête : '.$dbd->errstr; $prep->execute or die 'Impossible d\'exécuter la requête : '.$prep->errstr; print "Ligne(s) modifiée(s) : ".$prep->rows; |
> perl requete.pl Ligne(s) modifiée(s) : 2 |
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 | #!/usr/bin/perl use strict; use DBI; my $base = 'Zvoitures'; my $hote = '127.0.0.1'; my $login = 'root'; my $mdp = ''; my $dbd = DBI->connect("dbi:mysql:dbname=$base;host=$hote;",$login, $mdp) or die 'Connexion impossible à la base de données : '.DBI::errstr; my $requete = 'SELECT * FROM MARQUE'; my $prep = $dbd->prepare($requete) or die 'Impossible de préparer la requête : '.$dbd->errstr; $prep->execute or die 'Impossible d\'exécuter la requête : '.$prep->errstr; while (my($numMarque, $nomMarque) = $prep->fetchrow_array ) { print $numMarque.'. '.$nomMarque."\n"; } print 'Il existe '.$prep->rows.' marques de voitures.'; $prep->finish; $dbd->disconnect; |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | #!/usr/bin/perl use strict; use DBI; my $base = 'Zvoitures'; my $hote = '127.0.0.1'; my $login = 'root'; my $mdp = ''; my $dbd = DBI->connect("dbi:mysql:dbname=$base;host=$hote;",$login, $mdp) or die 'Connexion impossible à la base de données : '.DBI::errstr; my $requete = 'DELETE FROM VENTE WHERE numVendeur = 5'; $dbd->do($requete) or die 'Impossible d\'exécuter la requête : '.$dbd->errstr; $dbd->disconnect; |
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 | #!/usr/bin/perl use strict; use DBI; my $base = 'Zvoitures'; my $hote = '127.0.0.1'; my $login = 'root'; my $mdp = ''; my $dbd = DBI->connect("dbi:mysql:dbname=$base;host=$hote;",$login, $mdp) or die 'Connexion impossible à la base de données : '.DBI::errstr; my $requete = 'DELETE FROM VENTE WHERE numVendeur = 5'; my $prep = $dbd->prepare($requete) or die 'Impossible de préparer la requête : '.$dbd->errstr; $prep->execute or die 'Impossible d\'exécuter la requête : '.$prep->errstr; print 'Ligne(s) modifiée(s) : '.$prep->rows; $prep->finish; $dbd->disconnect; |