Sign in Join
Wiki copytemporary

Lazarus Database Tutorial/it: what changed

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

Title: Lazarus Database Tutorial/it

OldNewLine
1+## Panoramica
2+
3+Questo tutorial è incentrato sul funzionamento di Lazarus con una serie di database esistenti.
4+
5+Lazarus supporta di base diversi database; in ogni caso lo sviluppatore deve installare il package adeguato per ciascuno di essi. E' possibile accedere al database attraverso il codice oppure disponendo dei componenti su un form. I componenti data-aware rappresentano i campi del database e vengono collegati impostando la proprietà DataSource in modo che punti ad un TDataSource. Il Datasource rappresenta una table ed è collegato ai componenti del database (per esempio: TPSQLDatabase, TSQLiteDataSet) impostando la proprietà DataSet. I componenti data-aware sono situati nel tab "Data Controls" della palette dei componenti di Lazarus. Il componente Datasource e i componenti dei database sono situati nel tab "Data Access".
6+
7+## Lazarus e MySQL
8+
9+### Far funzionare MySQL su Linux o Windows
10+
11+Seguite le istruzioni riportate sul MySQL User Manual. Assicuratevi che il daemon mysqld giri correttamente e che tutti i potenziali utenti (inclusi root, mysql, voi stessi e ognuno che ne abbia bisogno) abbiano i privilegi di cui necessitano, da tutti gli host richiesti (inclusi 'localhost', il nome dell'host locale, qualsiasi altro host della vostra rete) per quanto sia consistente con la sicurezza. E' preferibile che tutti gli utenti, incluso il root, abbiano una password. Controllate il funzionamento del sistema del database utilizzando l'esempio fornito nel manuale e assicuratevi che tutti gli utenti abbiano realmente accesso al database.
12+
13+### Far funzionare MySQL con FPC in modalità testuale
14+
15+C'è una directory con un programma di esempio in \$(fpc<b>src</b>dir)/packages/base/mysql/. Potete trovare la directory dei sorgenti del fpc in Lazarus: Environment menu -\> Environment Options -\> Paths tab -\> FPC source directory. Alcuni percorsi tipici per la directory di mysql sono /usr/share/fpcsrc/packages/base/mysql/ (rpm install) oppure C:\lazarus\fpcsrc\packages\base\mysql\\ (windows). Questa directory contiene anche le units mysql.pp, mysql_com.pp e mysql_version.pp. Prima di avviare lo script per il test, avrete bisogno di creare un database chiamato testdb: è possibile fare ciò loggandosi nel monitor mysql (come root con pieni privilegi) e immettendo la seguente linea SQL
16+
17+`CREATE DATABASE testdb;`
18+
19+quindi assicurandovi che tutti gli utenti abbiano i privilegi di accesso appropriati
20+
21+`GRANT ALL ON testdb TO johnny-user IDENTIFIED BY 'johnnyspassword'; `
22+
23+Esiste uno script chiamato mkdb che ora dovreste provare a lanciare:
24+
25+`sh ./mkdb`
26+
27+Probabilmente restituirà un errore, poiché il sistema non permette ad utenti anonimi di accedere al database. Quindi modificate lo script utilizzando un editor di testo in modo tale che la linea che chiama mysql sia:
28+
29+`mysql -u root -p  ${1-testdb} << EOF >/dev/null`
30+
31+e provate a lanciarlo di nuovo, immettendo la vostra password quando richiesto. Con un pizzico di fortuna dovreste essere in grado di creare il database di test: provatelo (loggati nel monitor mysql) lanciando la sequenza di comandi mysql
32+
33+`select * from FPdev;`
34+
35+Dovreste vedere una tabella contenente l'ID, lo username e l'indirizzo email di alcuni degli sviluppatori del FPC.
36+
37+Ora provate a lanciare il programma di test testdb.pp (potrebbe essere necessario compilarlo, e quasi sicuramente non andrà a buon fine al primo tentativo!!).
38+
39+Ho scoperto che il programma potrebbe non connettersi a mysql per diverse ragioni:
40+
41+- Il mio sistema (SuSE Linux v9.0) installa mysql v4.0.15, non la versione 3 per la quale il package è stato disegnato.
42+
43+- Il programma ha bisogno di avere nome utente e password per accedere al database.
44+
45+- Il compilatore ha bisogno di sapere dove trovare le librerie di mysql (NEL CASO IN CUI NON ABBIATE PROVVEDUTO AD INSTALLARE LE LIBRERIE DI SVILUPPO DI MYSQL, FATELO ORA!)
46+
47+Ho creato una copia di testdb.pp chiamandola trydb.pp, piuttosto che modificare l'originale - questo significa che i files originali verranno ancora corretti durante gli aggiornamenti successivi da CVS. Ho anche cpiato i files trovati nella sottodirectory mysql/ver40/ nella sottodirectory principale mysql/, rinominandoli mysql_v4.pp, mysql_com_v4.pp e mysql_version_v4.pp, assicurandomi di rinominare le units all'interno di ogni file in maniera corrispondente. Ho cambiato il blocco uses in trydb.pp in
48+
49+`uses mysql_v4`
50+
51+e quello in mysql_v4.pp in
52+
53+`uses mysql_com_v4`
54+
55+Ho aggiunto una linea a /etc/fpc.cfg per far puntare il compilatore alle mie librerie:
56+
57+`-Fl/lib;/usr/lib`
58+
59+I passi seguenti potrebbero non essere necessari se le librerie di sviluppo sono state installate, poiché i collegamenti vengono creati automaticamente, ma controllare non fa mai male. Ho dovuto trovare il vero nome della libreria mysqlclint in /usr/lib e, nel mio caso, ho dovuto lanciare il comando da shell:
60+
61+`ln -s libmysqlclient.so.12.0.0 lmysqlclient`
62+
63+per creare un link simbolico che permettesse a FPC di trovare la libreria. Per buona pratica ho anche creato il link
64+
65+`ln -s libmysqlclient.so.12.0.0 mysqlclient`
66+
67+e posizionato link simili in altre directory: non strettamente necessario, solo per sicurezza...! Alcuni utenti potrebbero aver bisogno di aggiungere il seguente link:
68+
69+`ln -s libmysqlclient.so.12.0.0 libmysqlclient.so`
70+
71+Ho modificato trydb.pp in modo da includere i dettagli dell'utente, inizialmente aggiungendo l'host, l'user e la password come costanti:
72+
73+``` pascal
74+ const
75+ host : Pchar= 'localhost';
76+ user : Pchar= 'myusername';
77+ passwd: Pchar = 'mypassword';
78+```
79+
80+Ho anche scoperto che non posso connettermi a mysql utilizzando mysql_connect(), ma ho dovuto utilizzare mysql_real_connect() che ha molti più parametri. Per complicare le cose ulteriormente il numero di parametri sembra essere cambiato tra la versione 3 (dove erano sette) e la versione 4 (dove sono otto). Prima di utilizzare mysql_real_connect ho dovuto utilizzare mysql_init() che non esiste nel file mysql.pp originale, ma esiste in mysql_v4.pp.
81+
82+Quindi il codice per la connessione al database è:
83+
84+``` pascal
85+ { a few extra variables}
86+ var
87+ alloc : PMYSQL;
88+
89+ {main program fragment}
90+
91+ begin
92+ if paramcount=1 then
93+ begin
94+ Dummy:=Paramstr(1)+#0;
95+ DataBase:=@Dummy[1];
96+ end;
97+
98+ Writeln ('Allocating Space...');
99+ alloc := mysql_init(PMYSQL(@qmysql));
100+ Write ('Connecting to MySQL...');
101+ sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);
102+ if sock=Nil then
103+ begin
104+ Writeln (stderr,'Couldn''t connect to MySQL.');
105+ Writeln (stderr, 'Error was: ', mysql_error(@qmysql));
106+ halt(1);
107+ end;
108+ Writeln ('Done.');
109+ Writeln ('Connection data:');
110+ {$ifdef Unix}
111+ writeln ('Mysql_port : ',mysql_port);
112+ writeln ('Mysql_unix_port : ',mysql_unix_port);
113+ {$endif}
114+ writeln ('Host info : ',mysql_get_host_info(sock));
115+ writeln ('Server info : ',mysql_stat(sock));
116+ writeln ('Client info : ',mysql_get_client_info);
117+
118+ Writeln ('Selecting Database ',DataBase,'...');
119+ if mysql_select_db(sock,DataBase) < 0 then
120+ begin
121+ Writeln (stderr,'Couldn''t select database ',Database);
122+ Writeln (stderr,mysql_error(sock));
123+ halt (1);
124+ end;
125+ {... as original contents of testdb.pp}
126+```
127+
128+Ora siete pronti per compilare trydb.pp?
129+
130+` fpc trydb`
131+
132+fatto! Adesso lanciatelo:
133+
134+` ./trydb`
135+
136+whoopee! Ho ottenuto l'elenco degli sviluppatori del FPC!
137+
138+Alcuni ulteriori perfezionamenti: rendete interattive l'immissione dei dettagli dell'utente e l'immissione dei comandi, utilizzando variabili piuttosto che costanti, e permettete di inserire diversi comandi SQL, finché non viene rovato il comando quit: controllate il [[Lazarus Database Tutorial/TryDbpp|listato completo del programma]], dove i dettagli dell'utente sono inseriti da console, e il programma va in un loop dove i comandi SQL sono inseriti sempre da console (senza il punto e virgola finale) e le risposte vengono mostrate a schermo solo quando 'quit' viene inserito dalla tastiera.
139+
140+Vedi [[Lazarus Database Tutorial/SampleListing|Sample Console Listing]].
141+
142+### Connettersi a MySQL da un'Applicazione Lazarus
143+
144+Questo tutorial mostra come connettere Lazarus a un database MySQL ed eseguire delle semplici interrogazioni, utilizzando solo i componenti di base di Lazarus; non vengono utilizzati componenti Data Aware, ma vengono illustrati i principi dell'interfacciamento con il database.
145+
146+Create un nuovo progetto in Lazarus:
147+
148+`Project -> New Project -> Application`
149+
150+Apparirà un nuovo form generato automaticamente.
151+
152+Ingrandite il form in modo tale che riempia circa metà schermo, quindi rinominate il form e la caption in 'TryMySQL'.
153+
154+Dal tab dei componenti Standard posizionate tre Edit Box nella parte in alto a sinistra del Form e, immediatamente sopra ogni box, posizionate una label. Cambiate name e captions in 'Host' (e HostLLabel, HostEdit), 'UserName' (e UserLabel, UserEdit) e 'Password' (con PasswdLabel e PasswdEdit). In alternativa potreste utilizzare il componente LabelledEdit dal tab Additional.
155+
156+Selezionate l'Edit box Passwd e trovate la proprietà PasswordChar: cambiatela in '*' o in un altro carattere, in modo che quando digiterete una password i caratteri non appariranno sullo schermo, ma verrà mostrata una serie di *. Assicuratevi che la proprietà Text di ogni edit box sia vuota.
157+
158+Ora posizionate un altro Edit box e un'altra label nell'angolo in alto a destra del form. Cambiate il testo della label in 'Enter SQL Command' e chiamate l'edit box CommandEdit.
159+
160+Mettete tre Button sul form: due a sinistra sotto gli Edit box e uno a destra, sotto il command box.
161+
162+Cambiate il testo dei button sulla sinistra in 'Connect to Database' (ConnectButton) e 'Exit' (ExitButton) e il testo di quello a destra in 'Send Query' (QueryButton).
163+
164+Posizionate un grande Memo Box con una label con il testo 'Results' (ResultMemo) nella parte inferiore destra del form, in modo tale da riempire quasi tutto lo spazio disponibile. Cambiate la proprietà ScrollBars in ssAutoBoth in modo che le scroll bar appaiano automaticamente se il testo riempie lo spazio. Mettete la proprietà WordWrap a True.
165+
166+Posizionate unoa Status Bar (dal tab Common Controls) nella parte bassa del form e cambiate la sua proprietà SimpleText in 'TryMySQL'.
167+
168+Uno screenshot del form può essere visualizzato da qui: [Mysql Example Screenshot](http://lazarus-ccr.sourceforge.net/kbdata/trymysqldb.png)
169+
170+Ora abbiamo bisogno di gestire alcuni eventi.
171+
172+I tre Edit box sulla sinistra serviranno per immettere hostname, username e password. Quando sono stati inseriti, viene premuto il tasto Connect. L'evento OnClick del button è basato su parte del programma FPC in modalità testuale che abbiamo appena visto.
173+
174+Le risposte dal database ora non possono essere scritte con l'ausilio dei comandi pascal write o writeln: piuttosto, le risposte devono essere convertite in string e mostrate nel Memo box. Laddove i comandi Pascal write e writeln sono in grado di effettuare diverse conversioni di tipo 'al volo', l'utilizzo di una memo box per l'output di testo necessita di una conversione esplicita dei tipi di dato in string, così le variabili di tipo Pchar devono essere convertite in string mediante StrPas, gli integer tramite IntToStr.
175+
176+Le string vengono mostrate nel Memo box tramite l'utilizzo di
177+
178+``` pascal
179+ procedure ShowString (S : string);
180+ (* display a string in a Memo box *)
181+ begin
182+ trymysqlForm1.ResultsMemo.Lines.Add (S)
183+ end;
184+```
185+
186+Così l'evento onClick del ConnectButton diventa:
187+
188+``` pascal
189+ procedure TtrymysqlForm1.ConnectButtonClick(Sender: TObject);
190+ (* Connect to MySQL using user data from Text entry boxes on Main Form *)
191+ var
192+ strg: string;
193+ begin
194+ dummy1 := trymysqlForm1.HostEdit.text+#0;
195+ host := @dummy1[1];
196+ dummy2 := trymysqlForm1.UserEdit.text+#0;
197+ user := @dummy2[1];
198+ dummy3 := trymysqlForm1.PasswdEdit.text+#0;
199+ passwd := @dummy3[1];
200+
201+ alloc := mysql_init(PMYSQL(@qmysql));
202+ sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);
203+ if sock=Nil then
204+ begin
205+ strg :='Couldn''t connect to MySQL.'; showstring (strg);
206+ Strg :='Error was: '+ StrPas(mysql_error(@qmysql)); showstring (strg);
207+ end else
208+ begin
209+ trymysqlForm1.statusBar1.simpletext := 'Connected to MySQL';
210+ strg := 'Now choosing database : ' + database; showstring (strg);
211+ {$ifdef Unix}
212+ strg :='Mysql_port : '+ IntToStr(mysql_port); showstring (strg);
213+ strg :='Mysql_unix_port : ' + StrPas(mysql_unix_port); showstring (strg);
214+ {$endif}
215+ Strg :='Host info : ' + StrPas(mysql_get_host_info(sock));
216+ showstring (strg);
217+ Strg :='Server info : ' + StrPas(mysql_stat(sock)); showstring (strg);
218+ Strg :='Client info : ' + Strpas(mysql_get_client_info); showstring (strg);
219+
220+ trymysqlForm1.statusbar1.simpletext := 'Selecting Database ' + DataBase +'...';
221+ if mysql_select_db(sock,DataBase) < 0 then
222+ begin
223+ strg :='Couldn''t select database '+ Database; ShowString (strg);
224+ Strg := mysql_error(sock); ShowString (strg);
225+ end
226+ end;
227+ end;
228+```
229+
230+Il Text Box sulla destra permette l'inserimento di un comando SQL, senza il punto e virgola finale; quando si è soddisfatti della query inserita, viene premuto il tasto SendQuery e la query viene processata, il cui risultato verrà mostrato nel box ResultsMemo.
231+
232+Il gestore di eventi SendQuery è ancora una volta basato sulla versione in modalità testo, con l'eccezione che, anche qui, si abbia una conversione esplicita di tipo prima di mostrare le string nel box.
233+
234+Una differenza con il programma in modalità testuale è che, nel caso in cui venga riscontrata una anomalia, il programma non viene terminato e la connessione a MySQL non viene chiusa; invece viene restituito il controllo al form principale e viene data l'opportunità di correggere la query prima di lanciarla di nuovo. L'applicazione viene chiusa (con la chiusura della connessione a MySQL) solo quando il tasto Exit viene premuto.
235+
236+Questo è il codice per SendQuery:
237+
238+``` pascal
239+ procedure TtrymysqlForm1.QueryButtonClick(Sender: TObject);
240+ var
241+ dumquery, strg: string;
242+ begin
243+ dumquery := TrymysqlForm1.CommandEdit.text;
244+ dumquery := dumquery+#0;
245+ query := @dumquery[1];
246+ trymysqlForm1.statusbar1.simpletext := 'Executing query : '+ dumQuery +'...';
247+ strg := 'Executing query : ' + dumQuery; showstring (strg);
248+ if (mysql_query(sock,Query) < 0) then
249+ begin
250+ Strg :='Query failed '+ StrPas(mysql_error(sock)); showstring (strg);
251+ end else
252+ begin
253+ recbuf := mysql_store_result(sock);
254+ if RecBuf=Nil then
255+ begin
256+ Strg :='Query returned nil result.'; showstring (strg);
257+ end else
258+ begin
259+ strg :='Number of records returned : ' + IntToStr(mysql_num_rows (recbuf));
260+ Showstring (strg);
261+ Strg :='Number of fields per record : ' + IntToStr(mysql_num_fields(recbuf));
262+ showstring (strg);
263+ rowbuf := mysql_fetch_row(recbuf);
264+ while (rowbuf <>nil) do
265+ begin
266+ Strg :='(Id: '+ rowbuf[0]+', Name: ' + rowbuf[1]+ ', Email : ' +
267+ rowbuf[2] +')';
268+ showstring (strg);
269+ rowbuf := mysql_fetch_row(recbuf);
270+ end;
271+ end;
272+ end;
273+ end;
274+```
275+
276+Salvate il progetto e lanciate Run -\> Run.
277+
278+#### Scaricare il codice sorgente MYSQL
279+
280+Un listato completo del programma è disponibile qui: [Sample Source Code](http://lazarus-ccr.sourceforge.net/kbdata/mysqldemo.tar.gz)
281+
282+## Semplice Demo MySQL sull'utilizzo del componente TMySQL50Connection
283+
284+Il seguente codice è una demo veloce su come operare in maniera semplice (testato su Win XP con Lighty2Go). libmysql.dll è stata copiata nelle directory del progetto e di lazarus.exe (disponibile in una directory in Lighty2Go). Non è richiesto il posizionamento sul form di altri componenti aggiuntivi oltre che di tre edit box, un memo box e alcuni button. C'è bisogno di aggiungere mysql50conn e sqldb nella clausola uses. La directory dei componenti di Lazarus deve essere rw per il programmatore. Il dbms mysql utilizzato ha come user 'root' e non è impostata nessuna password; un database test1 con una tabella tPerson contenente tre campi: personid (int), surname (varchar(40)) e dob (datetime). E' stato utilizzato phpMyAdmin (in Lighty2Go) per creare il db, la tabella, i campi e per inserire alcuni dati. Da notare che le date in phpMyAdmin devono essere inserite nel formato YYYY-MM-DD, benché il programma che stiamo creando accetti le date nei formati usuali. Il button btnTest deve essere cliccato per primo, perché crea la connessione con il dbms. Notare la linea che applica gli aggiornamenti - senza di essa i dati modificati o immessi nono verranno scritti sul db anche se risiedono in memoria e possono essere visualizzati tramite btnFirst e btnNext.
285+
286+``` pascal
287+unit unt_db;
288+//Example based on:
289+//http://www.lazarus.freepascal.org/index.php?name=PNphpBB2&file=viewtopic&t=5761
290+//from tpglemur on that forum
291+{$mode objfpc}{$H+}
292+interface
293+uses
294+ Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
295+ mysql50conn, sqldb, StdCtrls;
296+type
297+ { TForm1 }
298+ TForm1 = class(TForm)
299+ btnTest: TButton;
300+ btnNext: TButton;
301+ btnFirst: TButton;
302+ btnNew: TButton;
303+ edtPersonID: TEdit;
304+ edtSurname: TEdit;
305+ edtDOB: TEdit;
306+ Memo1: TMemo;
307+ procedure btnFirstClick(Sender: TObject);
308+ procedure btnNewClick(Sender: TObject);
309+ procedure btnNextClick(Sender: TObject);
310+ procedure btnTestClick(Sender: TObject);
311+ private
312+ { private declarations }
313+ conn : TMySQL50Connection;
314+ query : TSQLQuery;
315+ transaction : TSQLTransaction;
316+ procedure Display;
317+ public
318+ { public declarations }
319+ end;
320+var
321+ Form1: TForm1;
322+implementation
323+{ TForm1 }
324+procedure TForm1.btnTestClick(Sender: TObject);
325+var
326+ S: String;
327+begin
328+ conn := TMySQL50Connection.Create(nil);
329+ query := TSQLQuery.Create(nil);
330+ transaction := TSQLTransaction.Create(nil);
331+ try
332+ try
333+ conn.HostName := '127.0.0.1';
334+ conn.UserName := 'root';
335+ conn.Password := '';
336+ conn.DatabaseName := 'test1';
337+ conn.Connected := True;
338+ conn.Transaction := transaction;
339+ query.DataBase := conn;
340+ //query.ParseSQL := true; //line not needed - this is the default anyway
341+ //query.ReadOnly := false; //line not needed - this is the default anyway
342+ query.SQL.Text := 'select * from tperson';
343+ query.Open;
344+
345+ query.Last;
346+ S := IntToStr(query.RecordCount) + #13#10;
347+ query.First;
348+
349+ while not query.EOF do
350+ begin
351+ S := S + query.FieldByName('surname').AsString + #13#10;
352+ query.Next;
353+ end;
354+ finally
355+ //query.Free;
356+ //conn.Free;
357+ end;
358+ except
359+ on E: Exception do
360+ ShowMessage(E.message);
361+ end;
362+ Memo1.Text:= S;
363+end;
364+
365+procedure TForm1.Display;
366+begin
367+ edtPersonID.Text := query.FieldByName('personid').AsString;
368+ edtSurname.Text := query.FieldByName('surname').AsString;
369+ edtDOB.Text := query.FieldByName('dob').AsString;
370+end;
371+
372+procedure TForm1.btnFirstClick(Sender: TObject);
373+begin
374+ query.First;
375+ Display;
376+end;
377+
378+procedure TForm1.btnNewClick(Sender: TObject);
379+begin
380+ query.Append;
381+ query.FieldValues['personid'] := edtPersonID.Text;
382+ query.FieldValues['surname'] := edtSurname.Text;
383+ query.FieldValues['dob'] := edtDOB.Text;
384+ query.Post;
385+ query.ApplyUpdates; //to apply update
386+ //transaction.Commit; //line not needed
387+end;
388+
389+procedure TForm1.btnNextClick(Sender: TObject);
390+begin
391+ query.Next;
392+ Display;
393+end;
394+
395+initialization
396+ {$I unt_db.lrs}
397+end.
398+```
399+
400+Questa versione utilizza i componenti TMySQL50Connection, TSQLQuery, TSQLTransaction, TDatasource e TDBGrid preventivamente posizionati sul form:
401+
402+``` pascal
403+unit unt_mysql2;
404+{$mode objfpc}{$H+}
405+interface
406+uses
407+ Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
408+ mysql50conn, sqldb, StdCtrls, db, DBGrids, DbCtrls;
409+type
410+ { TForm1 }
411+ TForm1 = class(TForm)
412+ btnConnect: TButton;
413+ btnSave: TButton;
414+ btnNext: TButton;
415+ btnPrior: TButton;
416+ Datasource1: TDatasource;
417+ DBGrid1: TDBGrid;
418+ Memo1: TMemo;
419+ MySQL50Connection1: TMySQL50Connection;
420+ SQLQuery1: TSQLQuery;
421+ SQLTransaction1: TSQLTransaction;
422+ procedure btnConnectClick(Sender: TObject);
423+ procedure btnNextClick(Sender: TObject);
424+ procedure btnPriorClick(Sender: TObject);
425+ procedure btnSaveClick(Sender: TObject);
426+ procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
427+ procedure FormCreate(Sender: TObject);
428+ private
429+ { private declarations }
430+ public
431+ { public declarations }
432+ end;
433+var
434+ Form1: TForm1;
435+implementation
436+{ TForm1 }
437+
438+procedure TForm1.FormCreate(Sender: TObject);
439+begin
440+ //Set properties of components:
441+ //(could be done in the Object Inspector)
442+ MySQL50Connection1.HostName := '127.0.0.1';
443+ MySQL50Connection1.UserName := 'root';
444+ MySQL50Connection1.Password := '';
445+ MySQL50Connection1.DatabaseName := 'test1';
446+ MySQL50Connection1.Transaction := SQLTransaction1;
447+ //SQLQuery1.ParseSQL := true; //line not needed - this is the default
448+ //SQLQuery1.ReadOnly := false; //line not needed - this is the default
449+ SQLQuery1.SQL.Text := 'select * from tperson';
450+ SQLQuery1.Transaction := SQLTransaction1;
451+ SQLQuery1.UpdateMode := upWhereChanged;
452+ Datasource1.Dataset := SQLQuery1;
453+ DBGrid1.DataSource := Datasource1;;
454+end;
455+
456+procedure TForm1.btnConnectClick(Sender: TObject);
457+var
458+ S : string;
459+begin
460+ try
461+ MySQL50Connection1.Connected := true;
462+ SQLQuery1.Open;
463+
464+ //Tests to see if all is OK:
465+ SQLQuery1.Last;
466+ S := IntToStr(SQLQuery1.RecordCount) + #13#10;
467+ SQLQuery1.First;
468+ while not SQLQuery1.EOF do
469+ begin
470+ S := S + SQLQuery1.FieldByName('surname').AsString + #13#10;
471+ SQLQuery1.Next;
472+ end;
473+ except
474+ on E: Exception do
475+ ShowMessage(E.message);
476+ end;
477+ Memo1.Text:= S;
478+end;
479+
480+procedure TForm1.btnNextClick(Sender: TObject);
481+begin
482+ SQLQuery1.Next;
483+end;
484+
485+procedure TForm1.btnPriorClick(Sender: TObject);
486+begin
487+ SQLQuery1.Prior;
488+end;
489+
490+procedure TForm1.btnSaveClick(Sender: TObject);
491+begin
492+ SQLQuery1.ApplyUpdates;
493+end;
494+
495+procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
496+begin
497+ //Required or get EDatabase error on close:
498+ MySQL50Connection1.Connected := false;
499+end;
500+
501+initialization
502+ {$I unt_mysql2.lrs}
503+end.
504+```
505+
506+## Lazarus e PostgreSQL
507+
508+Questa è una guida molto breve che spiega come connettere Lazarus 0.9.12 o successivo a un database PostgreSQL, locale o remoto, tramite l'utilizzo di TPQConnection.
509+
510+Dopo avere correttamente installato il package, seguite questi passi:
511+
512+- Posizionare un PQConnection dal tab SQLdb
513+- Posizionare un SQLQuery dal tab SQLdb
514+- Posizionare un SQLTransaction dal tab SQLdb
515+- Posizionare un DataSource dal tab DataAccess
516+- Posizionare un DBGrid dal tab DataControls
517+
518+- In PQConnection modificare le proprietà:
519+ - transaction con il rispettivo oggetto SQLTransaction
520+ - Database name
521+ - HostName
522+ - UserName + password
523+
524+- Assicurarsi che SQLTransaction sia cambiato automaticamente per puntare a PQConnection
525+
526+- In SQLQuery modificare le proprietà:
527+ - transaction con il rispettivo oggetto
528+ - database con il rispettivo oggetto
529+ - SQL (qualcosa del tipo 'select * from anytable')
530+
531+- Nell'oggetto DataSource assegnate alla proprietà DataSet l'oggetto SQLQuery
532+
533+- In DBGrid assegnate alla proprietà datasource l'oggetto DataSource
534+
535+Posizionare tutti gli switch su connected e active e la DBGrid dovrebbe essere riempita a design time. TDBText e TDBEdit sembrano funzionare, ma (per me) _mostrano_ _dati_ solamente.
536+
537+Per cambiare i contenuti nel database, ho chiamato direttamente il motore DB con il seguente codice:
538+
539+``` pascal
540+ try
541+ sql:= 'UPDATE table SET setting=1';
542+ PQDataBase.Connected:=True;
543+ PQDataBase.ExecuteDirect('Begin Work;');
544+ PQDataBase.ExecuteDirect(sql);
545+ PQDataBase.ExecuteDirect('Commit Work;');
546+ PQDataBase.Connected:=False;
547+ except
548+ on E : EDatabaseError do
549+ MemoLog.Append('DB ERROR:'+sql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message);
550+ on E : Exception do
551+ MemoLog.Append('ERROR:'+sql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message);
552+ end;
553+```
554+
555+- Note:
556+ - Controllato su windows, Lazarus 0.9.12 + PgSQL 8.3.1
557+ - Alcune prove su linux, Lazarus 0.9.12 and PgSQL 8.0.x
558+
559+- Installazione e errori:
560+ - Nella verione .12 di Lazarus che ho provato, i campi del tipo "text" e "numeric" hanno dei bugs
561+ - Ho usato senza problemi char fixed size, int e float8
562+ - Alcune volte riavviare Lazarus risolve stupidi errori...
563+ - Dopo alcuni errori, le transaczioni rimangono attive e devono essere disattivate a mano
564+ - Le modifiche fatte in Lazarus ovviamente non sono visibili finché la transazione non viene passata
565+ - Il debugger integrato sembra buggato (almeno in windows) - alcune volte far girare l'eseguibile fuori dall'ide può aiutare a scovare errori
566+ - In linux alcuni messaggi d'errore vengono mostrati nella console -- lanciate il vostro programma da linea di comando, alcune volte ci sono ulteriori informazioni di debug molto utili
567+ - Error: "Can not load Postgresql client. Is it installed (libpq.so) ?"
568+ - Aggiungete il percorso per trovare libpq* dall'installazione di PostgreSQL.
569+ - In linux aggiungete il percorso per trovare il file libpq.so alla sezione delle librerie nel vostro file /etc/fpc.cfg. Per esempio: -Fl/usr/local/pgsql/lib
570+ - In windows, aggiungete queste librerie dove volete, in una directory indicata nella variabile d'ambiente Path o nella directory del progetto
571+ - In windows, ho copiato tutte le dll presenti in C:\Program Files\PostgreSQL\8.1\bin in un'altra directory segnata in PATH
572+ - Oppure aggiungete la directory postgres\bin al path
573+
574+Un buon esempio sulla connessione tra Lazarus e PostgreSQL sotto Windows è [easyDB](http://http://paginas.fe.up.pt/~asousa/wiki/doku.php?id=proj:lazarus_projects).
575+
576+## Lazarus e SQLite
577+
578+di Luiz Américo
579+
580+Visitate la [homepage di sqlite4fpc](http://www.geocities.com/camara_luiz/) per ottenere l'API reference e altre guide.
581+
582+### Introduzione
583+
584+TSqliteDataset e TSqlite3Dataset sono dei discendenti di TDataset che permettono l'accesso, rispettivamente, ai database sqlite 2.8.x e 3.x.x. Di seguito un elenco dei suoi principali vantaggi e svantaggi:
585+
586+Vantaggi:
587+
588+- Flessibilità: il programmatore può scegliere se usare o meno il linguaggio SQL, dando l'opportunità di lavorare su strutture formate da semplici tabelle o su strutture di qualsiasi complessità permesse da SQL/sqlite
589+- Aggiornamento automatico del database: nessun bisogno di aggiornare manualmente il database con comandi SQL; un singolo metodo si occupa di farlo
590+- Velocità: i dati vengono cacheati in memoria, per velocizzare la navigazione nel dataset
591+- Nessuna installazione/configurazione del server: una semplice dll da distribuire assieme al vostro eseguibile
592+
593+Svantaggi:
594+
595+- Richiede un file esterno (la libreria sqlite)
596+
597+### Requisiti
598+
599+- Per il database sqlite2:
600+ - fpc 2.0.0
601+ - Lazarus 0.9.10
602+ - sqlite runtime library 2.8.15 o successivo (scaricabile da www.sqlite.org)
603+
604+- Per il database sqlite3:
605+ - fpc 2.0.2
606+ - Lazarus 0.9.11 (revisione svn 8443 o seguente)
607+ - sqlite runtime library 3.2.1 o successivo (scaricabile da www.sqlite.org)
608+
609+**Prima di iniziare un progetto lazarus, assicuratevi che:**
610+
611+- la libreria sqlite sia nel PATH di sistema o nella directory dell'eseguibile
612+- in Linux, indicate cmem come prima unit nella clausola uses del programma principale
613+ - In Debian, Ubuntu e in altre distribuzioni Debian-like, per eseguire il build dell'IDE di Lazarus c'è bisogno di installare i package libsqlite-dev/libsqlite3-dev, oltre a sqlite/sqlite3 (vale anche per OpenSuSe)
614+
615+### Come utilizzare SQLite (utilizzo di base)
616+
617+Installate il package che trovate nella directory /components/sqlite ([[Install Packages|qui]] le istruzioni)
618+
619+A design time impostate le seguenti proprietà:
620+
621+- FileName: percorso del database sqlite \[richiesto\]
622+- TableName: nome della table utilizzata nel comando sql \[richiesto\]
623+- Sql: un comando select SQL \[opzionale\]
624+
625+**Creare una Table (Dataset)**
626+
627+Doppio click sull'icona del componente o utilizzate la voce 'Create Table' dal menu popup che compare cliccando col tasto destro del mouse sull'icona del componente. Verrà visualizzato un semplice editor di table.
628+
629+` Questi sono tutti i tipi di campi supportati da TSqliteDataset e TSqlite3Dataset: `\
630+` `\
631+` Integer`\
632+` AutoInc`\
633+` String`\
634+` Memo`\
635+` Bool `\
636+` Float`\
637+` Word`\
638+` DateTime`\
639+` Date`\
640+` Time`\
641+` LargeInt`\
642+` Currency`\
643+` `
644+
645+**Recuperare dati**
646+
647+Dopo aver creato la table o con una table creata in precedenza, aprite il dataset col metodo Open. Se la proprietà SQL non è stata impostata, allora verranno recuperati tutti i records da tutti i campi; stessa cosa se SQL è impostato a:
648+
649+` SQL := 'Select * from TABLENAME'; `
650+
651+**Applicare le modifiche al datafile**
652+
653+Per utilizzare la funzione ApplyUpdates, il dataset deve contenere almeno un campo che risponda ai requisiti di una Primary Key (i valori devono essere UNIQUE e non NULL)
654+
655+E' possibile fare questo in due modi:
656+
657+- Impostando la proprietà PrimaryKey al nome del campo Primary Key
658+- Aggiungendo un campo AutoInc (questo metodo è più semplice, poiché TSqliteDataSet lo gestisce automaticamente come Primary Key)
659+
660+Se una delle due condizioni è soddisfatta basterà chiamare
661+
662+` ApplyUpdates;`
663+
664+PS1: se entrambe le condizioni sono impostate, il campo corrispondente al PrimaryKey viene utilizzato per apportare le modifiche.
665+
666+PS2: Impostare come PrimaryKey un campo che non lo è porterà ad una perdita di dati chiamando ApplyUpdates, quindi assicuratevi che il campo scelto contenga valori non Null e Unique prima di usarlo.
667+
668+### Note
669+
670+- Benché sia stato testato con 10000 records ed abbia funzionato, TSqliteDataset mantiene tutti i dati in memoria, quindi ricordatevi di recuperare solo i dati necessari (principalmente con in campi Memo).
671+- Lo stesso datafile (proprietà Filename) può contenere diverse table/dataset
672+- Diversi dataset (diverse combinazioni di field) possono essere create utilizzando la stessa table contemporaneamente
673+- E' possibile filtrare i dati tramite il comando SQL WHERE, chiudendo e riaprendo il dataset (o chiamando il metodo RefetchData). Ma in questo caso, l'ordine e il numero dei campi deve rimanere lo stesso
674+- E' anche possibile utilizzare comandi SQL complessi come aliases, joins, views in table multiple (ricordate che devono risiedere nello stesso datafile), ma in questo caso ApplyUpdates non funzionerà. Se avete bisogno di utilizzare query complesse e di applicare le modifiche al datafile, inviatemi una mail e vi invierò alcuni consigli su come farlo
675+- E' possibile impostare il filename ad un datafile sqlite2.x non creato con TSqliteDataset e aprirlo, ma alcuni per alcuni campi non verrà riconosciuto correttamente il tipo. Verranno trattati come campi stringa.
676+
677+Alcuni esempi generici possono essere trovati nella directory CVS fpc/fcl/db/sqlite
678+
679+Luiz Américo pascalive(at)bol(dot)com(dot)br
680+
681+## Lazarus e MSSQL
682+
683+Funziona tramite Zeoslib (ultima versione da CVS). Controllate i link in fondo alla pagina.
684+
685+Alternativamente, è possibile accedere ai database MSSQL via ODBC - senza nessun bisogno di installare Zeoslib o altre librerie aggiuntive - basta utilizzare il componente SQLdb incluso (l'ho testato con Lazarus v0.9.26.2)
686+
687+Il codice di esempio qui sotto seleziona le righe da una tabella chiamata 'journal_entries' e mostra tutti i valori della colonna 'journal_entry' in un controllo Memo chiamato Memo1.
688+
689+``` pascal
690+ procedure TForm1.Button1Click(Sender: TObject);
691+ var
692+ S: String;
693+ conn: TODBCConnection;
694+ query: TSQLQuery;
695+ transaction: TSQLTransaction;
696+
697+ begin
698+ conn := TODBCCOnnection.Create(nil);
699+ query := TSQLQuery.Create(nil);
700+ transaction := TSQLTransaction.Create(nil);
701+ try
702+ try
703+ conn.HostName := '127.0.0.1';
704+ conn.DatabaseName := 'diary'; {replace this with the name of your database}
705+ conn.Transaction := transaction;
706+ conn.UserName:= 'db_username';
707+ conn.Password:= '';
708+ query.DataBase := conn;
709+ query.UsePrimaryKeyAsKey:=false; {required, else you get "could not retrieve primary
710+ key metadata". I was really stuck on this until I found
711+ http://bugs.freepascal.org/view.php?id=13241}
712+ query.SQL.Text := 'select * from diary.dbo.journal_entries';
713+ query.Open;
714+ S := '';
715+ while not query.EOF do
716+ begin
717+ S := S + query.FieldByName('journal_entry').AsString + #13#10;
718+ query.Next;
719+ end;
720+ finally
721+ query.Free;
722+ conn.Free;
723+ end;
724+ except
725+ on E: Exception do
726+ ShowMessage(E.message);
727+ end;
728+ Memo1.Text:= S;
729+ end;
730+```
731+
732+## Lazarus e Interbase / Firebird
733+
734+Controllate [[Install Packages]]. In questa pagina c'è un piccolo esempio iniziale con una spiegazione su come connettersi a un server IB o FB.
735+
736+Funziona Zeoslib anche con l'ultima versione di Zeoslib (dal CVS).
737+
738+### Libreria FBLib per Firebird
739+
740+[1](http://fblib.altervista.org/%7CFBLib) è una libreria Open Source Non Data Aware per l'accesso diretto al Database Relazionale Firebird da Borland Delphi / Kylix, Freepascal e Lazarus.
741+
742+Caratteristiche attualmente implementate:
743+
744+- Accesso diretto a Firebird 1.0.x 1.5.x Classic o SuperServer
745+- Multipiattaforma \[Win32, Gnu/Linux, FreeBSD)
746+- Selezione automatica della libreria client 'fbclient' o 'gds32'
747+- Query con parametri
748+- Supporto del dialetto 1/3 di SQL
749+- Licenza LGPL
750+- Estrazione di metadata
751+- Semplice parser di script
752+- Solo 100-150 KB aggiunti al file EXE finale
753+- Supporto dei campi BLOB
754+- Esportazione dei dati in HTML SQL Script
755+- Service manager (backup, ripristino, gfix...)
756+- Events Alerter
757+
758+Potete scaricare la documentazione dal [sito di FBLib](http://fblib.altervista.org/).
759+
760+## Lazarus e dBase
761+
762+Tony Maro
763+
764+Potete anche visitare la pagina [[Lazarus Tdbf Tutorial|TDbf Tutorial]]
765+
766+FPC include un semplice componente per database che funziona in modo simile al componente TTable di Delphi, chiamato "TDbf" ([TDbf Website](http://tdbf.sourceforge.net/)) che supporta un sottoinsieme base di caratteristiche per la gestione di files dBase. Non viene installato di default, quindi per prima cosa dovrete installarne il package dalla directory "lazarus/components/tdbf" ed eseguire il rebuild dell'IDE di Lazarus. Comparirà quindi vicino al componente TDatasource nella palette dei componenti (tab Data Access).
767+
768+Il componente TDbf ha un vantaggio rispetto ad altri componenti per database nel fatto che non richiede nessun tipo di motore database a runtime; comunque non rappresenta la migliore alternativa per applicazioni con database molto grandi.
769+
770+E' molto semplice da utilizzare: basta posizionare un TDbf sul form, impostare il percorso della directory dove si trovano i files del vostro database, impostare il nome della table e collegarlo ad un componente TDatasource.
771+
772+Funzionalità più avanzate richiedono uno sforzo maggiore. Se una table non esiste, avrete bisogno di crearla in qualche modo, a meno che non ci sia qualche table designer compatibile di cui non sono a conoscenza. Nota: la versione corrente di OpenOffice (2.0x) contiene OpenOffice Base, che può creare files dbf in maniera molto semplice.
773+
774+Provare ad aprire una table non esistente genererà un errore. Le table possono essere create tramite il componente dopo aver impostato il runtime path e il nome della table.
775+
776+Per esempio, per creare una table chiamata "dvds" per gestire la vostra collezione di dvd dovrete posizionare il componente su un form, impostare il runtime path e modificare il table name in "dvds". Il risultante file del database verrà chiamato "dvds.dbf".
777+
778+Nel codice, inserite quanto segue:
779+
780+``` pascal
781+ Dbf1.FilePathFull := '/path/to/my/database';
782+ Dbf1.TableName := 'dvds';
783+ With Dbf1.FieldDefs do begin
784+ Add('Name', ftString, 80, True);
785+ Add('Description', ftMemo, 0, False);
786+ Add('Rating', ftString, 5, False);
787+ end;
788+ Dbf1.CreateTable;
789+```
790+
791+Quando farete girare il programma, la table della vostra collezione di DVD verrà creata. Dopo di ciò, tutti i componenti data aware collegati tramite il TDatasource a questo componente permetteranno di accedere facilmente ai dati.
792+
793+Aggiungere un indice risulta un po' differente da come si gestisce una TTable classica. Deve essere fatto dopo che il database è stato aperto. E' anche lo stesso metodo usato per ricostruire gli indici. Per esempio:
794+
795+``` pascal
796+ Dbf1.Exclusive := True;
797+ Dbf1.Open;
798+ Dbf1.AddIndex('dvdsname','Name',[ixPrimary, ixUnique, ixCaseInsensitive]);
799+ Dbf1.AddIndex('rating.ndx', 'Rating', [ixCaseInsensitive]);
800+ Dbf1.Close;
801+```
802+
803+Il primo (primary) indice sarà un file chiamato "dvdsname.mdx" e il secondo sarà un file chiamato "rating.ndx", quindi in un database su diverse table dovrete fare attenzione a non utilizzare lo stesso nome di file più di una volta.
804+
805+Proverò ad aggiungere un esempio più articolato in seguito, ma spero che questo permetterà ai vecchi programmatori Delphi di cominciare a lavorare con i database in Lazarus!
806+
807+### Ricerca e Visualizzazione di un insieme di dati
808+
809+Simon Batty
810+
811+In questo esempio ho provato a fare una ricerca su un database di libri per tutti i titoli di un autore e a mostrarli in una memo box
812+
813+``` pascal
814+ Dbf1.FilePathFull := '/home/somelocatio/database_location/'; // path to the database directory
815+ Dbf1.TableName := 'books.dbase'; // database file (including extension)
816+ DbF1.Open;
817+ memo1.Clear; // clear the memo box
818+
819+ Dbf1.FilterOptions := [foCaseInsensitive];
820+ Df1.Filter := 'AU=' + QuotedStr('anauthor'); // AU is the field name containing the authors
821+
822+ Dbf1.Filtered := true; // This selects the filtered set
823+ Dbf1.First; // moves the the first filtered data
824+ while not dbf1.EOF do // prints the titles that match the author to the memo box
825+ begin
826+ memo1.Append(Dbf1.FieldByName('TI').AsString); // TI is the field name for titles
827+ dbf1.next; // use .next here NOT .findnext!
828+ end;
829+ Dbf1.Close;
830+```
831+
832+Notare che è possibile utilizzare Ddf1.findfirst per ottenere il primo record nell'elenco filtrato, quindi utilizzare Dbf1.next per muoversi tra i dati. Ho scoperto che l'utilizzo di Dbf1.Findnext causa un blocco del programma.
833+
834+Questo database è stato generato utilizzando TurboBD che viene distribuito con Kylix 1. Non sono riuscito a far funzionare con Lazarus le table fatte con TurboBD; in ogni caso potete scaricare un tool da linea di comando dal sito di TurboDB che permette di convertire le table di TurboDB in altri formati.
835+
836+## Utilizzare TSdfDataset e TFixedDataset
837+
838+TSdfDataset e TFixedDataset sono due semplici dataset che offrono un formato di memorizzazione testuale molto semplice. Questi dataset sono molto comodi per piccoli database, perché sono totalmente implementati come una unità object pascal, quindi non richiedono librerie esterne, e perché il loro formato testuale permette di modificarli facilmente con un editor di testo.
839+
840+Per iniziare con questi formati, bisogna creare un file per il database iniziale. Il formato è davvero semplice, quindi si può utilizare un editor di testo per farlo.
841+
842+Qui in basso è riportato un database di esempio per TSdfDataset. Notare che la prima linea ha i nomi dei campi e che si stanno utilizzando le virgole come separatori:
843+
844+ ID,NAMEEN,NAMEPT,HEIGHT,WIDTH,PINS,DRAWINGCODE
845+ 1,resistor,resistor,1,1,1,LINE
846+ 2,capacitor,capacitor,1,1,1,LINE
847+ 3,transistor npn,transistor npn
848+
849+E di seguito c'è un esempio di database da utilizzare con TFixedDataset. Ogni record occupa una quantità di spazio fissa e, se il campo è più piccolo, si dovranno usare degli spazi per riempirlo.
850+
851+ Name = 15 chars; Surname = 15 chars; Tell = 10 chars; e_mail = 20 chars;
852+ Piet Pompies piet@pompies.net
853+
854+### Utilizzare i dataset direttamente
855+
856+Alcune volte può risultare utile creare un dataset e lavorare su di esso completamente via codice; il codice seguente mostra esattamente come farlo. Notare alcune caratteristiche di TSdfDataset/TFixedDataset:
857+
858+- Le linee nel database possono avere una dimensione massima di circa 300. Si sta cercando un modo per ovviare al problema.
859+- E' necessario aggiungere le definizioni dei campi. Alcuni dataset sono in grado di ricavare da soli questa informazione a partire dal file del database
860+- Bisogna impostare FirstLineAsSchema a true, per indicare che la prima linea include il nome del campo e le posizioni
861+- La proprietà Delimiter contiene il separatore per i campi. Non sarà possibile utilizzare questo carattere nelle stringhe nel database. In maniera simile, non sarà possibile avere dei caratteri di fine riga nel database perché essi segnano il passaggio da un record al successivo. E' possibile ovviare all'inconveniente sostituendo la virgola o il fine riga con un altro carattere poso usato, come ad esempio \#. Quindi, mostrando i dati sullo schermo, tutti i caratteri \# potranno essere convertiti in fine riga; al contrario, memorizzando i dati nel database, tutti i fine riga verranno convertiti in \#. La funzione ReplaceString può tornare utile in questo caso.
862+
863+``` pascal
864+constructor TComponentsDatabase.Create;
865+begin
866+ inherited Create;
867+
868+ FDataset := TSdfDataset.Create(nil);
869+ FDataset.FileName := vConfigurations.ComponentsDBFile;
870+
871+ // Not necessary with TSdfDataset
872+// FDataset.TableName := STR_DB_COMPONENTS_TABLE;
873+// FDataset.PrimaryKey := STR_DB_COMPONENTS_ID;
874+
875+ // Adds field definitions
876+ FDataset.FieldDefs.Add('ID', ftString);
877+ FDataset.FieldDefs.Add('NAMEEN', ftString);
878+ FDataset.FieldDefs.Add('NAMEPT', ftString);
879+ FDataset.FieldDefs.Add('HEIGHT', ftString);
880+ FDataset.FieldDefs.Add('WIDTH', ftString);
881+ FDataset.FieldDefs.Add('PINS', ftString);
882+ FDataset.FieldDefs.Add('DRAWINGCODE', ftString);
883+
884+ // Necessary for TSdfDataset
885+ FDataset.Delimiter := ',';
886+ FDataset.FirstLineAsSchema := True;
887+
888+ FDataset.Active := True;
889+
890+ // Sets the initial record
891+ CurrentRecNo := 1;
892+ FDataset.First;
893+end;
894+```
895+
896+Quando si usa direttamente TSdfDataset, bisogna tenere presente che RecNo, benché sia implementato, non funziona come modo per muoversi attraverso il dataset sia in lettura che in scrittura dei record. Le funzioni standard di navigazione come First, Next, Prior e Last funzionano come previsto, quindi si dovranno usare quest'ultime piuttosto che RecNo. Se si è soliti utilizzare numeri di record assoluti per navigare in un database, è possibile implementare la propria versione di RecNo. E' sufficiente dichiarare una variabile globale di tipo longint chiamata CurrentRecNo che conterrà il valore corrente di RecNo. Bisogna ricordare che questa variabile seguirà la stessa convenzione di RecNo, quindi il primo record first sarà 1 (non è zero-based). Dopo l'attivazione del database bisogna inizializzarlo al primo record tramite TSdfDataset.First e impostare CurrentRecNo := 1
897+
898+``` pascal
899+{@@
900+ Moves to the desired record using TDataset.Next and TDataset.Prior
901+ This avoids using TDataset.RecNo which doesn't navigate reliably in any dataset.
902+
903+ @param AID Indicates the record number. The first record has number 1
904+}
905+procedure TComponentsDatabase.GoToRec(AID: Integer);
906+begin
907+ // We are before the desired record, move forward
908+ if CurrentRecNo < AID then
909+ begin
910+ while (not FDataset.EOF) and (CurrentRecNo < AID) do
911+ begin
912+ FDataset.Next;
913+ FDataset.CursorPosChanged;
914+ Inc(CurrentRecNo);
915+ end;
916+ end
917+ // We are after the desired record, move back
918+ else if CurrentRecNo > AID then
919+ begin
920+ while (CurrentRecNo >= 1) and (CurrentRecNo > AID) do
921+ begin
922+ FDataset.Prior;
923+ FDataset.CursorPosChanged;
924+ Dec(CurrentRecNo);
925+ end;
926+ end;
927+end;
928+```
929+
930+### Using with data-aware controls
931+
932+## Altri Links
933+
934+- [[Databases|Creating Databases Applications with Lazarus using the DB-unit]]\
935+- [[MySQLDatabases|Creating a database application using MySQL]]\
936+- [[Zeos tutorial|Creating a database application using the Zeos components]]
937+- [Pascal Data Objects](http://pdo.sourceforge.net) is a database API that worked for both FPC and Delphi and utilises native MySQL libraries for version 4.1 and 5.0 and Firebird SQL 1.5, and 2.0. It's inspired by PHP's PDO class.
938+
939+## Contributi e Modifiche
940+
941+Questa pagina è stata convertita dalla [versione](http://lazarus-ccr.sourceforge.net/index.php?wiki=LazarusDatabase) di epikwiki.
942+
943+---
944+*From the Free Pascal wiki, page "Lazarus Database Tutorial/it", as it stood on 2020-02-18 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).*
945+Category: Italiano

Back to history