SQLite/pl: what changed

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

Old	New		Line
1	1		## Obsługa SQLite i FPC/Lazarus
2	2
3	3		SQLite to wbudowana (nie serwerowa) baza danych dla jednego użytkownika, która może być używana w aplikacjach FPC i Lazarus. Aby uzyskać dostęp do SQLite z programów FPC/Lazarus, można użyć różnych sterowników. Wszystkie sterowniki do poprawnej pracy potrzebują biblioteki/dll SQLite umieszczonej w katalogu wykonywalnym (którym może być katalog projektu lub np. (katalog projektu)/lib/architecture/ w zależności od ustawień projektu Lazarus) (i dystrybuowane z plikiem wykonywalnym).
4	4
5	5		Biblioteka ta może być również umieszona w twoim katalogu Lazarus IDE. Zobacz [1](https://forum.lazarus.freepascal.org/index.php?topic=46118.msg327940#msg327940) oraz czytaj dalej, szczególnie dla Zobacz poniżej
6	6
7	7		Większość dystrybucji Linuksa ma domyślnie zainstalowany sqlite3 (np. libsqlite3.so.0), ale dystrybucje Ubuntu wymagają również odpowiedniego pakietu Dev. Oba powinny zostać zainstalowane za pośrednictwem menedżera pakietów systemowych i oznaczone jako zależność, a nie dystrybuowane z aplikacją.
8	8
9	9		Win64: zobacz [[Windows Programming Tips\|to]] ostrzeżenie o nieużywaniu niektórych wersji FPC/Lazarus Win64.
10	10
11	11		### Bezpośredni dostęp do SQLite
12	12
13	13		Możesz w prosty sposób połączyć SQLite z Lazarusem. Komponenty, które nazywasz LiteDAC. SQLite Data Access Components (LiteDAC) to biblioteka komponentów, która zapewnia natywną łączność z SQLite z Lazarus (i Free Pascal) w systemach Windows, macOS, iOS, Android, Linux i FreeBSD dla platform 32-bitowych i 64-bitowych. LiteDAC jest przeznaczony dla programistów do tworzenia prawdziwie wieloplatformowych aplikacji bazodanowych SQLite na komputery stacjonarne i mobilne bez konieczności wdrażania dodatkowych bibliotek. Wersję próbną tego komercyjnego produktu można pobrać na stronie [Komponenty Lazarusa](https://www.devart(dot)com/litedac/download.html). Uwaga, w linku zamień wyrażenie (dot) na kropkę.
14	14
15	15		### Wbudowane komponenty SQLDB
16	16
17	17		FPC/Lazarus oferuje wbudowane komponenty SQLDB, które obejmują obsługę baz danych SQLite ([[TSQLite3Connection]]) na zakładce [[SQLdb]] [[Component Palette\|Palety Komponentów]], które pozwalają m.in. tworzyć GUI z komponentami bazy danych, takimi jak TDBGrids. Zaletą korzystania z komponentów baz danych SQLDB jest to, że dość łatwo jest przejść do innej bazy danych, takiej jak Firebird lub PostgreSQL, bez zbytniego zmieniania programu. Zobacz poniżej szczegóły.
18	18
19	19		#### Wsparcie dla Spatialite
20	20
21	21		Spatialite to rozszerzenia GIS do SQLite, których można używać z poziomu bazy danych SQL. Zobacz [[Spatialite]].
22	22
23	23		#### Obsługa szyfrowania w SQLite
24	24
25	25		W ostatnich wersjach FPC (wdrożonych w marcu 2012 r.) SQLDB zawierał obsługę niektórych rozszerzonych wersji SQLite3, które szyfrują plik bazy danych SQLite przy użyciu algorytmu AES. Użyj właściwości hasła, aby ustawić klucz szyfrowania.
26	26
27	27		Przykłady:
28	28
29	29		- [SQLCipher](http://sqlcipher.net/): open source, lecz nie darmowe, dostępne są m.in. pliki binarne Windows (jednak musisz je skompilować samodzielnie)
30	30		- [System.Data.SQLite](http://system.data.sqlite.org/): open source, dostępne są binaria Windows (32, 64, CE), pobierz np. jeden z prekompilowanych plików binarnych i zmień nazwę SQLite.Interop.dll na sqlite3.dll (jeśli używasz statycznie dołączanych bibliotek, prawdopodobnie musisz zmienić nazwę System.Data.SQLite.DLL na sqlite3.dll)
31	31		- [wxSQLite3](http://wxcode.sourceforge.net/docs/wxsqlite3/): open source
32	32		- [sqleet](https://github.com/resilar/sqleet): open source, brak zależności od innych bibliotek, łatwo kompiluje się za pomocą GCC do plików wykonywalnych i pliki bibliotek, wieloplatformowy. Mechanizmy szyfrowania są dostępne zarówno interaktywnie, jak i poprzez sqleet API.
33	33
34	34		#### sqlite3backup
35	35
36	36		sqlite3backup to jest moduł dostarczany z FPC (nie z Lazarus, ale może być w nim używany programowo), który zapewnia funkcje tworzenia kopii zapasowych/przywracania dla SQLite3. Wykorzystuje sqlite3conn bazy danych SQLDB.
37	37
38	38		### Zeos
39	39
40	40		[Zeos](https://sourceforge.net/projects/zeoslib/)
41	41
42	42		### SQLitePass
43	43
44	44		Komponenty [SQLitePass](http://source.online.free.fr/). Ostatnia aktualizacja kodu w 2010. Ostatnia aktywność na forum w 2011.
45	45
46	46		### TSQLite3Dataset i TSQLiteDataset
47	47
48	48		Istnieją również oddzielne pakiety TSQLiteDataset (moduł sqliteds) i TSQLite3Dataset (moduł sqlite3ds); poniżej znajdziesz opis, jak z nich korzystać. Odwiedź [stronę główną sqlite4fpc](http://sqlite4fpc.yolasite.com/), aby znaleźć informacje o interfejsie API i więcej samouczków.
49	49
50	50		TSqliteDataset i TSqlite3Dataset są potomkami [[TDataSet/pl\|TDataSet]], które uzyskują dostęp odpowiednio do baz danych sqlite 2.8.x i 3.x.x. W przypadku nowych projektów prawdopodobnie użyjesz TSQlite3Dataset, ponieważ SQLite 3.x jest aktualną wersją.
51	51
52	52		Poniżej znajduje się lista głównych zalet i wad w porównaniu z innymi sterownikami/metodami dostępu FPC/Lazarus SQLite:
53	53
54	54		Zalety:
55	55
56	56		- Elastyczny: programiści mogą wybrać, czy chcą używać języka SQL, czy nie, co pozwala im pracować z prostymi układami tabel lub dowolnym złożonym układem, na który pozwala SQL/sqlite
57	57
58	58		Wady:
59	59
60	60		- Zmiana na inne bazy danych jest trudniejsza niż w przypadku korzystania z komponentów SQLDB lub Zeos
61	61
62	62		> Note: Biorąc pod uwagę powyższe, wielu użytkowników będzie używać SQLDB lub Zeos ze względu na zalety, chyba że potrzebują dostępu niższego poziomu do biblioteki SQLite
63	63
64	64		## Używanie komponentów SQLdb z SQLite
65	65
66	66		Te instrukcje koncentrują się na specyfice SQLDB (TSQLite3Connection) dla SQLite. Aby uzyskać ogólny przegląd, spójrz na [[SqlDBHowto]], który zawiera przydatne informacje o komponentach SQLdb.
67	67
68	68		Zobacz [[SQLdb Tutorial1]], aby zapoznać się z samouczkiem na temat tworzenia GUI programu obsługującego bazę danych, który jest napisany dla SQLite/SQLDB (jak również dla Firebird/SQLDB, PostgreSQL/SQLDB, w zasadzie wszystkich obsługiwanych przez RDBMS SQLDB).
69	69
70	70		Wykorzystamy kombinację trzech komponentów z zakładki Lazarus SQLdb: TSQLite3Connection, TSQLTransaction oraz TSQLQuery. TSQLQuery działa jak nasz TDataSet; w najprostszym przypadku reprezentuje po prostu jedną z naszych tabel. Dla uproszczenia: upewnij się, że masz już istniejący plik bazy danych SQLite i nie musisz teraz tworzyć nowego. TSQLite3Connection można znaleźć w module sqlite3conn, ktory pownieneś zadeklarować samodzielnie jeśli pracujesz we FreePascalu.
71	71
72	72		Te trzy komponenty łączy się ze sobą zwykle tak: W TSQLQuery ustaw właściwości Database i Transaction, a w TSQLTransaction ustaw właściwość Database. Nie ma wiele do zrobienia w komponentach Transaction i Connection, większość interesujących rzeczy zostanie zrobione w TSQLQuery. Skonfiguruj komponenty w następujący sposób:
73	73
74	74		TSQLite3Connection:
75	75
76	76		- DatabaseName: Ustaw tę właściwość na nazwę pliku (ścieżkę bezwzględną!) swojego pliku SQLite. Niestety, nie można po prostu użyć ścieżki względnej, która działa bez zmian w czasie projektowania i w czasie wykonywania *czy to nadal prawda? Czy nie można po prostu skopiować plik db w skrypcie powłoki po kompilacji lub połączyć go symbolicznie?*. Należy upewnić się, że podczas uruchamiania aplikacji poprawna ścieżka do pliku jest zawsze ustawiana programowo, bez względu na to, co zawierała w czasie projektowania.
77	77
78	78		Uwaga: Aby ustawić pełną ścieżkę biblioteki (jeśli umieścisz swoją bibliotekę sqlite dll/so/dylib w miejscu, w którym system operacyjny go nie znajdzie, na przykład w katalogu aplikacji w systemie Linux/OSX), możesz ustawić właściwość SQLiteLibraryName (PRZED nawiązaniem jakiegokolwiek połączenia, np. w zdarzeniu OnCreate formularza głównego), np.:
79	79
80	80		``` pascal
81	81		SQLiteLibraryName:='./sqlite3.so';
82	82		```
83	83
84	84		TSQLQuery:
85	85
86	86		- SQL: Ustaw ją na proste zapytanie wybierające dane z jednej ze swoich tabel. Na przykład, jeśli masz tabelę „foo” i chcesz, aby ten zbiór danych reprezentował tę tabelę, użyj po prostu:
87	87		``` SQL
88	88		SELECT * FROM foo
89	89		```
90	90
91	91		- Active: Ustaw to na True z poziomu IDE, aby sprawdzić, czy wszystko jest poprawnie skonfigurowane. Spowoduje to również automatyczne aktywowanie transakcji i obiektów połączenia. Jeśli pojawi się błąd, oznacza to, że nazwa bazy danych połączenia jest niepoprawna lub zapytanie SQL jest nieprawidłowe. Później, gdy zakończymy dodawanie pól (patrz poniżej), ustaw je ponownie jako nieaktywne, nie chcemy, aby IDE blokowało bazę danych SQLite (pojedynczy użytkownik!) podczas testowania aplikacji.
92	92
93	93		- Prawdopodobnie nie jest to konieczne do poprawnego działania - będzie wymagało sprawdzenia (czerwiec 2012) Teraz możemy dodać Pola do naszego TSQLQuery. Podczas gdy komponenty są nadal aktywne, kliknij prawym przyciskiem myszy i „edytuj pola...”. Kliknij przycisk „+” i dodaj pola. Wyświetli się lista wszystkich pól zwróconych przez Twoje zapytanie SQL. Dodaj wszystkie potrzebne pola, możesz również dodać tutaj pola wyszukiwania; w takim przypadku po prostu upewnij się, że zdefiniowałeś już wszystkie potrzebne pola w innych zestawach danych, zanim zaczniesz dodawać pola odnośników, które się do nich odwołują. Jeśli Twoja tabela ma wiele kolumn i nie potrzebujesz ich wszystkich, możesz je po prostu pominąć, możesz również nieco bardziej uszczegółowić swój kod SQL.
94	94
95	95		- W swoim kodzie musisz wywołać zdarzenia SQLQuery.ApplyUpdates i SQLTransaction.Commit, TSQLQuery.AfterPost i AfterInsert, które są do tego dobrym miejscem, gdy używasz go z kontrolkami obsługującymi dane, ale oczywiście możesz również odłożyć te wywołania na później. Jeśli te wywołania nie zostaną wykonane, baza danych nie zostanie zaktualizowana.
96	96
97	97		- „Baza danych jest zablokowana”: IDE może nadal blokować bazę danych (SQLite jest bazą danych jednego użytkownika), prawdopodobnie zapomniałeś ustawić komponenty jako nieaktywne i ponownie rozłączone po zakończeniu definiowania wszystkich pól obiektów TSQLQuery. Użyj zdarzenia OnCreate formularza, aby ustawić ścieżkę i aktywować obiekty tylko w czasie wykonywania. Większość rzeczy ustawianych w TSQLQuery z poziomu IDE nie wymaga (a niektóre nawet nie pozwalają) by były aktywne w czasie projektowania, jedynym wyjątkiem jest zdefiniowanie pól, z których chce się odczytać projekt tabeli, więc w czasie projektowania stan nieaktywny powinien być normalnym stanem.
98	98
99	99		- Wszystkie Twoje tabele powinny mieć klucz podstawowy i musisz upewnić się, że odpowiednie pole ma pfInKey i nic więcej w swoich PoviderFlags (te flagi kontrolują, jak i gdzie pole jest używane podczas automatycznego tworzenia zapytań aktualizujących i usuwających).
100	100
101	101		- Jeśli używasz pól wyszukiwania
102	102		- upewnij się, że ProviderFlags dla pola wyszukiwania jest całkowicie pusty, aby nie próbowało użyć swojej nazwy w zapytaniu aktualizującym. Samo pole odnośnika nie jest polem danych, działa tylko na wartość innego pola, odpowiadającego pola klucza i tylko to pole klucza będzie później używane w zapytaniach aktualizujących. Możesz ustawić pole klucza na ukryte, ponieważ zwykle nie chcesz go widzieć w swoim DBGrid, ale należy je zdefiniować.
103	103		- LookupCache musi być ustawiony na True. W chwili pisania tego tekstu z jakiegoś powodu pole odnośnika nie wyświetli nic innego (ale nadal będzie działać) i dziwnie dokładnie odwrotnie jest w przypadku pracy z TSQLite3Dataset lub innymi komponentami TXXXDataset, tutaj musi być ustawione na False. Nie jestem jeszcze pewien, czy jest to zamierzone zachowanie, czy błąd.
104	104
105	105		- Zwykle w przypadku prostych tabel nie musisz ustawiać żadnych właściwości InsertSQL, UpdateSQL i DeleteSQL, po prostu zostaw je puste. Jeśli masz ustawione poprawnie flagi dostawcy wszystkich pól, to powinno być w stanie utworzyć potrzebny kod SQL w locie. Aby uzyskać więcej informacji na temat InsertSQL, UpdateSQL i DeleteSQL, zobacz [[Working With TSQLQuery\|Working_With_TSQLQuery#InsertSQL.2C_UpdateSQL_and_DeleteSQL_-_Basic_use_of_parameters]].
106	106
107	107		Po poprawnym skonfigurowaniu powyższego, powinieneś być teraz w stanie używać TSQLQuery jak każdego innego zestawu TDataset, manipulując jego danymi programowo lub umieszczając TDatasouce w formularzu, łącząc go z TSQLQuery, a następnie używając kontroli danych, takich jak TDBGrid itp.
108	108
109	109		### Tworzenie bazy danych
110	110
111	111		Metoda [TSQLite3Connection.CreateDB](http://www.freepascal.org/docs-html/fcl/sqldb/tsqlconnection.createdb.html) odziedziczona z klasy nadrzędnej w rzeczywistości nic nie robi; aby utworzyć bazę danych, jeśli jeszcze nie istnieje plik bazy, wystarczy zapisać dane tabeli, jak w poniższym przykładzie:
112	112
113	113		(Kod wyodrębniony z przykładu sqlite_encryption_pragma, który jest dostarczany z Lazarus 1.3 i nowszymi)
114	114
115	115		``` pascal
116	116		var
117	117		newFile : Boolean;
118	118		begin
119	119
120	120		SQLite3Connection1.Close; // Upewnij się, że połączenie jest zamknięte, gdy zaczynamy
121	121
122	122		try
123	123		// Ponieważ tworzymy tę bazę danych po raz pierwszy,
124	124		// sprawdź, czy plik już istnieje
125	125		newFile := not FileExists(SQLite3Connection1.DatabaseName);
126	126
127	127		if newFile then
128	128		begin
129	129		// Utwórz bazę danych i tabele
130	130		try
131	131		SQLite3Connection1.Open;
132	132		SQLTransaction1.Active := true;
133	133
134	134		// Tutaj konfigurujemy tabelę o nazwie „DATA” w nowej bazie danych
135	135		SQLite3Connection1.ExecuteDirect('CREATE TABLE "DATA"('+
136	136		' "id" Integer NOT NULL PRIMARY KEY AUTOINCREMENT,'+
137	137		' "Current_Time" DateTime NOT NULL,'+
138	138		' "User_Name" Char(128) NOT NULL,'+
139	139		' "Info" Char(128) NOT NULL);');
140	140
141	141		// Tworzenie indeksu na podstawie id w tabeli DATA
142	142		SQLite3Connection1.ExecuteDirect('CREATE UNIQUE INDEX "Data_id_idx" ON "DATA"( "id" );');
143	143
144	144		SQLTransaction1.Commit;
145	145
146	146		ShowMessage('Pomyślnie utworzono bazę danych.');
147	147		except
148	148		ShowMessage('Nie można utworzyć nowej bazy danych');
149	149		end;
150	150		end;
151	151		except
152	152		ShowMessage('Nie można sprawdzić, czy plik bazy danych istnieje');
153	153		end;
154	154		end;
155	155		```
156	156
157	157		### Tworzenie zestawień zdefiniowanych przez użytkownika
158	158
159	159		``` pascal
160	160		// Funkcja daje wynik porównania z rozróżnianiem wielkości liter w utf8
161	161		function UTF8xCompare(user: pointer; len1: longint; data1: pointer; len2: longint; data2: pointer): longint; cdecl;
162	162		var S1, S2: AnsiString;
163	163		begin
164	164		SetString(S1, data1, len1);
165	165		SetString(S2, data2, len2);
166	166		Result := UnicodeCompareStr(UTF8Decode(S1), UTF8Decode(S2));
167	167		end;
168	168
169	169		// Funkcja daje wynik porównania bez rozróżniania wielkości liter w utf8
170	170		function UTF8xCompare_CI(user: pointer; len1: longint; data1: pointer; len2: longint; data2: pointer): longint; cdecl;
171	171		var S1, S2: AnsiString;
172	172		begin
173	173		SetString(S1, data1, len1);
174	174		SetString(S2, data2, len2);
175	175		Result := UnicodeCompareText(UTF8Decode(S1), UTF8Decode(S2));
176	176		end;
177	177
178	178		// zarejestruj porządek sortowania za pomocą SQLite3 API (wymaga modułu sqlite3dyn):
179	179		sqlite3_create_collation(SQLite3.Handle, 'UTF8_CI', SQLITE_UTF8, nil, @UTF8xCompare_CI);
180	180		// lub za pomocą metody TSQLite3Connection:
181	181		CreateCollation('UTF8_CI',1,nil,@UTF8xCompare_CI);
182	182
183	183		// teraz możemy użyć porównania bez rozróżniania wielkości liter w SQL, takich jak:
184	184		// SELECT * FORM table1 WHERE column1 COLLATE UTF8_CI = 'ą'
185	185
186	186		// ale to nie działa dla operatora LIKE
187	187		// w celu obsługi również operatora LIKE musimy przeciążyć domyślną funkcję LIKE za pomocą sqlite3_create_function()
188	188		// http://www.sqlite.org/lang_corefunc.html#like
189	189		```
190	190
191	191		### Tworzenie funkcji zdefiniowanych przez użytkownika
192	192
193	193		``` pascal
194	194		// przykład przeciążenia domyślnej funkcji LOWER() funkcją podaną przez użytkownika
195	195		// aby uruchomić to demo, musisz dodać moduły 'sqlite3dyn' i 'ctypes' do sekcji uses
196	196		// i dodać stałą 'SQLITE_DETERMINISTIC' o wartości $800
197	197
198	198		procedure UTF8xLower(ctx: psqlite3_context; N: cint; V: ppsqlite3_value); cdecl;
199	199		var S: AnsiString;
200	200		begin
201	201		SetString(S, sqlite3_value_text(V[0]), sqlite3_value_bytes(V[0]));
202	202		S := UTF8Encode(AnsiLowerCase(UTF8Decode(S)));
203	203		sqlite3_result_text(ctx, PAnsiChar(S), Length(S), sqlite3_destructor_type(SQLITE_TRANSIENT));
204	204		end;
205	205
206	206		// rejestracja funkcji LOWER() przy użyciu SQLite3 API (wymaga modułu sqlite3dyn):
207	207		sqlite3_create_function(SQLite3.Handle, 'lower', 1, SQLITE_UTF8 or SQLITE_DETERMINISTIC, nil, @UTF8xLower, nil, nil);
208	208		```
209	209
210	210		### SQLite3 i daty
211	211
212	212		- SQLite 3 nie przechowuje dat jako specjalnej wartości typu DateTime. Może przechowywać je jako ciągi typu string, liczby typu doubles lub liczby całkowite typu integer - patrz <http://www.sqlite.org/datatype3.html#datetime>.
213	213		- W ciągach string separatorem daty jest „-”, zgodnie ze standardem SQL/ISO 8601. Tak więc, jeśli wykonasz INSERT za pomocą wbudowanej funkcji DATE, zostanie ona przechowana jako coś w rodzaju „RRRR-MM-DD”.
214	214		- Odczytywanie wartości DateTime może powodować problemy dla DataSet, jeśli są one przechowywane jako ciągi: kwalifikator .AsDateTime może zatrzymać się na takim „string date”, ale można to obejść, używając czegoś takiego jak `strftime(``%d/%m/%Y``,recdate) AS sqlite3recdate` w instrukcji SQL SELECT, co wymusza na SQLite3 zwrócenie rekordu daty w określonym formacie. (ciąg formatu %d/%m/%d odpowiada Twojemu regionalnemu formatowi daty, który .AsDateTime zrozumie) ==\> Otwórz zgłoszenie błędu z przykładową aplikacją demonstrującą problem, jeśli taki wystąpi
215		-	- Podczas porównywania dat zapisanych jako ciągi (używając na przykład funkcji BETWEEN) pamiętaj, że porównanie będzie zawsze porównaniem <b>ciągu</b> i dlatego będzie zależeć od tego, jak zachowałeś wartość daty.
	215	+	- Podczas porównywania dat zapisanych jako ciągi (używając na przykład funkcji BETWEEN) pamiętaj, że porównanie będzie zawsze porównaniem ciągu i dlatego będzie zależeć od tego, jak zachowałeś wartość daty.
216	216
217	217		#### Wartości domyślne w czasie lokalnym zamiast UTC
218	218
219	219		CURRENT_TIME, CURRENT_DATE i CURRENT_TIMESTAMP zwracają aktualną datę i/lub czas UTC. Dla lokalnej daty i/lub czasu możemy użyć:
220	220
221	221		` DEFAULT (datetime('now','localtime')) dla sformatowanych wartości daty i godziny YYYY-MM-DD HH:MM:SS`\
222	222		` DEFAULT (date('now','localtime')) dla sformatowanej wartości daty YYYY-MM-DD`\
223	223		` DEFAULT (time('now','localtime')) dla sformatowanej wartości czasu HH:MM:SS`
224	224
225	225		### Rozwiązywanie problemów z SQLDB i SQLite
226	226
227	227		- Należy pamiętać, że aby wsparcie w czasie projektowania (pola itp.) mogło działać, Lazarus musi również znaleźć plik sqlite3.dll.
228	228		- To samo dotyczy nazwy pliku bazy danych. Zawsze używaj ścieżki bezwzględnej, jeśli używasz komponentów do wyodrębniania m.in. nazwy pól w czasie projektowania. W przeciwnym razie IDE utworzy pusty plik w swoim katalogu. W razie problemów sprawdź, czy w katalogu lazarus/ nie ma pustej kopii pliku bazy danych.
229	229		- Jeśli masz relację master/detail, musisz odświeżyć główny zestaw danych po każdym wstawieniu, aby uzyskać wartość pola klucza obcego podrzędnego zestawu danych. Możesz to zrobić w zdarzeniu AfterPost głównego zestawu danych, wywołując jedną z następujących przeciążonych procedur:
230	230
231	231		``` pascal
232	232		interface
233	233		procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery);overload;
234	234		procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery; pKeyField: string);overload;
235	235
236	236		implementation
237	237
238	238		procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery; pKeyField: string);
239	239		//Ta procedura odświeża DataSet i ustawia kursor na ostatnim rekordzie
240	240		//Do użycia, jeśli nie ma gwarancji, że DataSet zostanie posortowany według klucza podstawowego z automatycznym przyrostem
241	241		var
242	242		vLastID: Integer;
243	243		vUpdateStatus : TUpdateStatus;
244	244		begin
245	245		vUpdateStatus := pDataset.UpdateStatus;
246	246		//Pobierz ostatnio wstawiony identyfikator w bazie danych
247	247		pDataset.ApplyUpdates;
248	248		vLastID:=(pDataSet.DataBase as TSQLite3Connection).GetInsertID;
249	249		//Teraz wróć do odpowiedniego wiersza (rekordu)
250	250		if vUpdateStatus = usInserted then begin
251	251		pDataset.Refresh;
252	252		//Odśwież i wróć do odpowiedniego wiersza
253	253		pDataset.Locate(pKeyField,vLastID,[]);
254	254		end;
255	255		end;
256	256
257	257		procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery);
258	258		//Ta procedura odświeża DataSet i ustawia kursor na ostatnim rekordzie
259	259		//Do użycia tylko wtedy, gdy DataSet ma gwarancję, że zostanie posortowany według klucza podstawowego z automatycznym przyrostem
260	260		var
261	261		vLastID: Integer;
262	262		vUpdateStatus : TUpdateStatus;
263	263		begin
264	264		vUpdateStatus := pDataset.UpdateStatus;
265	265		pDataset.ApplyUpdates;
266	266		vLastID:=(pDataSet.DataBase as TSQLite3Connection).GetInsertID;
267	267		if vUpdateStatus = usInserted then begin
268	268		pDataset.Refresh;
269	269		//Niebezpieczny!
270	270		pDataSet.Last;
271	271		end;
272	272		end;
273	273
274	274		procedure TDataModule1.SQLQuery1AfterPost(DataSet: TDataSet);
275	275		begin
276	276		RefreshADatasetAfterInsert(Dataset as TSQLQuery); //Jeśli Twój DataSet jest posortowany według klucza podstawowego
277	277		end;
278	278
279	279		procedure TDataModule1.SQLQuery2AfterPost(DataSet: TDataSet);
280	280		begin
281	281		RefreshADatasetAfterInsert(Dataset as TSQLQuery, 'ID'); //Jeśli nie masz pewności, że DataSet jest zawsze posortowany według klucza podstawowego
282	282		end;
283	283		```
284	284
285	285		### Vacuum i inne operacje, które należy wykonać poza transakcją
286	286
287	287		Wydaje się, że baza danych SQLDB zawsze wymaga połączenia, ale niektóre operacje, takie jak Pragma i Vacuum, muszą odbywać się poza transakcją. Sztuka polega na tym, aby zakończyć transakcję, wykonać to, co musisz i zacząć ponownie przeprowadzić transakcję (aby sqldb się nie pomyliło :)
288	288
289	289		``` pascal
290	290		// commit any pending operations or use a "fresh" sqlconnection
291	291		// zatwierdź wszelkie oczekujące operacje lub użyj „świeżego” sqlconnection
292	292		Conn.ExecuteDirect('End Transaction'); // Zakończ transakcję rozpoczętą przez SQLdb
293	293		Conn.ExecuteDirect('Vacuum');
294	294		Conn.ExecuteDirect('Begin Transaction'); //Rozpocznij transakcję dla SQLdb
295	295		```
296	296
297	297		## Używanie TSQLite3Dataset
298	298
299	299		W tej sekcji szczegółowo opisano, jak używać komponentów TSQLite2Dataset i TSQLite3Dataset w celu uzyskania dostępu do baz danych SQlite. Luiz Américo luizmed(at)oi(kropka)com(kropka)br
300	300
301	301		#### Wymagania
302	302
303	303		- Dla baz danych sqlite2 (starsze):
304	304		- FPC 2.0.0 lub nowszy
305	305		- Lazarus 0.9.10 lub nowszy
306	306		- Biblioteka uruchomieniowa SQLite 2.8.15 lub nowsza*
307	307
308	308		- Sqlite2 nie jest już utrzymywany, a pliku binarnego nie można znaleźć na stronie sqlite
309	309
310	310		- Dla baz danych sqlite3:
311	311		- FPC 2.0.2 lub nowszy
312	312		- Lazarus 0.9.11 (rewizja svn) lub nowszy
313	313		- biblioteka uruchomieniowa sqlite 3.2.1 lub nowsza (pobierz ją ze strony [www.sqlite.org](http://www.sqlite.org))
314	314
315	315		Przed rozpoczęciem projektu Lazarus upewnij się, że:
316	316
317	317		- biblioteka sqlite jest albo
318	318		- w katalogach systemowych lub
319	319		- w katalogu plików wykonywalnych i katalogach Lazarus (lub bieżącego projektu) - ta opcja może działać tylko w systemie Windows
320	320		- pod Linuksem umieść cmem jako pierwszy moduł w sekcji uses programu głównego
321	321		- W Debianie, Ubuntu i innych dystrybucjach podobnych do Debiana, aby zbudować Lazarus IDE, musisz zainstalować pakiety libsqlite-dev/libsqlite3-dev, nie tylko sqlite/sqlite3 (dotyczy również OpenSuSe)
322	322
323	323		#### Jak używać (podstawowe użycie)
324	324
325	325		Zainstaluj pakiet znaleziony w katalogu /components/sqlite (zobacz instrukcje [[Install Packages\|tutaj]])
326	326
327	327		W czasie projektowania ustaw następujące właściwości:
328	328
329	329		- FileName: ścieżka do pliku sqlite \[wymagana\]
330	330		- TableName: nazwa tabeli użytej w instrukcji sql \[wymagana\]
331	331		- SQL: instrukcja SQL select \[opcjonalna\]
332	332		- SaveOnClose: Wartość domyślna to false, co oznacza, że zmiany nie są zapisywane. Można to zmienić na true. \[opcjonalna\]
333	333		- Active: Należy ustawić w czasie projektowania lub podczas uruchamiania programu. \[wymagana\]
334	334
335	335		Tworzenie tabeli (DataSet)
336	336
337	337		Kliknij dwukrotnie ikonę komponentu lub użyj elementu „Utwórz tabelę” z menu kontekstowego, które pojawia się po kliknięciu prawym przyciskiem myszy. Zostanie wyświetlony prosty, samoobjaśniający się edytor tabel.
338	338
339	339		Oto wszystkie typy pól obsługiwane przez TSqliteDataset i TSqlite3Dataset:
340	340
341	341		- Integer
342	342		- AutoInc
343	343		- String
344	344		- Memo
345	345		- Bool
346	346		- Float
347	347		- Word
348	348		- DateTime
349	349		- Date
350	350		- Time
351	351		- LargeInt
352	352		- Currency
353	353
354	354		Pobieranie danych
355	355
356	356		Po utworzeniu tabeli lub na wcześniej utworzonej tabeli otwórz DataSet za pomocą metody Open. Jeśli właściwość SQL nie została ustawiona, zostaną pobrane wszystkie rekordy ze wszystkich pól, tak samo, jeśli ustawisz SQL na:
357	357
358	358		``` pascal
359	359		SQL := 'Select * from TABLENAME';
360	360		```
361	361
362	362		Wprowadzanie zmian do bazowego pliku danych
363	363
364	364		Aby użyć funkcji ApplyUpdates, zbiór danych musi zawierać co najmniej jedno pole, które spełnia wymagania klucza podstawowego (wartości muszą być UNIQUE, a nie NULL)
365	365
366	366		Można to zrobić na dwa sposoby:
367	367
368	368		- Ustaw właściwość PrimaryKey na nazwę pola klucza podstawowego
369	369		- Dodaj pole AutoInc (jest to łatwiejsze, ponieważ TSqliteDataSet automatycznie obsługuje je jako klucz podstawowy)
370	370
371	371		Jeśli spełniony jest jeden z dwóch warunków, po prostu wywołaj
372	372
373	373		``` pascal
374	374		ApplyUpdates;
375	375		```
376	376
377	377		> Note: Jeśli obydwa warunki są ustawione, pole odpowiadające PrimaryKey jest używane do zastosowania aktualizacji.
378	378
379	379		> Note: Ustawienie klucza podstawowego na pole, które nie jest kluczem podstawowym, spowoduje utratę danych w przypadku wywołania funkcji ApplyUpdates, dlatego przed użyciem upewnij się, że wybrane pole nie zawiera wartości Null ani Unique.
380	380
381	381		##### Przykład Master/detail
382	382
383	383		Różne przykłady relacji master/detail (np. relacja pomiędzy klientem a zamówieniem):
384	384
385	385		- ogólny sposób SQLDB na wykonanie tego przy użyciu właściwości `DataSource`:
386	386		- Konkretny przykład TSQLite3 używający lokalizację: [[TSqlite3 Przykład wzorca Master]].
387	387
388	388		#### Uwagi
389	389
390	390		- Chociaż TSqliteDataset został przetestowany dla 10 000 rekordów i działał dobrze, to przechowuje wszystkie dane w pamięci, więc pamiętaj, aby pobrać tylko niezbędne dane (zwłaszcza w przypadku pól Memo).
391	391		- Ten sam plik danych (właściwość Filename) może zawierać kilka tables/datasets
392	392		- Kilka DataDets (różne kombinacje pól) można utworzyć jednocześnie przy użyciu tej samej tabeli
393	393		- Możliwe jest filtrowanie danych za pomocą SQL-owej instrukcji WHERE, zamykanie i ponowne otwieranie DataSet (lub wywołanie metody RefetchData). Ale w tym przypadku kolejność i liczba pól muszą pozostać takie same
394	394		- Możliwe jest również użycie złożonych instrukcji SQL przy użyciu aliasów, złączeń, widoków w wielu tabelach (pamiętaj, że muszą one znajdować się w tym samym pliku danych), ale w tym przypadku ApplyUpdates nie zadziała. Jeśli ktoś chce używać skomplikowanych zapytań i zastosować aktualizacje do pliku danych, napisz do mnie, a dam kilka wskazówek, jak to zrobić
395	395		- Ustawienie nazwy pliku na plik danych sqlite nie utworzony przez TSqliteDataset i otwarcie go jest dozwolone, ale niektóre pola nie będą miały wykrytego prawidłowego typu pola. Będą one traktowane jako pola tekstowe.
396	396
397	397		Ogólne przykłady można znaleźć w katalogu SVN fpc/fcl-db/src/sqlite
398	398
399	399		## Zobacz także
400	400
401	401		- [[SQLdb Tutorial1]] Samouczek do Sqlite
402	402		- [[SqlDBHowto]] Ogólne informacje o SQLDB
403	403		- [[Working With TSQLQuery]] Informacje o TSQLQuery bazy danych SQL
404	404		- [Witryna SQLite](http://www.sqlite.org)
405	405
406	406		---
407	407		From the Free Pascal wiki, page "SQLite/pl", as it stood on 2021-11-20 after a change by Slawek, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history