Lazarus Database Tutorial/nl: what changed

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

Old	New		Line
1	1		## Overzicht
2	2
3	3		Deze paragraaf laat zien hoe je Lazarus kunt gebruiken met verschillende databases. Zoals je ziet zijn nog niet alle databases gedekt, dus... help mee om dit deel uit te breiden.
4	4
5	5		## Lazarus en MySQL
6	6
7	7		### MySQL werkend krijgen onder Linux of Windows
8	8
9	9		Volg de instructies van het MySQL User Manual. Zorg er voor dat de mysqld service draait en dat alle mogelijke gebruikers (waaronder root, mysql, jijzelf en eventueel andere gebruikers) net zoveel rechten hebben als nodig is, vanaf net zoveel computers (hosts) als nodig is (waaronder 'localhost', de naam van de computer waarop MySQL draait en eventueel andere computers in je netwerk.) Het mag duidelijk zijn dat het het beste is als alle gebruikers gebruik maken van een paswoord. Controleer de werking van de database server op basis van de voorbeelden die in de handleiding worden gegeven. Controleer ook of alle gebruikers de door hen benodigde toegang hebben.
10	10
11	11		### MySQL werkend krijgen met FPC in een terminal
12	12
13	13		In de directory \$(FreePascal_directory)/packages/base/mysql/ staat een voorbeeld programma. Deze directory bevat ook de units mysql.pp, mysql_com.pp and mysql_version.pp. Voordat je het test script uitvoert, moet je een database genaamd "testdb" aanmaken. Dit kun je doen door in te loggen met behulp van de mysql monitor (als root met alle rechten) en het volgende SQL statement uit te voeren.
14	14
15	15		`CREATE DATABASE testdb;`
16	16
17	17		zorg er dan voor dat alle gebruikers voldoende rechten hebben door commando's zoals het volgende:
18	18
19	19		`GRANT ALL ON testdb TO johnny-user IDENTIFIED BY 'johnnyspassword'; `
20	20
21	21		uit te voeren. Er is een script genaamd mkdb, dat je nu moet uitvoeren:
22	22
23	23		`sh ./mkdb`
24	24
25	25		Waarschijnlijk mislukt dit omdat het systeem niet toestaat dat een anonieme gebruiker de database benadert. Wijzig het script nu zo dat de regel die de mysql client het script laat starten er zo uit ziet:
26	26
27	27		`mysql -u root -p ${1-testdb} << EOF >/dev/null`
28	28
29	29		en probeer het script nogmaals uit te voeren, waarbij je het root paswoord invult op de prompt. Met een beetje geluk heb je nu de test database gemaakt. Controleer dit door het volgende mysql statement uit te voeren, vanuit je mysql monitor:
30	30
31	31		`select * from FPdev;`
32	32
33	33		Als het goed is zie je nu een tabel met de ID, username en email adressen van een paar van de FPC ontwikkelaars.
34	34
35	35		Probeer nu het testprogramma testdb.pp uit te voeren. (Waarschijnlijk moet dit eerst nog gecompileerd worden en zal het de eerste keer niet lukken om het succesvol uit te voeren!!)
36	36
37	37		Er kunnen een aantal redenen zijn waarom het programma geen verbinding kan maken met de mysql server:
38	38
39	39		- Het systeem installeert een andere versie, bijv. mysql v4.0.15 en niet de versie 3 waarvoor het package is ontworpen.
40	40
41	41		- Het programma heeft een geldige mysql gebruikersnaam en wachtwoord nodig om de database te benaderen.
42	42
43	43		- De compiler moet weten waar het de mysql libraries kan vinden. (ALS JE DE MYSQL ONTWIKKEL LIBRARIES NOG NIET HEBT GEÏNSTALLEERD, DOE DAT DAN NU!)
44	44
45	45		Als je een copy maakt van testdb.pp, bijvoorbeeld trydb.pp, in plaats van het origineel aan te passen, zullen de bestanden bij volgende CVS updates ook weer up to date worden. Ook kun je de bestanden van de mysql/ver40/ subdirectory kopieren naar de mysql/ directory. Hernoem ze dan naar mysql_v4.pp, mysql_com_v4.pp and mysql_version_v4.pp, en zorg ervoor dat je de gebruikte units in iedere file ook aanpast. Dus: wijzig het uses statement in trydb.pp in
46	46
47	47		`uses mysql_v4`
48	48
49	49		en het statement in mysql_v4.pp in
50	50
51	51		`uses mysql_com_v4`
52	52
53	53		Waarschijnlijk moet er aan /etc/fpc.cfg een regel toegevoegd worden die wijst naar de libraries:
54	54
55	55		`-Fl/lib;/usr/lib`
56	56
57	57		en moet in de /usr/lib directory een link naar de mysqlclient library gemaakt worden. Bij het installeren van de ontwikkel libraries wordt deze link al aangemaakt. Mocht deze link er onverhoopt niet zijn dan kun je deze op de volgende manier aanmaken:
58	58
59	59		`ln -s libmysqlclient.so.12.0.0 lmysqlclient`
60	60
61	61		Controleer wel even de naam van jouw libraries. Voor de zekerheid kun je ook de volgende link aanmaken
62	62
63	63		`ln -s libmysqlclient.so.12.0.0 mysqlclient`
64	64
65	65		Sommigen moeten misschien de volgende link opnemen:
66	66
67	67		`ln -s libmysqlclient.so.12.0.0 libmysqlclient.so`
68	68
69	69		Wijzig dan trydb.pp zodanig dat het de gebruiker details kent, door de host, user en paswoord als constanten op te nemen:
70	70
71	71		`const`\
72	72		` host : Pchar= 'localhost';`\
73	73		` user : Pchar= 'myusername';`\
74	74		` passwd: Pchar = 'mypassword';`
75	75
76	76		Het kan zijn dat je geen verbinding kunt maken met behulp de mysql_connect() call, en je de mysql_real_connect() call moet gebruiken die meer parameters heeft. Om de zaak nog wat gecompliceerder te maken is het aantal parameters gewijzigd van versie 3 (daar waren het er 7) naar versie 4 (waar het er 8 zijn). Voordat je mysql_real_connect kunt aanroepen moet je waarschijnlijk mysql_init() aanroepen, die niet is opgenomen in de originele mysql.pp maar wel in mysql_v4.pp.
77	77
78	78		Dus de code om verbinding te maken met de database is:
79	79
80	80		`{ a few extra variables}`\
81	81		`var`\
82	82		` alloc : PMYSQL;`\
83	83		` `\
84	84		`{main program fragment}`\
85	85		` `\
86	86		`begin`\
87	87		` if paramcount=1 then`\
88	88		` begin`\
89	89		` Dummy:=Paramstr(1)+#0;`\
90	90		` DataBase:=@Dummy[1];`\
91	91		` end;`\
92	92		` `\
93	93		`Writeln ('Allocating Space...');`\
94	94		` alloc := mysql_init(PMYSQL(@qmysql));`\
95	95		` Write ('Connecting to MySQL...');`\
96	96		` sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);`\
97	97		` if sock=Nil then`\
98	98		` begin`\
99	99		` Writeln (stderr,'Couldn''t connect to MySQL.');`\
100	100		` Writeln (stderr, 'Error was: ', mysql_error(@qmysql));`\
101	101		` halt(1);`\
102	102		` end;`\
103	103		` Writeln ('Done.');`\
104	104		` Writeln ('Connection data:');`\
105	105		`{$ifdef Unix}`\
106	106		` writeln ('Mysql_port : ',mysql_port);`\
107	107		` writeln ('Mysql_unix_port : ',mysql_unix_port);`\
108	108		`{$endif}`\
109	109		` writeln ('Host info : ',mysql_get_host_info(sock));`\
110	110		` writeln ('Server info : ',mysql_stat(sock));`\
111	111		` writeln ('Client info : ',mysql_get_client_info);`\
112	112		` `\
113	113		` Writeln ('Selecting Database ',DataBase,'...');`\
114	114		` if mysql_select_db(sock,DataBase) < 0 then`\
115	115		` begin`\
116	116		` Writeln (stderr,'Couldn''t select database ',Database);`\
117	117		` Writeln (stderr,mysql_error(sock));`\
118	118		` halt (1);`\
119	119		` end;`\
120	120		`{... as original contents of testdb.pp}`
121	121
122	122		OK, klaar om trydb.pp te compileren?
123	123
124	124		` fpc trydb`
125	125
126	126		success! En voer het uit:
127	127
128	128		` ./trydb`
129	129
130	130		YES! Je hebt een lijst van FPC ontwikkelaars!
131	131
132	132		Een paar mogelijke verbeteringen: Je kunt de invoer van de gebruiker gegevens en de SQL commando's interactief maken. Hiervoor worden variabelen gebruikt in plaats van constanten. Er kunnen SQL commando's ingevoerd worden totdat het commando 'quit' wordt ingevoerd. Zie de [[Lazarus Database Tutorial/TryDbpp\|volledige listing]]. In deze versie worden de gebruikers gegevens in de console ingevoerd, waarna het programma in een loop komt waarbij SQL commando's kunnen worden ingevoerd en de resultaten worden getoond. Het programma eindigt als 'quit' wordt ingevoerd.
133	133
134	134		Zie ook [[Lazarus Database Tutorial/SampleListing\|Sample Console Listing]].
135	135
136	136		### Verbinding met MySQL vanuit een Lazarus Programma
137	137
138	138		Deze paragraaf toont hoe je Lazarus kunt verbinden met een MySQL database, en hoe je eenvoudige queries kunt laten uitvoeren met gebruik van de basic Lazarus componenten. Er worden geen data-aware componenten gebruikt, maar het laat de principes zien van het verbinden met de database.
139	139
140	140		Maak een nieuw project in Lazarus:
141	141
142	142		`Project -> New Project -> Application`
143	143
144	144		Kies voor Application en klik op Create. Er zal een nieuw automatisch gegenereerd Form worden getoond.
145	145
146	146		Vergroot het form zodat het ongeveer 600 bij 800 is. Geef het form een nieuwe naam en wijzig de caption in 'TryMySQL'.
147	147
148	148		Van de Standard Componenten tab plaats je drie Editboxes in de linker bovenhoek van het Form, en plaats direct boven elke editbox labels. Wijzig de captions en namen in 'Host' (en HostLabel,HostEdit), 'UserName' (en UserLabel, UserEdit) en 'Password' (met PasswdLabel en PasswdEdit). Je kunt natuurlijk ook gebruik maken van de LabelledEdit componenten van de Additional tab.
149	149
150	150		Selecteer de Passwd Editbox en zoek de PasswordChar property: wijzig dit in * , zodat wanneer je hier een paswoord intypt de letters niet getoond worden maar een serie van *-en. Zorg er voor dat de Text properties van alle editbox-en leeg zijn.
151	151
152	152		Onder deze editbox plaatsen we een button. Zet de Caption hiervan op 'Connect to server' en geef het de naam 'ConnectButton'.
153	153
154	154		Daarna zetten we een tweetal Comboboxen op het form met daarboven een Label. Deze noemen we DatabaseComboBox (en DatabaseLabel) en TableComboBox (en TableLabel). Tussen beide comboboxen plaatsen we nog een button, Caption = Select Database, Name = SelectDBButton.
155	155
156	156		Dan nog een Label, een Listbox (FieldLabel en FieldListbox) en een Button (Caption = Exit, Name = ExitButton)
157	157
158	158		Plaats nu nog een Editbox en label aan de rechter bovenkant van je form. Wijzig het label in 'Enter SQL Command' en noem de Editbox CommandEdit. Daaronder plaats je een button, 'Send Query' (QueryButton).
159	159
160	160		Plaats een grote Memo op het form genaamd 'Results' (ResultMemo) op de rechter onderkant, zodanig dat het het grootste deel van het form vult. Zet het ScrollBars property op ssAutoBoth zodat de scroll bars automatisch veschijnen als het memo wordt gevuld. Zet het WordWrap property op True.
161	161
162	162		Plaats een Status Bar (van de Common Controls tab) aan de onderkant van het Form, en zet de SimpleText property op 'TryMySQL'.
163	163
164	164		Een screenshot van het formulier kun je hier zien: [Mysql Example Screenshot](http://lazarus-ccr.sourceforge.net/kb/index.php/Image:Trymysql.png)
165	165
166	166		Nu moeten we nog de code (een aantal event handlers) schrijven.
167	167
168	168		De drie Editboxen aan de linker bovenkant worden gebruikt om de hostnaam, gebruikersnaam en het wachtwoord in te voeren. Wanneer deze zijn ingevuld kan er op de "Connect" button geklikt worden. De OnClick-event van deze button is gebaseerd op een deel van het FPC programma hierboven.
169	169
170	170		Omdat we nu de antwoorden van de database server niet met Write of WriteLn kunnen tonen, zullen we deze in het Memo laten zien. Hiervoor is het wel noodzakelijk dat we deze resultaten omzetten naar strings. We maken hiervoor een methode van ons form die de strings in het memo plaatst.
171	171
172	172		`procedure TtrymysqlForm1.ShowString (S : string);`\
173	173		`(* display a string in a Memo box *)`\
174	174		`begin`\
175	175		` ResultsMemo.Lines.Add (S)`\
176	176		`end;`
177	177
178	178		Het OnClick-event van de ConnectButton wordt dan:
179	179
180	180		`procedure TFormTryMySQL.ConnectButtonClick(Sender: TObject);`\
181	181		`var`\
182	182		` databasenamesBuffer: PMYSQL_RES;`\
183	183		` aDatabase: TMYSQL_ROW;`\
184	184		`begin`\
185	185		` // Connect to server.`\
186	186		` // Clear a previous connection.`\
187	187		` if mySQLSock <> nil then begin`\
188	188		` mysql_close(mySQLSock);`\
189	189		` DatabaseComboBox.Clear;`\
190	190		` DatabaseComboBoxChange(DatabaseComboBox);`\
191	191		` end;`\
192	192		` mySQLSock := mysql_connect(@mySQLq, PChar(HostEdit.Text),`\
193	193		` PChar(UserEdit.Text), PChar(PasswdEdit.Text));`\
194	194		` if mySQLSock = nil then begin`\
195	195		` ShowString('Connection to server failed.');`\
196	196		` ShowString('Error was: '+ StrPas(mysql_error(@mySQLq)));`\
197	197		` end else begin`\
198	198		` StatusBar1.SimpleText := 'Connected to database server.';`\
199	199		` ShowString('Host info : ' + StrPas(mysql_get_host_info(mySQLSock)));`\
200	200		` ShowString('Server info : ' + StrPas(mysql_stat(mySQLSock)));`\
201	201		` ShowString('Client info : ' + Strpas(mysql_get_client_info));`\
202	202		` {$ifdef Unix}`\
203	203		` ShowString('Mysql_port : '+ IntToStr(mysql_port));`\
204	204		` ShowString('Mysql_unix_port : ' + StrPas(mysql_unix_port));`\
205	205		` {$endif}`\
206	206		` databasenamesBuffer := mysql_list_dbs(mySQLSock, nil);`\
207	207		` try`\
208	208		` // Add each database as a item to our DatabaseComboBox.`\
209	209		` aDatabase := mysql_fetch_row(databasenamesBuffer);`\
210	210		` while (aDatabase <> nil) do begin`\
211	211		` DatabaseComboBox.Items.Add(aDatabase[0]);`\
212	212		` adatabase := mysql_fetch_row(databasenamesBuffer);`\
213	213		` end;`\
214	214		` finally`\
215	215		` // finally free the result.`\
216	216		` mysql_free_result(databasenamesBuffer);`\
217	217		` end;`\
218	218		` end;`\
219	219		`end;`
220	220
221	221		Als dit succesvol is geweest, zal de DatabaseComboBox gevuld zijn met de op de server bekende databases. De SelectDBButton wordt dan geactiveerd zodra er een database is geselecteerd in de ComboBox. Een druk op de SelectDBButton zal de TableComboBox vullen met de in de database aanwezige tabellen. Bovendien zal dan ook de OpenQueryButton 'enabled' worden. Een en ander gebeurt in de volgende code:
222	222
223	223		`procedure TFormTryMySQL.SelectDBButtonClick(Sender: TObject);`\
224	224		`var`\
225	225		` tablenamesBuffer: PMYSQL_RES;`\
226	226		` aTable: TMYSQL_ROW;`\
227	227		`begin`\
228	228		` // Connect to the selected database`\
229	229		` if DatabaseComboBox.ItemIndex <> -1 then begin // not really necessary but ...`\
230	230		` ShowString('Now selecting database : ' + DatabaseComboBox.Text);`\
231	231		` if mysql_select_db(mySQLSock, PChar(DatabaseComboBox.Text)) < 0 then begin`\
232	232		` // if we failed, the QueryButton must not be enabled. :)`\
233	233		` OpenQueryButton.Enabled := False;`\
234	234		` // Show what went wrong.`\
235	235		` ShowString('Couldn''t select database '+ DatabaseComboBox.Text);`\
236	236		` ShowString(mysql_error(mySQLSock));`\
237	237		` end else begin`\
238	238		` // We got connected to the database, so lets get a list of tables.`\
239	239		` TableComboBox.Clear;`\
240	240		` tablenamesBuffer := mysql_list_tables(mySQLSock, nil);`\
241	241		` aTable := mysql_fetch_row(tablenamesBuffer);`\
242	242		` // Off course "SHOW TABLES" could work as well.`\
243	243		` while (aTable <> nil) do begin`\
244	244		` TableComboBox.Items.Add(aTable[0]);`\
245	245		` aTable := mysql_fetch_row(tablenamesBuffer);`\
246	246		` end;`\
247	247		` mysql_free_result(tablenamesBuffer);`\
248	248		` OpenQueryButton.Enabled := True;`\
249	249		` end;`\
250	250		` end else begin`\
251	251		` ShowMessage('Please select a database in the ``database``combobox.');`\
252	252		` end;`\
253	253		`end;`
254	254
255	255		In de EditBox rechts bovenin het form kan dan een SQL commando worden ingevoerd (zonder afsluitende punt-komma). Als er op de OpenQuery button geklikt wordt, wordt het commando naar de server gestuurd en als er data te tonen is, zal dat in een tweede form getoond worden.
256	256
257	257		Ook het OnClick-event van de OpenQuery-button is gebaseerd op de code van de FPC versie hierboven.
258	258
259	259		Het OnClick-event voor de OpenQuery-button is als volgt:
260	260
261	261		`procedure TFormTryMySQL.OpenQueryButtonClick(Sender: TObject);`\
262	262		`var`\
263	263		` I: Integer;`\
264	264		` tableBuffer: PMYSQL_RES;`\
265	265		` recordBuffer: TMYSQL_ROW;`\
266	266		` aColumn: TListColumn;`\
267	267		`begin`\
268	268		`// An example of how to work with the returned data.`\
269	269		` StatusBar1.SimpleText := 'Executing query: ' + CommandEdit.Text;`\
270	270		` ShowString('Executing query: ' + CommandEdit.Text);`\
271	271		` ShowQueryForm := TShowQueryForm.Create(nil);`\
272	272		` try`\
273	273		` Screen.Cursor := crHourGlass;`\
274	274		` try`\
275	275		` if (mysql_query(mySQLSock, pChar(CommandEdit.Text)) < 0) then begin`\
276	276		` ShowString('Query failed '+ StrPas(mysql_error(mySQLSock)));`\
277	277		` Raise(Exception.Create('Query failed.'));`\
278	278		` end else begin`\
279	279		` tableBuffer := mysql_store_result(mySQLSock);`\
280	280		` // mysql_store_result will return nil if there was nothing to store.`\
281	281		` if tableBuffer <> nil then begin`\
282	282		` ShowString('Number of records returned : ' +`\
283	283		` IntToStr(mysql_num_rows(tableBuffer)));`\
284	284		` ShowString('Number of fields per record : ' +`\
285	285		` IntToStr(mysql_num_fields(tableBuffer)));`\
286	286		` try`\
287	287		` ShowQueryForm.ListView1.Columns.Clear;`\
288	288		` // Now we are going to add a column for each field in the return set`\
289	289		` // The caption of the columns we name after the fieldnames.`\
290	290		` for I := 0 to pred(mysql_num_fields(tableBuffer)) do begin`\
291	291		` aColumn := ShowQueryForm.ListView1.Columns.Add;`\
292	292		` aColumn.Caption := mysql_fetch_field_direct(tableBuffer, I).name;`\
293	293		` end;`\
294	294		` // Let us see if the table contained data an ask for the first record`\
295	295		` recordBuffer := mysql_fetch_row(tableBuffer);`\
296	296		` while (recordBuffer <> nil) do begin`\
297	297		` // We got some data lets add them to our view.`\
298	298		` with ShowQueryForm.ListView1.Items.Add do begin`\
299	299		` Caption := recordBuffer[0]; // This fills the first column`\
300	300		` for I := 1 to pred(mysql_num_fields(tableBuffer)) do`\
301	301		` // Then we will add the other fields.`\
302	302		` SubItems.Add(recordBuffer[I]);`\
303	303		` end;`\
304	304		` recordBuffer := mysql_fetch_row(tableBuffer);`\
305	305		` end; //while`\
306	306		` finally`\
307	307		` mysql_free_result(tableBuffer);`\
308	308		` end;`\
309	309		` end else begin`\
310	310		` ShowString('Query didnot return any results.');`\
311	311		` end;`\
312	312		` end;`\
313	313		` finally`\
314	314		` Screen.Cursor := crDefault;`\
315	315		` end;`\
316	316		` ShowQueryForm.ShowModal;`\
317	317		` finally`\
318	318		` ShowQueryForm.Free;`\
319	319		` end;`\
320	320		`end;`
321	321
322	322		Er zijn nog een drietal andere event-handlers geschreven. Eén voor het OnClose-event van het form en voor de OnChange-events van beide ComboBoxen.
323	323
324	324		In afwijking van het FPC programma, wordt het Lazarus programma niet afgebroken als er een fout optreedt. In plaats daarvan komt de controle weer terug bij het hoofd form (main form) en wordt de gelegenheid gegeven om het commando te verbeteren voordat het opnieuw wordt verstuurd naar de server. Het programma wordt afgesloten als op de Exit button wordt geklikt, hierbij wordt ook de verbinding met de MySQL server gesloten.
325	325
326	326		OK! Sla je project op en klik op Run -\> Run
327	327
328	328		#### Download MySQL Source Code
329	329
330	330		Een volledige listing van het programma is hier te downloaden [Sample Source Code](http://prdownloads.sourceforge.net/lazarus-ccr/trymysql20050404.tar.gz?download) Er staat meer commentaar in de sources, dat de verschillende onderdelen toelicht.
331	331
332	332		## Lazarus en Postgresql
333	333
334	334		Wie schrijft mij?
335	335
336	336		## Lazarus en SQLite
337	337
338	338		door Luiz Américo
339	339
340	340		### Introductie
341	341
342	342		Er zijn twee TDataset afstammelingen die het mogelijk maken om SQLite2.x databases te benaderen. De eerste, de TSqlite class, is gedefinieerd in de SQLiteDataset unit. De tweede is gedefinieerd in de SQLiteds unit en is nieuwer en wordt bij de nieuwere fpc versie geïnstalleerd. De laatste heeft nog een paar voordelen boven de eerste versie, hij is sneller, maakt toevoegen, wijzigen en verwijderen mogelijk en kan deze updates automatisch door de database laten verwerken. De aanwijzigingen die hier gegeven worden gaan uit van de TSqliteDataset uit de unit sqliteds.pas. Het is zelfs zo dat de "oude" sqlitedataset.pas file onder de nieuwere versie van fpc (1.9.8) niet meer gecompileerd kan worden.
343	343
344	344		### Benodigdheden
345	345
346	346		- fpc 1.9.8
347	347		- sqliteds.pas (Haal deze eventueel van fpc/fcl/db/sqlite op de CVS-server)
348	348		- sqlite runtime library 2.8.15 of hoger (Haal deze van www.sqlite.org)
349	349
350	350		Voordat je een Lazarus project begint, controleer dan dat:
351	351
352	352		- de sqlite library te vinden is in het system PATH
353	353		- onder linux moet cmem als de eerste unit in de uses clause van het Main form vermeld worden
354	354
355	355		### De grondbeginselen
356	356
357	357		De sqlite package die bij de standaard lazarus installatie zie is gebaseerd op de oude sqlitedataset unit. Je kunt een package die gebruik maakt van de nieuwe unit [hier](http://www.geocities.com/camara_luiz/sqliteds.zip)downloaden.
358	358
359	359		Tijdens het ontwerp moet je de volgende properties zetten:
360	360
361	361		- FileName: pad naar de sqlite file \[verplicht\]
362	362		- TableName: de naam van de tabel die gebruikt wordt in het sql statement \[verplicht\]
363	363		- Sql: een SQL select statement \[optioneel\]
364	364
365	365		Een Table (Dataset) maken
366	366
367	367		Op dit moment is het niet mogelijk een tabel gedurende het programma ontwerp te maken dus is het noodzakelijk de tabel tijdens de uitvoering van het programma te maken als deze tenminste nog niet bestaat. Het beste moment hiervoor is in het OnCreate event van het "main" form.
368	368
369		-	~~Het voorbeeld hieronder laat zien hoe je dit kunt doen. (dsTest is een instantie van TSqliteDataSet): <code>~~
	369	+	Het voorbeeld hieronder laat zien hoe je dit kunt doen. (dsTest is een instantie van TSqliteDataSet):
370	370
371	371		` // Maake een tabel met alle door de TSqliteDataset ondersteunde veld typen`\
372	372		` with dsTest do`\
373	373		` begin`\
374	374		` if not TableExists then begin`\
375	375		` with FieldDefs do begin`\
376	376		` Clear;`\
377	377		` Add('Integer',ftInteger);`\
378	378		` Add('AutoInc',ftAutoInc);`\
379	379		` Add('String',ftString);`\
380	380		` Add('Memo',ftMemo);`\
381	381		` Add('Bool',ftBoolean); `\
382	382		` Add('Float',ftFloat);`\
383	383		` Add('Word',ftWord);`\
384	384		` Add('DateTime',ftDateTime);`\
385	385		` Add('Date',ftDate);`\
386	386		` Add('Time',ftTime);`\
387	387		` end;`\
388	388		` CreateTable; `\
389	389		` end;`\
390	390		` end;`
391	391
392		-	~~</code>~~
393		-
394	392		Gegevens opvragen
395	393
396		-	~~Nadat de tabel is gemaakt, kun je deze benaderen met de Open method. Als het SQL property geen waarde heeft worden alle velden van alle records uit de tabel opgehaald, dus alsof <code>~~
	394	+	Nadat de tabel is gemaakt, kun je deze benaderen met de Open method. Als het SQL property geen waarde heeft worden alle velden van alle records uit de tabel opgehaald, dus alsof
397	395
398	396		` SQL:='Select * from TABLENAME'; `
399	397
400		-	~~</code> Maar het is natuurlijk ook mogelijk om een combinatie van velden op te vragen door het SQL property te zetten zoals: <code>~~
	398	+	Maar het is natuurlijk ook mogelijk om een combinatie van velden op te vragen door het SQL property te zetten zoals:
401	399
402	400		` SQL:='Select Float from TABLENAME';`\
403	401		` SQL:='Select String,Date,Word from TABLENAME';`
404	402
405		-	</code> Onthoud dat de beschikbare velden en de volgorde van deze velden na het openen van de dataset bepaald worden door het opgegeven select statement. In boven genoemde voorbeelden zijn er dus respectievelijk 10, 1 en 3 velden beschikbaar.
	403	+	Onthoud dat de beschikbare velden en de volgorde van deze velden na het openen van de dataset bepaald worden door het opgegeven select statement. In boven genoemde voorbeelden zijn er dus respectievelijk 10, 1 en 3 velden beschikbaar.
406	404
407	405		Wijzigingen doorvoeren op de onderliggende database
408	406
409	407		Voor het opslaan van de wijzigingen in de onderliggende database is het noodzakelijk dat de tabel een Primary key heeft. Bijvoorbeeld een AutoInc veld.
410	408
411		-	~~Als bijvoorbeeld het veld 'Integer' waarden bevat die altijd aanwezig en uniek zijn, dan kunnen na <code>~~
	409	+	Als bijvoorbeeld het veld 'Integer' waarden bevat die altijd aanwezig en uniek zijn, dan kunnen na
412	410
413	411		` FieldIndexName:='Integer';`
414	412
415		-	~~</code> gegevens in de database file worden opgeslagen.~~
	413	+	gegevens in de database file worden opgeslagen.
416	414
417	415		Hiervoor kun je de ApplyUpdates method gebruiken.
418	416
419	417		### Opmerkingen
420	418
421	419		- Hoewel dit tijdens een test met 10000 records goed werkte, moet je er wel rekening mee houden dat de TSqliteDataset alle gegevens in het geheugen houdt. Dus haal alleen de noodzakelijke gegevens op.
422	420		- Een database file kan meerdere tabellen bevatten.
423	421		- Het is mogelijke meerdere datasets (met verschillende velden) te maken die dezelfde database tabel benaderen.
424	422		- Het is mogelijk om de data te filteren met behulp van een WHERE statement. Het sluiten en het weer openen vban een dataset (of het aanroepen van de RefetchData method) is ook mogelijk.
425	423		- Je kunt ook complexe SQL statements gebruiken waarin aliases en joins worden gebruikt. Het is in dit geval echter niet mogelijk om gegevens te wijzigen, ApplyUpdates werkt dus niet. Als je echter toch complexe queries wilt gebruiken en gegevens wilt kunnen wijzigen, dan mag je mij een mailtje sturen en ik zal je een paar hints geven over hoe je dat kunt doen.
426	424		- Als je gebruik maakt van een bestand die niet is aangemaakt met behulp van een TSqliteDataset zijn er een paar beperkingen. Niet alle velden worden dan juist gedetecteerd. De niet herkende veldtype worden als een string behandeld.
427	425
428	426		Een algemeen voorbeeld kan gevonden worden in de fpc/fcl/sqlite CVS directory.
429	427
430	428		Luiz Américo pascalive(at)bol(dot)com(dot)br
431	429
432	430		## Lazarus en MSSQL
433	431
434	432		Wie schrijft mij?
435	433
436	434		## Lazarus and Interbase / Firebird
437	435
438	436		Zie [[Install Packages]]. Op deze pagina vind je een klein voorbeeld en bijbehorende uitleg over het verbinding met een IB of FB server.
439	437
440	438		## Lazarus en dBase
441	439
442	440		Tony Maro
443	441
444	442		Kijk ook eens naar de aanzet voor een [[Lazarus Tdbf Tutorial\|TDbf Tutorial page]]
445	443
446	444		FPC bevat een simpel database component die qua functionaliteit is te vergelijken met het TTable component van Delphi. Dit component ("TDbf", ([TDbf Website](http://tdbf.sourceforge.net/))) ondersteund een aantal basis handelingen met dBase files. Omdat het niet standaard wordt geïnstallleerd, zul je dit component dus zelf moeten doen. Je kunt het package vinden in de "lazarus/components/tdbf" directory. Na installatie van het package en een "rebuild" van je Lazarus IDE, vind je het component naast het TDatasource component in je componenten palette.
447	445
448	446		Het voordeel van het TDbf component is dat er geen extra libraries nodig zijn, maar het is niet de beste keuze voor een grote database applicatie.
449	447
450	448		Het gebruik van een TDbf component is erg eenvoudig. Plaats eenTDbf component op je form, vul het FilePathFull property met het pad naar de directory waar de bestanden staan, vul het TableName property met de naam van de tabel en verbind het met een TDatasource.
451	449
452	450		Voor het echte werk zul je echter nog wel iets meer moeten doen. Als een tabel nog niet bestaat, zul je hem met behulp van je programma moeten aanmaken. Of er moet een compatibele tabellen maker zijn die ik niet ken.
453	451
454	452		Als je een niet bestaande tabel probeert te openen zal er een error gegenereert worden. Je kunt tijdens runtime een tabel aanmaken als het pad (FilePathFull) en de naam (TableName) een waarde hebben.
455	453
456		-	De volgende code maakt een tabel genaamd "dvds" om he dvd verzameling in te registreren. Dus plaats een TDbf component op je form in in het OnCreate event van je form plaats je de volgende code: <code>
	454	+	De volgende code maakt een tabel genaamd "dvds" om he dvd verzameling in te registreren. Dus plaats een TDbf component op je form in in het OnCreate event van je form plaats je de volgende code:
457	455
458	456		` Dbf1.FilePathFull = '/pad/naar/mijn/database';`\
459	457		` Dbf1.TableName = 'dvds';`\
460	458		` With Dbf1.FieldDefs do begin`\
461	459		` Add('Name', ftString, 80, True);`\
462	460		` Add('Description', ftMemo, 0, False);`\
463	461		` Add('Rating', ftString, 5, False);`\
464	462		` end;`\
465	463		` Dbf1.CreateTable;`
466	464
467		-	</code> Nadat deze code is uitgevoerd is er een bestand "dvds.dbf" aangemaakt. Hierna kun je met behulp van alle data aware componenten, die via een DataSource aan het TDbf component zijn verbonden, de gegevens in de tabel eenvoudig benaderen en wijzigen.
	465	+	Nadat deze code is uitgevoerd is er een bestand "dvds.dbf" aangemaakt. Hierna kun je met behulp van alle data aware componenten, die via een DataSource aan het TDbf component zijn verbonden, de gegevens in de tabel eenvoudig benaderen en wijzigen.
468	466
469	467		### Het maken van een index
470	468
471		-	Het toevoegen van een index wijkt een beetje of van de typische TTable. Het moet namelijk gedaan worden, nadat de tabel is geopend. Op deze wijze moeten ook de index opnieuw opgebouwd worden. Bijvoorbeeld: <code>
	469	+	Het toevoegen van een index wijkt een beetje of van de typische TTable. Het moet namelijk gedaan worden, nadat de tabel is geopend. Op deze wijze moeten ook de index opnieuw opgebouwd worden. Bijvoorbeeld:
472	470
473	471		` Dbf1.Exclusive := True;`\
474	472		` Dbf1.Open;`\
475	473		` Dbf1.AddIndex('dvdsname','Name',[ixPrimary, ixUnique, ixCaseInsensitive]);`\
476	474		` Dbf1.AddIndex('rating.ndx', 'Rating', [ixCaseInsensitive]);`\
477	475		` Dbf1.Close;`
478	476
479		-	</code> De eerste (primaire) index wordt opgeslagen in een bestand "dvdsname.mdx" en de tweede index wordt opgeslagen in een bestand genaamd "rating.ndx". Omdat index opgeslagen worden in aparte bestanden moet je er dus voor zorgen dat je niet twee maal dezelfde naam gebruikt.
	477	+	De eerste (primaire) index wordt opgeslagen in een bestand "dvdsname.mdx" en de tweede index wordt opgeslagen in een bestand genaamd "rating.ndx". Omdat index opgeslagen worden in aparte bestanden moet je er dus voor zorgen dat je niet twee maal dezelfde naam gebruikt.
480	478
481	479		Ik zal proberen om op een later moment een meer gedetaileerd voorbeeld toe te voegen, maar ik hoop dat dit de delphi programmeurs snel op weg helpt bij het gebruik van databases in Lazarus!
482	480
483	481		## Vertalingen van deze pagina
484	482
485	483		[[Lazarus Database Tutorial]] Het origineel.\
486	484		[[Lazarus Database Tutorial/es\|Spaans]] door Eduardo Lopez (thanks! :)
487	485
488	486		## Gerelateerde Links
489	487
490	488		[[Databases\|Creating Databases Applications with Lazarus using the DB-unit]]\
491	489		[[MySQLDatabases\|Creating a database application using MySQL]]\
492	490		[[Zeos tutorial\|Creating a database application using the Zeos components]]
493	491
494	492		---
495	493		From the Free Pascal wiki, page "Lazarus Database Tutorial/nl", as it stood on 2011-08-03 after a change by Chronos, 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).
496	494		Category: Databases/nl

Back to history