MySQLDatabases/fr: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		# Introduction
2	2
3	3		Cette page expliquera comment se connecter à un serveur [[mysql/fr\|MySQL]] en utilisant des composants visuels.
4	4
5	5		> Note: Cette page a été écrite il y a longtemps et peut être dépassée. Aussi, la plupart des concepts décrits ici ne sont pas spécifiques à MySQL mais s'appliquent à tous les bases de données SQLDB. Donc suivre les tutoriels SQLDB ci-dessous pourrait être plus facile.
6	6
7	7		En complément des tutoriels listés en bas de cette de page, voir aussi [[mysql/fr\|mysql/fr#Tutoriels et exemple de code]] pour plus de tutoriels qui sont écrits depuis longtemps aussi
8	8
9	9		Dans le [[Lazarus Database Tutorial/fr\|tutoriel de base de données]] nous avons vu une première tentative de connexion à un serveur MySQL. Nous n'avons utilisé aucun composant, qu'il soit visuel ou non-visuel, à ce moment là. Cette page expliquera comment se connecter à un serveur MySQL d'une façon (peut-être) plus facile.
10	10
11	11		# Composants disponibles
12	12
13	13		## Composants SQLdb
14	14
15	15		Dans les versions même vaguement récentes de Lazarus, les composants SQLDB sont installés par défaut.
16	16
17		-	~~<figure>~~
18		-	~~<img src="sqldbcomponents.png‎" title="sqldbcomponents.png‎" />~~
19		-	~~<figcaption>sqldbcomponents.png‎</figcaption>~~
20		-	~~</figure>~~
	17	+	![](/wiki-images/c/c5/Sqldbcomponents.png%E2%80%8E)
21	18
22	19		Dans l'onglet SQLDB, vous trouverez :
23	20
24	21		- Divers connecteurs, y compris [[TMySQL40Connection/fr\|TMySQL40Connection]]..[[TMySQL56Connection/fr\|TMySQL56Connection]] (ou même des versions plus récentes) et le plus polyvalent de tous [[TSQLConnector/fr\|TSQLConnector]] qui pourrait charger n'importe quel pilote mysql/oracle/postgres/mssql/interbase/firebird/odbc.
25	22		- [[TSQLQuery/fr\|TSQLQuery]]
26	23
27	24		Si l'onglet SQLDB manque, consultez la page [[Install Packages/fr\|Installation des paquets]] pour le "Comment-faire de l'installation" ('Install howto').
28	25
29	26		# Explication des composants utilisés
30	27
31	28		## TMySQLConnection
32	29
33	30		TMySQLConnection est utilisé pour stocker des paramètres pour se connecter au serveur de base de données. Il vous permet de configurer l'hôte auquel vous vous connectez ainsi que l'userid et le password à utiliser dans la connexion. Une autre propriété de TMySQLConnection est utilisée pour indiquer la base de données que vous voulez utiliser. Le 'LoginPrompt' n'est pas encore fonctionnel, donc assurez-vous qu'à côté des HostName et DatabaseName les propriétés UserName et Password soient bien renseignées avant de tenter d'ouvrir une connexion.
34	31
35	32		Assurez-vous d'utiliser TSQLTransaction dans votre MySQLConnection en renseignant la propriété Transaction ou bien vous n'aurez pas la possibilité d'ouvrir une SQLQuery.
36	33
37	34		Note. Dans les dernières versions SVN de Lazarus vous trouverez 3 composants MySQLConnection. Il y a TMySQL40Connection, TMySQL41Connection et TMySQL50Connection. Assurez-vous d'utiliser la version correcte correspondant à votre serveur. Donc si vous utilisez un MySQL 4.1 utilisez un TMySQL41Connection.
38	35
39	36		## TSQLTransaction
40	37
41	38		Une SQLTransaction est nécessaire pour certains travaux internes. Une SQLTransaction est automatiquement avtivée quand vous ouvrez un dataset l'utilisant. En fermant une connexion désactive également la transaction associée et ferme tous les datasets l'utilisant.
42	39
43	40		## TSQLQuery
44	41
45	42		TSQLQuery est utilisé pour exécuter les commandes SQL sur le serveur. Vous pouvez récupérer des données en positionnant le SQL à quelque commande SELECT et en l'appelant avec la méthode Open. Ou vous pouvez manipuler les données en faisant des INSERT, DELETE or UPDATE. Dans le dernier cas, vous ne devez pas utiliser la méthode Open mais la méthode Execute.
46	43
47	44		## TDataSource
48	45
49	46		Un DataSource met à disposition la connexion entre les composants 'data aware' visibles comme DBEdit, DBGrid et un dataset. Il permet aux données d'être disponibles pour l'affichage par les composants 'data aware'. Une datasource ne peut être connectée qu'à un seul dataset à la fois mais il peut y avoir plusieurs composants 'data aware' connectés dessus.
50	47
51	48		## TDBGrid
52	49
53	50		Un DBGrid peut être utilisé pour présenter les données récupérées par un Dataset. Le DBGrid a besoin d'une datasource pour se connecter à un dataset. Quand le dataset est ouvert, le DBgrid sera automatiquement peuplé avec les données.
54	51
55	52		# Notre programme
56	53
57	54		## Les bases
58	55
59	56		Nous essaierons de réaliser un programme basé sur celui [[Lazarus Database Tutorial/nl\|here (in Dutch)]] qui est basé sur [[Lazarus Database Tutorial\|original (in English)]] par Chris.
60	57
61	58		## La fiche principale
62	59
63	60		Nous utiliserons le même écran principal et construirons toutes les fonctionnalités à partir de rien :) Comme vous le verrez il y a ici beaucoup de choses en moins à prendre en compte, parce que les composants nous débarrassent réellement du plus gros du travail! Donc commençons par faire un écran qui ressemble à ceci.\
64		-	\
	61	+
65	62		![](/wiki-images/2/28/Trymysql.png)\
66	63		Depuis l'onglet SQLdb-tab plaçons un TMySQLConnection, un TSQLTransaction et un TSQLQuery ![](/wiki-images/6/6d/Components.png) sur cette fiche. Ne changez pas les noms par défaut donnés à ces composants. Sauf pour le composant Connection. Pour que cet article puisse s'appliquer à toutes les versions de MySQL, renommez votre MySQL??Connection composant: MySQLConnection1 Nous avons à lier ces composants ensemble pour qu'ils puissent faire leur travail. Dons les proporiétés suivantes ont à être configurées:
67	64
68	65		\| \| \| \|
69	66		\|------------------\|---------------\|------------------\|
70	67		\| Composant \| Propriété \| Valeur \|
71	68		\| MySQLConnection1 \| Transaction \| SQLTransaction1 \|
72	69		\| SQLTransaction1 \| Database \| MySQLConnection1 \|
73	70		\| SQLQuery1 \| Database \| MySQLConnection1 \|
74	71		\| SQLQuery1 \| Transaction \| SQLTransaction1 \|
75	72
76	73		La propriété Transaction de SQLQuery1 sera automatiquement configurée si vous avez configuré la propriété Transaction de MySQLConnection1 en premier. Quand vous aurez configuré ceci, vous noterez que SQLTransaction1.Database a pour valeur MySQLConnection1.
77	74
78	75		Comme dit plus tôt: Assurez-vous que vous utilisez le composant Connection correct pour la version de votre serveur MySQL.
79	76
80	77		## Le code
81	78
82	79		Comme vous pouvez voir dans la capture d'écran, les seuls boutons disponibles au démarrage du programme sont "Connect to server" et "Exit". Pour les autres boutons, il nous faut plus d'information donc ils sont désactivés. Nous pouvons décider de désactiver "Connect to Server" jusqu'à ce que l'hôte, le nom d'utilisateur et le mot de passe soit renseignés. Mais j'en ai décidé autrement car notre utilisateur pourrait penser "Rien ne semble possible, donc partons !" :)
83	80
84	81		Avant que je ne commence à vous donner du code, je souligne qu'il pourrait y avoir plus de gestion des exceptions dans le code. Les sections critiques devraient être placées dans des construction \[code\]try ... finally\[/code\] ou \[code\]try ... except\[/code\].
85	82
86	83		### Connexion à un serveur
87	84
88	85		La première chose que nous devons faire est de se connecter à notre serveur. Comme lors de la connexion, nous ne savons pas quelles bases de données sont disponibles sur le serveur, nous demanderons une liste de bases de données lors de la connexion. Cependant, il y a un hic, pour établir la connexion, nous devons entrer un DatabaseName valide dans les propriétés du MySQLConnection. Vous verrez dans le code que j'utilise la base de données "mysql". Cette base de données est utilisée par mysql pour quelque ménage donc elle sera toujours là.
89	86
90	87		``` pascal
91	88		procedure TFormTryMySQL.ConnectButtonClick(Sender: TObject);
92	89		begin
93	90		// Check if we have an active connection. If so, let's close it.
94	91		if MySQLConnection1.Connected then CloseConnection(Sender);
95	92		// Set the connection parameters.
96	93		MySQLConnection1.HostName := HostEdit.Text;
97	94		MySQLConnection1.UserName := UserEdit.Text;
98	95		MySQLConnection1.Password := PasswdEdit.Text;
99	96		MySQLConnection1.DatabaseName := 'mysql'; // MySQL is allways there!
100	97		ShowString('Opening a connection to server: ' + HostEdit.Text);
101	98		MySQLConnection1.Open;
102	99		// First lets get a list of available databases.
103	100		if MySQLConnection1.Connected then begin
104	101		ShowString('Connected to server: ' + HostEdit.Text);
105	102		ShowString('Retrieving list of available databases.');
106	103		SQLQuery1.SQL.Text := 'show databases';
107	104		SQLQuery1.Open;
108	105		while not SQLQuery1.EOF do begin
109	106		DatabaseComboBox.Items.Add(SQLQuery1.Fields[0].AsString);
110	107		SQLQuery1.Next;
111	108		end;
112	109		SQLQuery1.Close;
113	110		ShowString('List of databases received!');
114	111		end;
115	112		end;
116	113		```
117	114
118	115		La première chose que nous faisons est de vérifier si nous sommes connecté à un serveur, si c'est le cas alors nous appelons une méthode privée "CloseConnection". Dans cette méthode, un peu plus de ménage est fait, comme désactiver les boutons et nettoyer les Combobox et les Listbox. Ensuite, nous définissons les paramètres nécessaires pour se connecter au serveur.
119	116
120	117
121	118		Tout au long de notre programme, vous pouvez voir des appels à ShowString. Cette méthode ajoute une ligne au mémo sur notre formulaire qui agit comme une sorte de journal.
122	119
123	120		Avec les paramètres définis, nous pouvons nous connecter au serveur. ce qui est fait en appelant :
124	121
125	122		``` pascal
126	123		MySQLConnection1.Open;
127	124		```
128	125
129	126		Dans une application propre, il faudrait placer un bloc de gestion d'exception pour montrer à l'utilisateur un message amical si la connexion a échoué. Quand nous sommes connectés, nous voulons obtenir la liste des bases de données du serveur. Pour cela, nous employons un TSQLQuery en précisant dans sa propriété SQL l'ordre "SHOW DATABASES" qui permet d'obtenir la liste des bases de données. Il suffit ensuite d'ouvrir la requête :
130	127
131	128		``` pascal
132	129		SQLQuery1.Open;
133	130		```
134	131
135	132		L'ensemble résultat d'une requête peut être examiné à travers la propriété Fields. Comme vous pouvez le voir, nous itérons les enregistrements en appelant :
136	133
137	134		``` pascal
138	135		SQLQuery1.Next;
139	136		```
140	137
141	138		Quand nous avons ajouté toutes les bases de données disponibles dans notre Combobox, nous fermons à nouveau le SQLQuery.
142	139
143	140		### Sélection d'une base de données
144	141
145	142		Si l'utilisateur sélectionne une base de données dans le DatabaseComboBox, nous activons le bouton "Select Database". Dans l'événement OnClick du bouton, nous définissons la propriété DatabaseName du composant MySQLConnection1, et interrogeons la liste des tables. La dernière instruction de la procédure active le bouton "Open Query" donc l'utilisateur peut entrer une requête dans l'EditBox "Command" et l'envoyer au serveur.
146	143
147	144		``` pascal
148	145		procedure TFormTryMySQL.SelectDBButtonClick(Sender: TObject);
149	146		begin
150	147		// A database has been selected so lets get the tables in it.
151	148		CloseConnection(Sender);
152	149		if DatabaseComboBox.ItemIndex <> -1 then begin
153	150		with DatabaseComboBox do
154	151		MySQLConnection1.DatabaseName := Items[ItemIndex];
155	152		ShowString('Retreiving list of tables');
156	153		SQLQuery1.SQL.Text := 'show tables';
157	154		SQLQuery1.Open;
158	155		while not SQLQuery1.EOF do begin
159	156		TableComboBox.Items.Add(SQLQuery1.Fields[0].AsString);
160	157		SQLQuery1.Next;
161	158		end;
162	159		SQLQuery1.Close;
163	160		ShowString('List of tables received');
164	161		end;
165	162		OpenQueryButton.Enabled := True;
166	163		end;
167	164		```
168	165
169	166		MySQL a une commande spéciale pour obtenir la liste des tables, comparable à celle pour obtenir les bases de données, "Show tables". Le résultat de cette requête est traité de la même façon comme une liste de bases de données et toutes les tables sont ajoutées au TableComboBox. Vous pourriez vous demander pourquoi nous n'ouvrons pas la connexion à nouveau avant d'ouvrir la requête ? Eh bien, ceci est fait automatiquement (si nécessaire) quand nous activons le SQLQuery.
170	167
171	168		### Champs dans une table
172	169
173	170		Dans MySQL, vous pouvez encore utiliser une forme de "SHOW" pour obtenir les champs dans une table. Dans ce cas, "SHOW COLUMNS FROM \<tablename\>". Si l'utilisateur choisit une valeur dans le TableComboBox, le OnChangeEvent de cette ComboBox est déclenché, ce qui remplit le FieldListbox.
174	171
175	172		``` pascal
176	173		procedure TFormTryMySQL.TableComboBoxChange(Sender: TObject);
177	174		begin
178	175		FieldListBox.Clear;
179	176		SQLQuery1.SQL.Text := 'show columns from ' + TableComboBox.Text;
180	177		SQLQuery1.Open;
181	178		while not SQLQuery1.EOF do begin
182	179		FieldListBox.Items.Add(SQLQuery1.Fields[0].AsString);
183	180		SQLQuery1.Next;
184	181		end;
185	182		SQLQuery1.Close;
186	183		end;
187	184		```
188	185
189	186		Aussi bien que pour les noms des champs, l'ensemble résultat contient de l'information sur le type des champs, si le champ fait partie de la clé, si le Null est permis et quelques autres encore.
190	187
191	188		### Montrer les données
192	189
193	190		Comm nous le disions, nous utiliserons des composants pour nous connecter à la base de données, utilisons alors des composants pour montrer les données. Nous utiliserons une seconde fiche pour montrer une grille avec les données demandées par l'utilisateur. cette fiche sera montrée quand l'utilisateur aura entré un ordre SQL dans l'EditBox "Command" et ensuite cliqué sur le bouton "Open Query". Ceci est le gestionnaire de l'événement OnClick :
194	191
195	192		``` pascal
196	193		procedure TFormTryMySQL.OpenQueryButtonClick(Sender: TObject);
197	194		begin
198	195		ShowQueryForm := TShowQueryForm.Create(self);
199	196		ShowQueryForm.Datasource1.DataSet := SQLQuery1;
200	197		SQLQuery1.SQL.Text := CommandEdit.Text;
201	198		SQLQuery1.Open;
202	199		ShowQueryForm.ShowModal;
203	200		ShowQueryForm.Free;
204	201		SQLQuery1.Close;
205	202		end;
206	203		```
207	204
208	205		La fiche ShowQueryForm ressemble à ceci :
209	206
210		-	~~<center>~~
211		-
212		-	~~<figure>~~
213		-	~~<img src="Mysqlshow.png" title="Mysqlshow.png" />~~
214		-	~~<figcaption>Mysqlshow.png</figcaption>~~
215		-	~~</figure>~~
216		-
217		-	~~</center>~~
	207	+	![](/wiki-images/4/47/Mysqlshow.png)
218	208
219	209		et contient un :
220	210
221	211		\| \| \| \|
222	212		\|-------------\|------------\|-------------\|
223	213		\| TPanel \| Align \| alBottom \|
224	214		\| TDataSource \| \| \|
225	215		\| TDBGrid \| Align \| alClient \|
226	216		\| \| DataSource \| DataSource1 \|
227	217		\| TButton \| Caption \| Close \|
228	218
229	219		Le bouton est placé que le panneau. Ce qui se passe dans le OnClick du bouton "Open Query" est ceci : en premier, nous créons une instance de TShowQueryForm. En second, nous définissons la propriété DataSet dans le DataSource par SQLQuery1. Ensuite nous définissons l'ordre SQL du SQLQuery avec ce qu'a entré l'utilisateur dans l'EditBox "Command" et l'ouvrons. Puis la fiche ShowQueryForm est ouverte modalement, ce qui veut dire qu'elle aura le focus de notre application jusqu'à ce qu'elle soit fermée. Quand elle est fermée, nous la libérons et fermons SQLQuery1 à nouveau.
230	220
231	221		# Sources
232	222
233	223		Les sources de ce projet peuvent être téléchargées depuis ce [site](http://prdownloads.sourceforge.net/lazarus-ccr/mysql_demo_20050408.tar.gz?download).\
234	224		Pour plus de projets de démo, voyez dans [sourceforge](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=148359).
235	225
236	226		# Voir aussi
237	227
238	228		- [[mysql/fr\|mysql]]
239	229
240	230		---
241	231		From the Free Pascal wiki, page "MySQLDatabases/fr", as it stood on 2020-02-21 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history