Ludovic ROLAND

Blog technique sur mes expériences de développeur.

Interagir avec une base de données en Perl 5 grâce au module DBI (2/7) : Création de la base de données

26 mars 2021

Afin que tout le monde travaille sur la même base de données, je vais bien entendu vous fournir une petite base d’exemple.

Plan

Présentation de la base “zVoitures”

Je vous propose d’utiliser, dans la suite de ce tutoriel, une base de données modélisant un (tout petit) concessionnaire automobile répondant au nom de zVoitures.

Avant de vous jeter sur le schéma relationnel de notre base de données, je vous invite à lire attentivement le petit texte ci-dessous, qui va vous aider à bien comprendre les différents liens entres les tables.

Notre concessionnaire possède un certain nombre de voitures. Chaque voiture réunit diverses caractéristiques telles que sa marque (Renault, Peugeot, BMW…), son modèle (Clio, 405, Z4…), ainsi que son type (break, sport, familiale, 4x4…). Chaque voiture peut être un véhicule neuf ou d'occasion, et possède donc un certain kilométrage. Pour chaque véhicule, on connaît également l'année de mise en service, ainsi que le prix auquel on souhaite le vendre.

Notre concessionnaire embauche bien évidemment des vendeurs dont on connaît le nom et le prénom.

Puisqu'il faut faire des statistiques pour comparer le "rendement" de chaque vendeur, toutes les ventes sont enregistrées. Ainsi, pour chaque vente, on connaît la date, le vendeur, la voiture et le prix final de la vente (on sait tous qu'il est toujours possible d'avoir des réductions :p ).

Les clients ne nous intéressent pas ici.

Finalement, voici le schéma relationnel que nous obtenons :

… Ou encore celui-ci, lorsque les types sont précisés :

Ne perdons pas de temps et passons à la suite !

Le jeu d’essai

Pour être certain que vous et moi commencions ce tutoriel avec la même base de données, je vous propose le petit jeu d’essai suivant :

numMarque nomMarque
1 ZeroMobile
2 Renault
3 Peugeot
4 Ferrari
5 Porsche
6 Fiat
7 Ford
8 Tata Motor
9 Smart
10 Citroen
numModele nomModele
1 Super Zero
2 Clio
3 Twingo
4 405
5 1005
6 Punto
7 Ka
8 Cayenne
9 Enzo
10 Fiesta
11 205 cc
12 Fuego
13 911
14 R19
15 R5
16 Laguna
17 C3
18 Saxo
19 Picasso
20 Clio II
numType nomType
1 Coupe - Cabriolet
2 4x4
3 Break
4 Familiale
5 Sport
6 Autre
7 Debutant
8 Citadine
numVendeur nomVendeur prenomVendeur
1 89 Wapiti
2 MANE Batte
3 BONO Jean
4 ZOR Zo
5 TUX Patrick
numVoiture numModele numType annee occasion kilometrage prixTheorique  
1 1 1 7 2010 0 0 0
2 2 2 8 1995 1 18 745 2000
3 2 3 8 2001 0 0 9 999
4 3 11 1 2009 1 0 15 999
5 4 9 5 2005 0 0 75 000
6 10 17 8 2007 1 69 748 1 500
7 5 8 5 1990 1 27 231 49 000
8 7 10 4 1983 1 231 456 499
9 2 20 8 2010 0 0 13 999
10 2 10 8 2010 0 0 13 999
11 10 19 4 1999 1 231 569 4 999
12 5 13 5 1998 0 0 35 999
13 2 15 8 1983 1 538 956 2
14 2 14 8 1989 1 214 659 999
15 7 7 8 1993 1 178 123 1 500
numVoiture numVendeur prixReel dateVente
1 5 0 2010-01-02
15 2 1 299 2010-01-06
2 4 1 999 2010-02-15
10 1 12 999 2010-03-03
13 3 1,99 2010-05-17

Pour ceux qui sont choqués par les prix, je tiens à préciser que le but n’est en aucun cas d’être réaliste ! Je n’ai aucune idée du prix des voitures.

Le script de la base “zVoitures”

La prochaine étape consiste à importer la base de données zVoiture dans MySQL.

Voici le script (en secret pour prendre moins de place à l’écran) !

-- phpMyAdmin SQL Dump
-- version 3.3.2deb1
-- http://www.phpmyadmin.net
--
-- Serveur: localhost
-- Généré le : Ven 14 Mai 2010 à 16:25
-- Version du serveur: 5.1.41
-- Version de PHP: 5.3.2-1ubuntu4



/*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */;
/*!40101 SET @OLD_CHARACTER_SET_RESULTS=@@CHARACTER_SET_RESULTS */;
/*!40101 SET @OLD_COLLATION_CONNECTION=@@COLLATION_CONNECTION */;
/*!40101 SET NAMES utf8 */;

--
-- Base de données: `Zvoitures`
--

CREATE DATABASE  `Zvoitures`;
USE  `Zvoitures`;

-- --------------------------------------------------------

--
-- Structure de la table `MARQUE`
--

CREATE TABLE IF NOT EXISTS `MARQUE` (
  `numMarque` int(11) NOT NULL AUTO_INCREMENT,
  `nomMarque` varchar(50) NOT NULL,
  PRIMARY KEY (`numMarque`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 AUTO_INCREMENT=11 ;

--
-- Contenu de la table `MARQUE`
--

INSERT INTO `MARQUE` (`numMarque`, `nomMarque`) VALUES
(1, 'ZeroMobile'),
(2, 'Renault'),
(3, 'Peugeot'),
(4, 'Ferrari'),
(5, 'Porsche'),
(6, 'Fiat'),
(7, 'Ford'),
(8, 'Tata Motor'),
(9, 'Smart'),
(10, 'Citroen');

-- --------------------------------------------------------

--
-- Structure de la table `MODELE`
--

CREATE TABLE IF NOT EXISTS `MODELE` (
  `numModele` int(11) NOT NULL AUTO_INCREMENT,
  `nomModele` varchar(50) NOT NULL,
  PRIMARY KEY (`numModele`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 AUTO_INCREMENT=21 ;

--
-- Contenu de la table `MODELE`
--

INSERT INTO `MODELE` (`numModele`, `nomModele`) VALUES
(1, 'Super Zero'),
(2, 'Clio'),
(3, 'Twingo'),
(4, '405'),
(5, '1005'),
(6, 'Punto'),
(7, 'Ka'),
(8, 'Cayenne'),
(9, 'Enzo'),
(10, 'Fiesta'),
(11, '205 cc'),
(12, 'Fuego'),
(13, '911'),
(14, 'R19'),
(15, 'R5'),
(16, 'Laguna'),
(17, 'C3'),
(18, 'Saxo'),
(19, 'Picasso'),
(20, 'Clio II');

-- --------------------------------------------------------

--
-- Structure de la table `TYPE`
--

CREATE TABLE IF NOT EXISTS `TYPE` (
  `numType` int(11) NOT NULL AUTO_INCREMENT,
  `nomType` varchar(50) NOT NULL,
  PRIMARY KEY (`numType`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 AUTO_INCREMENT=9 ;

--
-- Contenu de la table `TYPE`
--

INSERT INTO `TYPE` (`numType`, `nomType`) VALUES
(1, 'Coupe - Cabriolet'),
(2, '4x4'),
(3, 'Break'),
(4, 'Familiale'),
(5, 'Sport'),
(6, 'Autre'),
(7, 'Debutant'),
(8, 'Citadine');

-- --------------------------------------------------------

--
-- Structure de la table `VENDEUR`
--

CREATE TABLE IF NOT EXISTS `VENDEUR` (
  `numVendeur` int(11) NOT NULL AUTO_INCREMENT,
  `nomVendeur` varchar(50) NOT NULL,
  `prenomVendeur` varchar(50) NOT NULL,
  PRIMARY KEY (`numVendeur`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 AUTO_INCREMENT=6 ;

--
-- Contenu de la table `VENDEUR`
--

INSERT INTO `VENDEUR` (`numVendeur`, `nomVendeur`, `prenomVendeur`) VALUES
(1, '89', 'Wapiti'),
(2, 'MANE', 'Batte'),
(3, 'BONO', 'Jean'),
(4, 'ZOR', 'Zo'),
(5, 'TUX', 'Patrick');

-- --------------------------------------------------------

--
-- Structure de la table `VENTE`
--

CREATE TABLE IF NOT EXISTS `VENTE` (
  `numVoiture` int(11) NOT NULL,
  `numVendeur` int(11) NOT NULL,
  `prixReel` decimal(10,2) NOT NULL,
  `dateVente` date NOT NULL,
  PRIMARY KEY (`numVoiture`,`numVendeur`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

--
-- RELATIONS POUR LA TABLE `VENTE`:
--   `numVendeur`
--       `VENDEUR` -> `numVendeur`
--   `numVoiture`
--       `VOITURE` -> `numVoiture`
--

--
-- Contenu de la table `VENTE`
--

INSERT INTO `VENTE` (`numVoiture`, `numVendeur`, `prixReel`, `dateVente`) VALUES
(1, 5, 0, '2010-01-02'),
(15, 2, 1299, '2010-01-06'),
(2, 4, 1999, '2010-02-15'),
(10, 1, 12999, '2010-03-03'),
(13, 3, 1.99, '2010-05-17');

-- --------------------------------------------------------

--
-- Structure de la table `VOITURE`
--

CREATE TABLE IF NOT EXISTS `VOITURE` (
  `numVoiture` int(11) NOT NULL AUTO_INCREMENT,
  `numMarque` int(11) NOT NULL,
  `numModele` int(11) NOT NULL,
  `numType` int(11) NOT NULL,
  `annee` int(4) NOT NULL,
  `occasion` tinyint(1) NOT NULL,
  `kilometrage` int(11) NOT NULL,
  `prixTheorique` decimal(10,2) NOT NULL,
  PRIMARY KEY (`numVoiture`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 AUTO_INCREMENT=16 ;

--
-- RELATIONS POUR LA TABLE `VOITURE`:
--   `numMarque`
--       `MARQUE` -> `numMarque`
--   `numModele`
--       `MODELE` -> `numModele`
--   `numType`
--       `TYPE` -> `numType`
--

--
-- Contenu de la table `VOITURE`
--

INSERT INTO `VOITURE` (`numVoiture`, `numMarque`, `numModele`, `numType`, `annee`, `occasion`, `kilometrage`, `prixTheorique`) VALUES
(1, 1, 1, 7, 2010, 0, 0, '0'),
(2, 2, 2, 8, 1995, 1, 18745, '2000'),
(3, 2, 3, 8, 2001, 0, 0, '9999'),
(4, 3, 11, 1, 2009, 0, 0, '15999'),
(5, 4, 9, 5, 2005, 0, 0, '75000'),
(6, 10, 17, 8, 2007, 1, 69748, '1500'),
(7, 5, 8, 5, 1990, 1, 27231, '49000'),
(8, 7, 10, 4, 1983, 1, 231456, '499'),
(9, 2, 20, 8, 2010, 0, 0, '13999'),
(10, 2, 20, 8, 2010, 0, 0, '13999'),
(11, 10, 19, 4, 1999, 1, 231569, '4999'),
(12, 5, 13, 5, 1998, 0, 0, '35999'),
(13, 2, 15, 8, 1983, 1, 538956, '2'),
(14, 2, 14, 8, 1989, 1, 214659, '2'),
(15, 7, 7, 8, 1993, 1, 178123, '1500');

Importation dans MySQL

Nous y sommes presque. Il reste encore une étape avant de commencer à coder nos premières requêtes SQL !

Cette dernière étape consiste tout simplement à importer dans MySQL le code que je vous ai donné. Cette étape n’a rien de bien compliqué, il suffit de suivre les quelques explications qui suivent !

Commencez par cliquer dans MySQL sur le logo de la petite maison dans l’onglet de gauche. Cliquez ensuite sur l’onglet “SQL” comme sur la capture ci-dessous :

Collez le script donné précédemment dans l’espace prévu à cet effet, puis cliquez sur le bouton “Exécuter” en bas de page : Image utilisateur

Vous devriez alors avoir un message vous indiquant que tout s’est correctement déroulé ! Si ce n’est pas le cas, je ne peux que vous encourager à faire un nouveau copier-coller du script !

Maintenant que les préparatifs sont (enfin) terminés, nous pouvons nous attaquer à la programmation en Perl !

Commentaires