Lazarus Database Tutorial/fr: what changed

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

Old	New		Line
1	1		## Aperçu
2	2
3	3		Ce tutoriel à pour but de faire fonctionner Lazarus avec diverses bases de données existantes.
4	4
5	5		A son installation, Lazarus permet l'accès à plusieurs bases de données. Cependant le développeur doit installer les paquets adéquats pour chacune d'elles. Vous pouvez avoir accès à la base de données soit par du code, soit en déposant des composants sur une fiche. Les composants données représentent des champs et sont connectés en faisant pointer la propriété DataSource vers un TDataSource. Datasource représente une table et est connecté au composant de base de données (exemples : TPSQLDatabase, TSQLiteDataSet) en configurant la propriété DataSet. On trouve les composants contrôle de données dans le tab "Data Controls". Le composant Datasource et ceux contrôlant les bases de données sont situés dans l'onglet "Data Access".
6	6
7	7		## Lazarus et MySQL
8	8
9	9		### Faire fonctionner MySQL dans Linux ou Windows
10	10
11	11		Suivre les instructions dans le manuel de l'utilisateur de MySQL. Soyez sûr que le deamon mysqld fonctionne, et que tout les utilisateurs potentiels (incluant root, mysql, vous-même et n'importe qui d'autre pourrait le vouloir) ont autant de privilèges qu'ils ont besoin, depuis autant de serveurs centraux que cela pourrait être nécessaire(incluant 'localhost', le nom du serveur local, n'importe quel autre serveur sur votre réseau) aussi loin que c'est conforme avec la sécurité. Il est préférable que tous les utilisateurs incluant root aient des mots de passe. Tester l'action du système de base de donnée en utilisant les exemples donnés dans le manuel, et vérifier que tous les utilisateurs ont réellement des accès fiables.
12	12
13	13		### Faire fonctionner MySQL pour FPC en mode texte
14	14
15		-	Il y a un répertoire avec un exemple de programme dans \$(fpc<b>src</b>dir)/packages/base/mysql/. Vous pouvez trouver le répertoire source de fpc dans lazarus: menu Configurations-\> Options d'environment... -\> Onglet Fichier -\> Répertoire des sources de FPC. Les chemins possibles pour le répertoire mysql sont /usr/share/fpcsrc/packages/base/mysql/ (rpm install) ou C:\lazarus\fpcsrc\packages\base\mysql\\ (windows). Ce répertoire contient aussi les unités mysql.pp, mysql_com.pp et mysql_version.pp. Avant d’exécuter le script de test, vous devez créer une base de données appelée testdb: faire ceci en vous connectant dans le moniteur mysql (comme root avec tous les privilèges ) et en émettant la commande SQL suivante
	15	+	Il y a un répertoire avec un exemple de programme dans \$(fpcsrcdir)/packages/base/mysql/. Vous pouvez trouver le répertoire source de fpc dans lazarus: menu Configurations-\> Options d'environment... -\> Onglet Fichier -\> Répertoire des sources de FPC. Les chemins possibles pour le répertoire mysql sont /usr/share/fpcsrc/packages/base/mysql/ (rpm install) ou C:\lazarus\fpcsrc\packages\base\mysql\\ (windows). Ce répertoire contient aussi les unités mysql.pp, mysql_com.pp et mysql_version.pp. Avant d’exécuter le script de test, vous devez créer une base de données appelée testdb: faire ceci en vous connectant dans le moniteur mysql (comme root avec tous les privilèges ) et en émettant la commande SQL suivante
16	16
17	17		`CREATE DATABASE testdb;`
18	18
19	19		ensuite soyez sur que tous les utilisateurs appropriés ont les privilèges d'accès appropriés
20	20
21	21		`GRANT ALL ON testdb TO johnny-user IDENTIFIED BY 'johnnyspassword'; `
22	22
23	23		Il y a un script appelé mkdb que vous devriez maintenant essayer d'exécuter :
24	24
25	25		`sh ./mkdb`
26	26
27	27		Ceci échouera probablement , car le système ne permettra pas à un utilisateur anonyme d'accéder à la base de données . Aussi changer script en utilisant éditeur de sorte que la ligne appelant mysql lise:
28	28
29	29		`mysql -u root -p ${1-testdb} << EOF >/dev/null`
30	30
31	31		et essayez de l'exécuter à nouveau, en entrant votre mot de passe quand on vous y invite. Avec de la chance vous pourriez être parvenus à créer la base de donnée de test: testez le (alors que vous êtes logué dans le moniteur de mysql) en émettant la commande mysql
32	32
33	33		`select * from FPdev;`
34	34
35	35		Vous devriez voir une table listant ID, username et email address de certains des développeurs de FPC .
36	36
37	37		Maintenant essayez d'exécuter le programme de test testdb.pp (ceci peut devoir être compilé , et échouera presque certainement sur la première tentative !!).
38	38
39	39		J'ai constaté que le programme ne pourrait pas se connecter to mysql pour plusieurs raisons :
40	40
41	41		- Mon système (SuSE Linux v9.0) installe mysql v4.0.15, pas la version 3 pour laquelle le paquet a été conçu .
42	42
43	43		- Le programme doit avoir des noms d'utilisateur et des mots de passe pour obtenir l'accès à la base de données .
44	44
45	45		- Le compilateur doit savoir où trouver les bibliothèques de mysql (SI VOUS N'AVEZ PAS INSTALLÉ LES BIBLIOTHÈQUES DE DÉVELOPPEMENT DE MYSQL , FAITES LE MAINTENANT!)
46	46
47	47		J'ai créé une copie de testdb.pp appelé trydb.pp, plutôt que d'éditer l'original - ceci signifie que les fichiers originaux restent toujours fixes dans les mises à jour suivantes CVS. J'ai également copié les fichiers trouvés dans le sous-répertoire mysql/ver40/ dans le sous répertoire principal mysql/ , en les renommant mysql_v4.pp, mysql_com_v4.pp et mysql_version_v4.pp, Soyez sur de renommer les unités dans chaque fichier également. J'ai changé l'usage des instructions dans trydb.pp pour utiliser
48	48
49	49		`uses mysql_v4`
50	50
51	51		et l'instruction dans mysql_v4.pp pour
52	52
53	53		`use mysql_com_v4`
54	54
55	55		J'ai ajouté une ligne à /etc/fpc.cfg pour pointer vers mes librairies:
56	56
57	57		`-Fl/lib;/usr/lib`
58	58
59	59		L'étape suivante pourrait ne pas être nécessaire si les librairies de développement sont installés car les liens seront créés pour toi , mais il ne blesse jamais de vérifier . J'ai dû trouver le vrai nom de la librairie mysqlclint dans le répertoire /usr/lib et dans mon cas j'ai du émettre la commande shell:
60	60
61	61		`ln -s libmysqlclient.so.12.0.0 lmysqlclient`
62	62
63	63		pour faire un lien symbolique permettant à FPC de trouver la bibliothèque . Pour de bonne mesure J'ai également créé le lien
64	64
65	65		`ln -s libmysqlclient.so.12.0.0 mysqlclient`
66	66
67	67		et placé des liens semblables dans autres répertoires variés: pas strictement nécessaire , mais juste au cas où ...! Quelques utilisateurs pourraient devoir ajouter le lien suivant :
68	68
69	69		`ln -s libmysqlclient.so.12.0.0 libmysqlclient.so`
70	70
71	71		J'ai modifié trydb.pp pour inclure les détails d'utilisateur, au commencement en ajoutant un serveur central(host), l'utilisateur et le mot de passe comme constantes:
72	72
73	73		`const`\
74	74		` host : Pchar= 'localhost';`\
75	75		` user : Pchar= 'myusername';`\
76	76		` passwd: Pchar = 'mypassword';`
77	77
78	78		J'ai également trouvé que je ne pourrais pas me connecter à mysql en utilisant l'appel à mysql_connect() , mais j'ai dû employer mysql_real_connect() lequel a beaucoup plus de paramètres. Pour compliquer des choses un peu plus, le nombre de paramètres semble avoir changé entre la version 3 (où il y en a sept) et la version 4 (où il y en a huit). Avant d'utiliser mysql_real_connect J'ai dû employer mysql_init() lequel n'est pas trouvé dans le mysql.pp d'origine mais est trouvé dans mysql_v4.pp.
79	79
80	80		Ainsi le code pour se connecter à la base de données est maintenant :
81	81
82	82		`{ a few extra variables}`\
83	83		`var`\
84	84		` alloc : PMYSQL;`\
85	85		` `\
86	86		`{main program fragment}`\
87	87		` `\
88	88		`begin`\
89	89		` if paramcount=1 then`\
90	90		` begin`\
91	91		` Dummy:=Paramstr(1)+#0;`\
92	92		` DataBase:=@Dummy[1];`\
93	93		` end;`\
94	94		` `\
95	95		`Writeln ('Allocating Space...');`\
96	96		` alloc := mysql_init(PMYSQL(@qmysql));`\
97	97		` Write ('Connecting to MySQL...');`\
98	98		` sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);`\
99	99		` if sock=Nil then`\
100	100		` begin`\
101	101		` Writeln (stderr,'Couldn''t connect to MySQL.');`\
102	102		` Writeln (stderr, 'Error was: ', mysql_error(@qmysql));`\
103	103		` halt(1);`\
104	104		` end;`\
105	105		` Writeln ('Done.');`\
106	106		` Writeln ('Connection data:');`\
107	107		`{$ifdef Unix}`\
108	108		` writeln ('Mysql_port : ',mysql_port);`\
109	109		` writeln ('Mysql_unix_port : ',mysql_unix_port);`\
110	110		`{$endif}`\
111	111		` writeln ('Host info : ',mysql_get_host_info(sock));`\
112	112		` writeln ('Server info : ',mysql_stat(sock));`\
113	113		` writeln ('Client info : ',mysql_get_client_info);`\
114	114		` `\
115	115		` Writeln ('Selecting Database ',DataBase,'...');`\
116	116		` if mysql_select_db(sock,DataBase) < 0 then`\
117	117		` begin`\
118	118		` Writeln (stderr,'Couldn''t select database ',Database);`\
119	119		` Writeln (stderr,mysql_error(sock));`\
120	120		` halt (1);`\
121	121		` end;`\
122	122		`{... as original contents of testdb.pp}`
123	123
124	124		Maintenant - prêt pour commencer à compiler trydb.pp?
125	125
126	126		` fpc trydb`
127	127
128	128		succès ! Exécutez le maintenant :
129	129
130	130		` ./trydb`
131	131
132	132		whoopee! J'ai obtenu le listing des développeurs de FPC !
133	133
134	134		Quelques améliorations supplémentaires : rendre l'entrée des détails d'utilisateur et les commandes mysql interactives , en utilisant des variables plutôt que des constantes , et en autorisant plusieurs commandes SQL a être entrées, jusqu'à ce que nous émettions la commande quit: voir le [[Lazarus Database Tutorial/TryDbpp\|listing complet de programme]], où les détails d'utilisateur sont entrés via la console , et le programme entre dans une boucle où les commandes SQL sont entrés depuis la console(sans point-virgule terminal ) et les réponses sont imprimées , jusqu'à ce que 'quit' soit entré au clavier .
135	135
136	136		Voir [[Lazarus Database Tutorial/SampleListing\|Exemple de listing sur la console]].
137	137
138	138		### Se connecter à MySQL à partir d'une application Lazarus
139	139
140	140		Ce tutoriel montre comment connecter Lazarus à la base de donnée MySQL, et exécuter des requêtes simples , en employant seulement les composants de base de Lazarus; il n'utilise aucun composants Data Aware, mais illustre les principes d' interfaçage à la base de données .
141	141
142	142		NB : Les paquets ZeosLib ou SqlDb fournissent des composants qui permettent d'utiliser MySql bien plus simplement qu'avec la méthode proposée ci-dessous.
143	143
144	144		Créer un nouveau projet dans Lazarus:
145	145
146	146		`Project -> New Project -> Application`
147	147
148	148		Une nouvelle forme générée automatiquement apparaîtra.
149	149
150	150		Agrandir la forme pour remplir environ la moitié de l'écran , renommer alors la forme et son Caption avec 'TryMySQL'.
151	151
152	152		A partir de l'onglet de composants standard placer trois boites d'édition sur le côté gauche supérieur de la fiche, et immédiatement au-dessus de chaque boite placez un label . Changer les noms et les captions en 'Host' (et HostLLabel,HostEdit), 'UserName' (et UserLabel, UserEdit) et 'Password' (avec PasswdLabel et PasswdEdit). Alternativement vous pourriez employer les composants LabelledEdit à partir de l'onglet additionnel.
153	153
154	154		Sélectionnez la boite d'édition Passwd et trouver la propriété PasswordChar: changer ceci en * ou un autre caractère, de sorte que quand vous saisissez un mot de passe les caractères n'apparaissent pas sur votre écran mais se font écho par une série de *s. Assurer vous que la propriété Text de chaque boite d'édition est blanche.
155	155
156	156		Placer maintenant une autre boite Edit et un label au dessus du côté droit de la fiche. Changer le label en 'Enter SQL Command' et nommez le CommandEdit.
157	157
158	158		Placer trois boutons sur la fiche : deux du côté gauche dessous les boites Edit, et un du côté droit dessous la boite de commande.
159	159
160	160		Etiqueter les boutons du côté gauche 'Connect to Database' (ConnectButton) et 'Exit' (ExitButton) et celui du côté droit 'Send Query' (QueryButton).
161	161
162	162		Placer un grand Memo Box étiqueté et nommé 'Results' (ResultMemo) sur la droite en bas , pour remplir majeure partie de l'espace disponible. Trouver sa propriété ScrollBars et choisir ssAutoBoth de sorte que les barres de défilement apparaissent automatiquement si le texte remplit l'espace. Rendre la propriété WordWrap à la valeur True.
163	163
164	164		Placer une barre de Status (à partir de l'onglet de Contrôle commun) au bas de la fiche, et appeler sa propriété SimpleText 'TryMySQL'.
165	165
166	166		Une copie d'écran de la fiche peut être vue ici: [Exemple de copie d'écran Mysql](http://lazarus-ccr.sourceforge.net/kbdata/trymysqldb.png)
167	167
168	168		Maintenant nous devons écrire quelques procédures de traitement d’événement.
169	169
170	170		Les trois boites d'édition du côté gauche sont pour l'entrée du hostname , du username et mot de passe . Quand ceux-ci ont été entrés de manière satisfaisante, le bouton de connexion est cliqué. Le traitement de l’événement OnCLick pour ce bouton est basé sur une partie du programme FPC en mode texte ci-dessus .
171	171
172	172		Les réponses de la base de données ne peut pas maintenant être écrites en employant les instructions Pascal write ou writeln: plutôt, les réponses doivent être converties en chaînes de caractères et affiché dans la boîte Mémo . Considérant que les instructions Pascal write et writeln sont capable d'exécuter beaucoup de type conversion 'à la volée', l'utilisation d'une boîte Mémo pour la sortie de textes rend nécessaire la conversion explicite des types de données à la forme correcte de chaînes de caractères , ainsi les variables Pchar doivent être converties en chaînes de caractères en utilisant StrPas , et les nombres entiers doivent être convertis avec IntToStr.
173	173
174	174		Les chaînes de caractères sont affichées dans la boite Mémo en utilisant
175	175
176	176		`procedure ShowString (S : string);`\
177	177		`(* display a string in a Memo box *)`\
178	178		`begin`\
179	179		` trymysqlForm1.ResultsMemo.Lines.Add (S)`\
180	180		`end;`
181	181
182	182		L'évent hantler ConnectButton devient ainsi:
183	183
184	184		`procedure TtrymysqlForm1.ConnectButtonClick(Sender: TObject);`\
185	185		`(* Connect to MySQL using user data from Text entry boxes on Main Form *)`\
186	186		`var strg: string;`\
187	187		` `\
188	188		`begin`\
189	189		` `\
190	190		` dummy1 := trymysqlForm1.HostEdit.text+#0;`\
191	191		` host := @dummy1[1];`\
192	192		` dummy2 := trymysqlForm1.UserEdit.text+#0;`\
193	193		` user := @dummy2[1] ;`\
194	194		` dummy3 := trymysqlForm1.PasswdEdit.text+#0;`\
195	195		` passwd := @dummy3[1] ;`
196	196
197	197		` alloc := mysql_init(PMYSQL(@qmysql));`\
198	198		` sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);`\
199	199		` if sock=Nil then`\
200	200		` begin`\
201	201		` strg :='Couldn''t connect to MySQL.'; showstring (strg);`\
202	202		` Strg :='Error was: '+ StrPas(mysql_error(@qmysql)); showstring (strg);`\
203	203		` end`\
204	204		` else`\
205	205		` begin`\
206	206		` trymysqlForm1.statusBar1.simpletext := 'Connected to MySQL';`\
207	207		` strg := 'Now choosing database : ' + database; showstring (strg);`\
208	208		`{$ifdef Unix}`\
209	209		` strg :='Mysql_port : '+ IntToStr(mysql_port); showstring (strg);`\
210	210		` strg :='Mysql_unix_port : ' + StrPas(mysql_unix_port); showstring (strg);`\
211	211		`{$endif}`\
212	212		` Strg :='Host info : ' + StrPas(mysql_get_host_info(sock));`\
213	213		` showstring (strg);`\
214	214		` Strg :='Server info : ' + StrPas(mysql_stat(sock)); showstring (strg);`\
215	215		` Strg :='Client info : ' + Strpas(mysql_get_client_info); showstring (strg);`\
216	216		` `\
217	217		` trymysqlForm1.statusbar1.simpletext := 'Selecting Database ' + DataBase +'...';`\
218	218		` if mysql_select_db(sock,DataBase) < 0 then`\
219	219		` begin`\
220	220		` strg :='Couldn''t select database '+ Database; ShowString (strg);`\
221	221		` Strg := mysql_error(sock); ShowString (strg);`\
222	222		` end`\
223	223		` end;`\
224	224		`end;`
225	225
226	226		La boîte de textes du côté droit permet l'entrée d'instructions SQL, sans point-virgule terminal ; quand vous êtes satisfaits de son contenu ou syntaxe , le bouton SendQuery est appuyé , et la requête est traitée , avec les résultats écrit dans la boîte ResultsMemo .
227	227
228	228		Le traitement de l'évènement SendQuery est de nouveau basé sur la version FPC en mode texte, sauf que de nouveau un type de conversion explicite doit être fait avant que les châines de caractère soient montrées dans la boîte .
229	229
230	230		Une différence avec le programme FPC en mode texte est que si une condition d'erreur est détectée, le programme ne stoppe pas et MySQL n'est pas fermé; au lieu de cela, la commande est retournée à la fiche principale et une occasion est donnée de corriger l'entrée avant la commande ne soit resoumis. L'application existe finalement(avec la fermeture de MySQL ) quand le bouton de sortie est cliqué .
231	231
232	232		Le code pour SendQuery suit :
233	233
234	234		`procedure TtrymysqlForm1.QueryButtonClick(Sender: TObject);`\
235	235		`var`\
236	236		` dumquery, strg: string;`\
237	237		`begin`\
238	238		` dumquery := TrymysqlForm1.CommandEdit.text;`\
239	239		` dumquery := dumquery+#0;`\
240	240		` query := @dumquery[1];`\
241	241		` trymysqlForm1.statusbar1.simpletext := 'Executing query : '+ dumQuery +'...';`\
242	242		` strg := 'Executing query : ' + dumQuery; showstring (strg);`\
243	243		` if (mysql_query(sock,Query) < 0) then`\
244	244		` begin`\
245	245		` Strg :='Query failed '+ StrPas(mysql_error(sock)); showstring (strg);`\
246	246		` end`\
247	247		` else`\
248	248		` begin`\
249	249		` recbuf := mysql_store_result(sock);`\
250	250		` if RecBuf=Nil then`\
251	251		` begin`\
252	252		` Strg :='Query returned nil result.'; showstring (strg);`\
253	253		` end`\
254	254		` else`\
255	255		` begin`\
256	256		` strg :='Number of records returned : ' + IntToStr(mysql_num_rows (recbuf));`\
257	257		` Showstring (strg);`\
258	258		` Strg :='Number of fields per record : ' + IntToStr(mysql_num_fields(recbuf));`\
259	259		` showstring (strg);`\
260	260		` rowbuf := mysql_fetch_row(recbuf);`\
261	261		` while (rowbuf <>nil) do`\
262	262		` begin`\
263	263		` Strg :='(Id: '+ rowbuf[0]+', Name: ' + rowbuf[1]+ ', Email : ' +`\
264	264		` rowbuf[2] +')';`\
265	265		` showstring (strg);`\
266	266		` rowbuf := mysql_fetch_row(recbuf);`\
267	267		` end;`\
268	268		` end;`\
269	269		` end;`\
270	270		`end;`
271	271
272	272		Enregistrez votre projet, et appuyez sur Run -\> Run
273	273
274	274		#### Télécharger le code source MYSQL
275	275
276	276		Un listing complet du programme est disponible ici [Exemple de code source](http://lazarus-ccr.sourceforge.net/kbdata/mysqldemo.tar.gz)
277	277
278	278		## Lazarus et PostgreSQL
279	279
280	280		C'est un tutoriel très court pour obliger Lazarus 0.9.12 ou ultérieur à se relier à une base de données PostgreSQL, en local ou à l'extérieur, en employant TPQConnection.
281	281
282	282		Après une installation correcte, suivre ces étapes :
283	283
284	284		- Placer un PQConnection depuis l'étiquette SQLdb
285	285		- Placer un SQLQuery depuis l'étiquette SQLdb
286	286		- Placer un SQLTransaction depuis l'étiquette SQLdb
287	287		- Placer un DataSource depuis l'étiquette DataAccess
288	288		- Placer un DBGrid depuis l'étiquette DataControls
289	289
290	290		- Dans la PQConnection compléter:
291	291		- La propriété transaction avec l'objet respectif SQLTransaction
292	292		- Nom de la base de données
293	293		- Nom de l'hôte
294	294		- Nom de l'utilisateur + mot de passe
295	295
296	296		- Vérifier que SQLTransaction a été automatiquement changé pour pointer vers PQConnection
297	297
298	298		- Dans la SQLQuery compléter:
299	299		- la propriété transaction avec l'objet respectif
300	300		- la propriété database avec l'objet respectif
301	301		- SQL (quelque chose comme 'select * from anytable')
302	302
303	303		- Dans l'objet DataSource compléter la propriété DataSet avec l'objet SQLQuery
304	304
305	305		- Dans DBGrid compléter la source de donnée comme l'objet DataSource
306	306
307	307		Mettez tout sur connecté et actif et la DBGrid devrait être complété à la conception. TDBText et TDBEdit sembler fonctionner mais (pour moi ) ils montrent seulement des données.
308	308
309	309		Pour changer le contenu dans la base de données , j'ai appelé le moteur DB directement avec le code suivant :
310	310
311	311		` try`\
312	312		` sql:= 'UPDATE table SET setting=1';`\
313	313		` PQDataBase.Connected:=True;`\
314	314		` PQDataBase.ExecuteDirect('Begin Work;');`\
315	315		` PQDataBase.ExecuteDirect(sql);`\
316	316		` PQDataBase.ExecuteDirect('Commit Work;');`\
317	317		` PQDataBase.Connected:=False;`\
318	318		` except`\
319	319		` on E : EDatabaseError do`\
320	320		` MemoLog.Append('DB ERROR:'+sql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message);`\
321	321		` on E : Exception do`\
322	322		` MemoLog.Append('ERROR:'+sql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message);`\
323	323		` end;`
324	324
325	325		- Notes:
326	326		- Testé sur windows, Lazarus 0.9.12 + PgSQL 8.3.1
327	327		- Quelques tests dans linux, Lazarus 0.9.12 et PgSQL 8.0.x
328	328
329	329		- Installation et erreurs :
330	330		- Dans la version testée de Lazarus 0.9.12, Les champs de type "text" et "numeric" ont des bugs
331	331		- J'ai utilisé sans problème des caractères de taille fixe, int et float8
332	332		- Parfois la remise en marche de Lazarus résout des erreurs stupides ...
333	333		- Après quelques erreurs , les transactions demeurent actives et devraient être désactivées mannuellement
334	334		- Les changements faits dans Lazarus être naturellement non visible jusqu'à ce que la transaction soit effectuée
335	335		- Le debugger intégré semble buggé (au moins dans windows) - parfois une exécution en dehors de l'ide peut aider à trouver des erreurs
336	336		- Dans linux certains messages d'erreur sont imprimés dans la console -- exécuter votre programme en ligne de commande , parfois il y a certaine information utile supplémentaire de correction
337	337		- Erreur : "Can not load Postgresql client. Is it installed (libpq.so) ?"
338	338		- Ajouter le chemin pour rechercher libpq* à partir de l'installation de PostgreSQL.
339	339		- Dans le linux ajouter le chemin au fichier libpq.so à la section bibliothèques de votre fichier /etc/fpc.cfg. Par exemple : -Fl/usr/local/pgsql/lib
340	340		- Dans windows, ajouter ces bibliothèques n'importe où dans la variable d'environnement Path ou dans le répertoire projet
341	341		- Dans windows, J'ai copié tout DLLs dans le mon répertoire C:\Program Files\PostgreSQL\8.1\bin ver un autre répertoire dans le PATH
342	342		- Ou ajouter ce répertoire postgres\bin vers le path
343	343
344	344		## Lazarus et SQLite
345	345
346	346		par Luiz Américo
347	347
348	348		Aller sur la page d'accueil [sqlite](http://www.sqlite.org/) pour plus d'information .
349	349
350	350		### Introduction
351	351
352	352		TSqliteDataset et TSqlite3Dataset sont des descendants de TDataset qui accèdent, respectivement, aux bases de données sqlite version 2.8.x et 3.2.x. Ci-dessous une liste des principaux avantages et inconvénients :
353	353
354	354		Avantages :
355	355
356	356		- Flexible : les programmeurs peuvent choisir d'employer ou de ne pas employer le langage SQL, leur permettant de travailler avec les dispositions simples de tables ou n'importe quelle disposition complexe que SQL/sqlite permet
357	357		- Mise à jour automatique de la base de données : aucun besoin de mettre à jour manuellement la base de données avec des instructions SQL, une méthode simple s'occupe de ça
358	358		- Rapide : il cache les données en mémoire, rendant la navigation dans le jeux de données rapide
359	359		- Aucune installation/configuration de serveur : simplement fournir la bibliothèque sqllite avec l'exe
360	360
361	361		Inconvénients
362	362
363	363		- Exige des fichiers externes (Bibliothèque sqlite)
364	364
365	365		### Exigences
366	366
367	367		- Pour les bases de données sqlite2 :
368	368		- fpc 2.0.0
369	369		- Lazarus 0.9.10
370	370		- la bibliothèque d'exécution sqlite 2.8.15 ou au-dessus (l'obtenir de www.sqlite.org)
371	371
372	372		- Pour les bases de données sqlite3:
373	373		- fpc 2.0.2
374	374		- Lazarus 0.9.11 (svn revision 8443 ou au-dessus)
375	375		- la bibliothèque d'exécution sqlite 3.2.1 ou au-dessus (l'obtenir de www.sqlite.org)
376	376
377	377		Avant le lancement d'un projet Lazarus , assurez vous que :
378	378
379	379		- la bibliothèque sqlite est dans le PATH système ou dans le répertoire de l'exécutable
380	380		- sous Linux, mettre cmem comme première unité dans la clause uses du programme principal
381	381
382	382		### Comment l'employer (Utilisation de base )
383	383
384	384		Installer le paquet trouvé dans le répertoire /components/sqlite (voir les instructions [[Install Packages/fr\|ici]])
385	385
386	386		Pendant la conception fixer les propriétés suivantes:
387	387
388	388		- FileName: chemin du fichier sqlite \[requis \]
389	389		- TableName: nom de la table utilisée dans la phrase sql \[requis \]
390	390		- Sql: une phrase de sélection SQL\[facultatif \]
391	391
392	392		Créer un Table (jeux de donnée)
393	393
394	394		Double cliquez sur l'icone du composant ou employer l'item 'Create Table' du menu automatique qui apparaît en cliquant le bouton de souris droit . Un simple éditeur de table parlant de lui-même sra montré.
395	395
396	396		` Voici tous les types de champ soutenus par TSqliteDataset et TSqlite3Dataset: `\
397	397		` `\
398	398		` Integer`\
399	399		` AutoInc`\
400	400		` String`\
401	401		` Memo`\
402	402		` Bool `\
403	403		` Float`\
404	404		` Word`\
405	405		` DateTime`\
406	406		` Date`\
407	407		` Time`\
408	408		` LargeInt`\
409	409		` Currency`\
410	410		` `
411	411
412	412		Recherche des données
413	413
414	414		Après avoir créé la table ou avec une table précédemment créée ,ouvrir l'ensemble des données avec la méthode ouvrir . Si la propriété SQL n'était fixée alors tous enregistrements de tous les champs seront recherchés, la même chose si vous fixiez le SQL à :
415	415
416	416		` SQL:='Select * from TABLENAME'; `
417	417
418	418		Application des changements au fichier de donnée sous-jacent
419	419
420	420		Pour utiliser la fonction ApplyUpdates, l'ensemble de données doit contenir au moins un champ qui remplit les conditions pour une clef primaire (les valeurs doivent être UNIQUES et NON NULLES )
421	421
422	422		C'est possible de faire cela de deux manières :
423	423
424	424		- Fixer la propriété PrimaryKey avec le nom du champ clef primaire
425	425		- Ajouter un champ AutoInc (C'est plus facile puisque TSqliteDataSet le manipule automatiquement comme clef primaire )
426	426
427	427		Si une des deux conditions est fixée alors appeler juste
428	428
429	429		` ApplyUpdates;`
430	430
431	431		PS1: Si les deux conditions sont fixées, le champ correspondant à PrimaryKey est employé pour appliquer les mises à jour .
432	432
433	433		PS2: Le réglage de PrimaryKey à un champ qui n'est pas une clef primaire mènera à la perte de données si ApplyUpdates est appellé, aussi assurez vous que le champ choisi contient des valeurs non nulles et uniques avant de l'employer .
434	434
435	435		### Remarques
436	436
437	437		- Bien que cela ait été testé avec 10000 enregistrements et très bien fonctionné, TSqliteDataset conserve toutes données en mémoire, aussi rappelez-vous de rechercher seulement les données nécessaires (principalement avec les champs Mémo).
438	438		- Le même fichier de donnée (propriété Filename) peut accueillir plusieurs tables/ensembles de données
439	439		- Plusieurs ensembles de données (combinaisons differentes des champs )peuvent être créés en utilisant la même table simultanément .
440	440		- Il est possible de filtrer les données en utilisant les instructions WHERE dans sql, en fermant et en réouvrant l'ensemble de données(ou en appelant la méthode RefetchData). Mais dans ce cas-ci, l'ordre et le nombre de champs doivent demeurer le même.
441	441		- Il est également possible d'employer des instructions complexes de SQL en utilisant des alias, jointures, vues dans des tables multiples (se rappeler qu'ils doivent résider dans le même ficihier de données), mais dans ce cas-ci ApplyUpdates ne fonctionnera pas. Si quelqu'un veut employer des requêtes complexes et appliquer les mises à jour au fichier de données, expédiez-moi un mail et je donnerai quelques conseils sur comment à faire cela.
442	442		- fixer un nom de fichier à un fichier de données sqlite2.x non créé par TSqliteDataset et l'ouvrir est possible mais quelques champs n'auront pas le type de champ correct détecté. Ceux-ci seront traités comme champs de chaîne de caractère.
443	443
444	444		Des exemples génériques peuvent être trouvés dans le répertoire CVS fpc/fcl/db/sqlite
445	445
446	446		Luiz Américo pascalive(at)bol(dot)com(dot)br
447	447
448	448		## Lazarus et MSSQL
449	449
450	450		Cela fonctionne avec Zeoslib (dernier cvs), voir les liens sur le bas de la page .
451	451
452	452		## Lazarus et Interbase / Firebird
453	453
454	454		Voir [[Install Packages/fr\|Installer les paquets]]. Sur cette page est un premier petit exemple d'explication à propos de la manière de se relier à un serveur IB ou FB .
455	455
456	456		fonctionne aussi avec le dernier Zeoslib (du cvs).
457	457
458	458		### Librairie Firebird FBLib
459	459
460	460		[1](http://fblib.altervista.org/%7CFBLib) est une bibliothèque open Source No Data Aware for direct access to Firebird Relational Database from Borland Delphi / Kylix, Freepascal and Lazarus.
461	461
462	462		Les fonctionnalités actuelles incluent:
463	463
464	464		- Accès direct classique ou superserveur à Firebird 1.0.x 1.5.x
465	465		- Multiplatforme \[Win32,Gnu/Linux,FreeBSD)
466	466		- Bibliothèque avec choix automatique de client 'fbclient' ou 'gds32'
467	467		- Requête avec des param
468	468		- Support du dialecte SQL 1/3
469	469		- Accord de licence LGPL
470	470		- Extration de Méta-données
471	471		- Analyseur simple de manuscrit
472	472		- Seulement 100-150 KB sont ajoutés dans l'EXE final
473	473		- Support des champs BLOB
474	474		- Exporte des données au Script HTML SQL
475	475		- manageur de Service (backup,restore,gfix...)
476	476		- Alerte d'évènements
477	477
478	478		Vous pouvez télécharger la documentation sur [le site FBLib](http://fblib.altervista.org/).
479	479
480	480		## Lazarus et dBase
481	481
482	482		Tony Maro
483	483
484	484		Vous pourriez également vouloir visiter les commencements de la [[Lazarus Tdbf Tutorial/fr\|page de tutoriel TDbf]]
485	485
486	486		FPC inclut un composant simple de base de données qui est semblable dans la fonction au composant TTable de Delphi appelé "TDbf" ([Site Web de TDbf](http://tdbf.sourceforge.net/)) qui supporte un sous ensemble très basique de possibilités sur les fichiers dBase. Il n'est pas installé par défaut , ainsi vous devrez d'abord installer le paquet Lazarus à partir du répertoire "lazarus/components/tdbf" et reconstruire votre IDE Lazarus. Il apparaîtra alors à côté du composant TDatasource dans votre palette de composant.
487	487
488	488		Le composant TDbf a un avantage par rapport à d'autres composants de base de données parce qu'il n'exige aucune sorte de moteur d'exécution de base de données, cependant ce n'est pas la meilleure option pour des applications avec de grandes base de données.
489	489
490	490		Il est très facile d'emploi. Simplement, mettre, déposer un composant TDbf sur votre fiche, placer le chemin d'exécution dans le répertoire dans lequel seront vos fichiers de base de donnée, fixer le nom de la table, et liez le à votre composant TDatasource .
491	491
492	492		Une vraie fonctionnalité exige un peu plus d'effort , cependant . Si une table n'existe pas déjà , vous devrez la créer programmatiquement , à moins qu'il y ait un progammeur de table compatible Je ne suis pas familié avec . Note: La version courante d'OpenOffice (2.0x) contient la base d'OpenOffice, ce qui peut créer des fichiers dbf d'une manière quelque peu facile à utiliser .
493	493
494	494		Essayer d'ouvrir une table non-existante produira une erreur. Des Tables peuvent être créés programmatiquement au travers de composant après le chemin et le nom de la table soient fixé.
495	495
496	496		Par exemple , pour créer une table appelée « dvds » pour stocker votre collection de dvd vous devriez le déposer sur votre fiche, fixer le chemin d'exécution, et fixer le nom de table à « dvds » . Le fichier résultant s'appellera « dvds.dbf » .
497	497
498	498		Dans votre code, insérer le suivant :
499	499
500	500		` Dbf1.FilePathFull := '/path/to/my/database';`\
501	501		` Dbf1.TableName := 'dvds';`\
502	502		` With Dbf1.FieldDefs do begin`\
503	503		` Add('Name', ftString, 80, True);`\
504	504		` Add('Description', ftMemo, 0, False);`\
505	505		` Add('Rating', ftString, 5, False);`\
506	506		` end;`\
507	507		` Dbf1.CreateTable;`
508	508
509	509		Quand ce code est exécuté , votre table de collection DVD sera créée. Après cela, tous les composants avertis de données lié par TDatasource à ce composant permettra un accès facile aux données.
510	510
511	511		Ajouter des index est peu un différent de votre TTable typique. Il doit être fait après que la base de données soit ouverte . C'est également la même méthode que vous employez pour reconstruire les index. Par exemple :
512	512
513	513		` Dbf1.Exclusive := True;`\
514	514		` Dbf1.Open;`\
515	515		` Dbf1.AddIndex('dvdsname','Name',[ixPrimary, ixUnique, ixCaseInsensitive]);`\
516	516		` Dbf1.AddIndex('rating.ndx', 'Rating', [ixCaseInsensitive]);`\
517	517		` Dbf1.Close;`
518	518
519	519		Le premier index (primaire) sera un fichier appelé "dvdsname.mdx" et le second sera un fichier appelé "rating.ndx" ainsi dans une base de donnéesde table multiple vous devez faire attention à ne pas employer encore le même nom de fichier.
520	520
521	521		J'essayerai d'ajouter un exemple plus détaillé à une date ultérieure, mais si tout va bien cela mettra ces vieux programmeurs en Delphi à jour avec des bases de données dans Lazarus !
522	522
523	523		## Liens relatifs
524	524
525	525		- [[Databases/fr\|Créer des applications de bases de données avec Lazarus en employant DB-unit]]\
526	526		- [[MySQLDatabases/fr\|Créer une application de base de données en utilisant MySQL]]\
527	527		- [[Zeos tutorial/fr\|Créant une application de base de données en utilisant les composants Zeos]]
528	528		- Pascal Data Objects est une base de données API qui fonctionne pour à la fois FPC et Delphi et utilise des librairies MySQL natives pour les versions 4.1 et 5.0. Il est inspiré par les classes PHP's PDO .
529	529
530	530		<https://trac.synsport.com:8000/index.php/pdo/wiki> (username/password est guest/guest)
531	531
532	532		---
533	533		From the Free Pascal wiki, page "Lazarus Database Tutorial/fr", as it stood on 2016-05-26 after a change by Tintinux, 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).
534	534		Category: Databases/fr

Back to history