SQLite/ru: what changed

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

Old	New		Line
1	1		## Поддержка SQLite и FPC/Lazarus
2	2
3	3		SQLite - это встроенная (не серверная) однопользовательская база данных, которую можно использовать в приложениях FPC и Lazarus. Для доступа к SQLite из программ FPC/Lazarus можно использовать различные драйверы. Все драйверы нуждаются в библиотеке SQLite/dll в исполняемом каталоге (который может быть каталогом вашего проекта или, например, (projectdir)/lib/architecture/ в зависимости от настроек вашего проекта Lazarus) (и распространяется вместе с вашим исполняемым файлом) для работы.
4	4
5	5		Это также может быть необходимо включить в ваш каталог Lazarus IDE. См. [ветку форума](https://forum.lazarus.freepascal.org/index.php?topic=46118.msg327940#msg327940) и особенно внимательно прочитайте про TSQLite3Dataset и TSQLiteDataset [[SQLite/ru\|ниже]]
6	6
7	7		В большинстве дистрибутивов Linux по умолчанию установлен sqlite3 (например, libsqlite3.so.0), но для дистрибутивов Ubuntu, по крайней мере, также требуется соответствующий пакет Dev. Оба должны быть установлены через системный менеджер пакетов и помечены как зависимость, а не распространяться вместе с вашим приложением.
8	8
9	9		Win64: см. предупреждение [[Windows Programming Tips\|здесь]] о неиспользовании определенных версий FPC/Lazarus Win64.
10	10
11	11		### Прямой доступ к SQLite
12	12
13	13		Вы можете использовать простой способ подключения SQLite к Lazarus. Компоненты называются LiteDAC. Компоненты доступа к данным SQLite (LiteDAC) - это библиотека компонентов, которая обеспечивает встроенное подключение к SQLite из Lazarus (и Free Pascal) в Windows, macOS, iOS, Android, Linux и FreeBSD как для 32-разрядных, так и для 64-разрядных платформ. LiteDAC предназначен для программистов, которые могут разрабатывать действительно кроссплатформенные настольные и мобильные приложения баз данных SQLite без необходимости развертывания каких-либо дополнительных библиотек.
14	14
15	15		Вы можете скачать пробную версию этого коммерческого продукта по адресу _<https://www.devart.com/litedac/download.html> (LiteDAC 4.4 for Lazarus (FreePascal))
16	16
17	17		### Встроенный SQLDB
18	18
19	19		FPC/Lazarus предлагает встроенные компоненты SQLDB, которые включают поддержку баз данных SQLite ([[TSQLite3Connection]]) с [[SQLdb tab\|вкладки SQLdb]] в [[Component Palette\|Палитре компонентов]], которые позволяют, например, создавать графические интерфейсы пользователя с такими компонентами базы данных, как [[TDBGrid]]. Преимущество использования SQLDB заключается в том, что довольно легко перейти на другую базу данных, такую как Firebird или PostgreSQL, без особых изменений в программе. Подробнее см. ниже.
20	20
21	21		#### Поддержка Spatialite
22	22
23	23		Spatialite - это ГИС-расширения SQLite, которые можно использовать из SQLDB. См. [[Spatialite]].
24	24
25	25		#### Поддержка шифрования SQLite
26	26
27	27		В последних версиях FPC (реализованных в марте 2012 г.) SQLDB включал поддержку некоторых расширенных версий SQLite3, которые шифруют файл базы данных SQLite с использованием алгоритма AES. Используйте свойство пароля, чтобы установить ключ шифрования.
28	28
29	29		Примеры:
30	30
31	31		- [SQLCipher](http://sqlcipher.net/): Открытый исходный код, например Бинарные файлы Windows не бесплатно (их нужно скомпилировать самостоятельно)
32	32		- [System.Data.SQLite](http://system.data.sqlite.org/): с открытым исходным кодом, доступны двоичные файлы Windows (32, 64, CE), загрузите, например, один из предварительно скомпилированных двоичных файлов и переименуйте SQLite.Interop.dll в sqlite3.dll (если вы используете статически связанные файлы, вероятно, вам нужно переименовать System.Data.SQLite.DLL в sqlite3.dll)
33	33		- [wxSQLite3](http://wxcode.sourceforge.net/docs/wxsqlite3/): открытый исходный код, доступны некоторые бинарные файлы для Linux (напр: <https://launchpad.net/ubuntu/oneiric/+package/libwxsqlite3-2.8-0>)
34	34		- [sqleet](https://github.com/resilar/sqleet): открытый исходный код, нет зависимостей от других библиотек, легко собирается при помощи GCC в исполняемые файлы и файлы библиотек, кроссплаформенный. Доступны механизмы шифрования как в интерактивном режиме, так и посредством sqleet API.
35	35
36	36		#### sqlite3backup
37	37
38	38		sqlite3backup - это модуль, поставляемый с FPC (не в Lazarus, но может использоваться программно), который обеспечивает функции резервного копирования/восстановления для SQLite3. Он использует SQLDB sqlite3conn.
39	39
40	40		### Zeos
41	41
42	42		[Zeos](https://sourceforge.net/projects/zeoslib/)
43	43
44	44		### SQLitePass
45	45
46	46		Компоненты [SQLitePass](http://source.online.free.fr/). Последнее обновление кода в 2010. Последняя активность на форуме в 2011.
47	47
48	48		### TSQLite3Dataset и TSQLiteDataset
49	49
50	50		Существуют также отдельные пакеты TSQLiteDataset (модуль sqlite) и TSQLite3Dataset (модуль sqlite3ds); см. ниже описание того, как их использовать. Посетите [домашнюю страницу sqlite4fpc](http://sqlite4fpc.yolasite.com/), чтобы найти справочник по API и другие руководства.
51	51
52	52		TSqliteDataset и TSqlite3Dataset являются потомками [[TDataSet]], которые обращаются к базам данных sqlite 2.8.x и 3.x.x соответственно. Для новых проектов вы, вероятно, будете использовать TSQlite3Dataset, поскольку текущая версия SQLite 3.x.
53	53
54	54		Ниже приведен список основных преимуществ и недостатков по сравнению с другими драйверами/методами доступа FPC/Lazarus SQLite:
55	55
56	56		Преимущества:
57	57
58	58		- Гибкость: программисты могут выбирать, использовать или не использовать язык SQL, что позволяет им работать с простыми макетами таблиц или любым сложным макетом, который позволяет SQL/sqlite.
59	59
60	60		Недостатки:
61	61
62	62		- Переход на другие базы данных сложнее, чем при использовании компонентов SQLDB или Zeos
63	63
64	64		> Note: Учитывая вышеизложенное, многие пользователи будут использовать SQLDB или Zeos из-за преимуществ, если им не нужен низкоуровневый доступ к библиотеке SQLite.
65	65
66	66		## Использование компонентов SQLdb со SQLite
67	67
68	68		Эти инструкции сосредоточены на особенностях SQLDB (TSQLite3Connection) для SQLite. Для общего обзора ознакомьтесь с [[SqlDBHowto\|SqlDB: Howto]], где есть полезная информация о компонентах SQLdb.
69	69
70	70		См. [[SQLdb Tutorial1\|Учебник1 по SQLdb]] для обучения создания программы с поддержкой базы данных с графическим интерфейсом пользователя, которая написана для SQLite/SQLDB (а также для Firebird/SQLDB, PostgreSQL/SQLDB, в основном любой СУБД, поддерживаемой SQLDB).
71	71
72	72		Мы будем использовать комбинацию из трех компонентов из вкладки Lazarus SQLdb: TSQLite3Connection, TSQLTransaction и TSQLQuery. TSQLQuery действует как наш TDataset; в простейшем случае это просто одна из наших таблиц. Для простоты: убедитесь, что у вас уже есть существующий файл базы данных SQLite, и вам не нужно создавать новый сейчас. TSQLite3Connection можно найти в модуле sqlite3conn, если вы хотите объявить его самостоятельно или работаете в FreePascal.
73	73
74	74		Эти три компонента связаны друг с другом как обычно: в TSQLQuery установите свойства Database и Transaction, в TSQLTransaction установите свойство Database. В компонентах Transaction и Connection особо нечего делать, большинство интересного будет сделано в TSQLQuery. Настройте компоненты следующим образом:
75	75
76	76		TSQLite3Connection:
77	77
78	78		- DatabaseName: установите для этого свойства имя файла (абсолютный путь!) вашего файла SQLite. К сожалению, вы не можете просто использовать относительный путь, который работает без изменений во время разработки и во время выполнения (это все еще верно? Разве вы не можете просто скопировать файл db в сценарий оболочки после сборки или создать символическую ссылку на него? ). Вы должны убедиться, что при запуске приложения правильный путь к файлу всегда устанавливается программно, независимо от того, что он содержал во время разработки.
79	79
80	80		> Note: Чтобы установить полный путь к библиотеке (если вы поместите свою sqlite dll/so/dylib в место, где ОС ее не найдет, например каталог приложения в Linux/OSX), вы можете установить «SQLiteLibraryName» свойство (ДО того, как будет установлено какое-либо соединение, например, в событии OnCreate главной формы)
81	81
82	82		, например:
83	83
84	84		``` pascal
85	85		SQLiteLibraryName:='./sqlite3.so';
86	86		```
87	87
88	88		TSQLQuery:
89	89
90	90		- SQL: задайте для него простой запрос выбора для одной из ваших таблиц. Например, если у вас есть таблица 'foo' и вы хотите, чтобы этот набор данных представлял эту таблицу, просто используйте следующие:
91	91		``` SQL
92	92		SELECT * FROM foo
93	93		```
94	94
95	95		- Active: установите для него значение True в среде IDE, чтобы проверить, все ли настроено правильно. Это также автоматически активирует транзакцию и объекты подключения. Если вы получаете сообщение об ошибке, то либо DatabaseName соединения неверно, либо запрос SQL неверен. Позже, когда мы закончим добавление полей (см. ниже), снова установим их все в неактивные состояния, мы не хотим, чтобы среда IDE блокировала базу данных SQLite (для одного пользователя!) при тестировании приложения.
96	96
97	97		- Наверное, не нужно для правильной работы - нужно будет проверить (June 2012) Теперь мы можем добавить поля в наш TSQLQuery. Пока компоненты все еще активны, щелкните правой кнопкой мыши и «отредактируйте поля ...». Нажмите кнопку «+» и добавьте поля. В нем будут перечислены все поля, возвращенные вашим SQL-запросом. Добавьте все поля, которые вам понадобятся, вы также можете добавить сюда поля поиска; в этом случае просто убедитесь, что вы уже определили все необходимые поля в других наборах данных, прежде чем начинать добавлять поля поиска, которые ссылаются на них. Если в вашей таблице много столбцов, и они вам не нужны, вы можете просто не указывать их, а также сделать свой SQL более конкретным.
98	98
99	99		- В вашем коде вам нужно вызвать SQLQuery.ApplyUpdates и SQLTransaction.Commit, события TSQLQuery.AfterPost и AfterInsert - хорошее место для этого при использовании его с элементами управления с учетом данных, но, конечно, вы также можете отложить эти вызовы на более позднее время. Если вы не вызовете их, база данных не будет обновлена.
100	100
101	101		- "Database is locked" (База данных заблокирована): IDE может по-прежнему блокировать базу данных (SQLite - это база данных для одного пользователя), вы, вероятно, забыли установить компоненты в неактивное состояние и снова отключить их после того, как вы закончили определение всех полей ваших объектов TSQLQuery. Используйте событие OnCreate формы, чтобы задать путь и активировать объекты только во время выполнения. Большинство вещей, которые вы устанавливаете в TSQLQuery из среды IDE, не требуют (а некоторые даже не позволяют), чтобы они были активными во время разработки, единственным исключением является определение полей, в которых он хочет прочитать дизайн таблицы, поэтому неактивность во время разработки должно быть нормальным состоянием.
102	102
103	103		- Все ваши таблицы должны иметь первичный ключ, и вы должны убедиться, что соответствующее поле имеет pfInKey и ничего больше в его PoviderFlags (эти флаги управляют тем, как и где используется поле при автоматическом построении запросов на обновление и удаление).
104	104
105	105		- Если вы используете lookup-поля
106	106		- убедитесь, что ProviderFlags для lookup-поля полностью пуст, чтобы он не пытался использовать свое имя в запросе на обновление. Само поле поиска не является полем данных, оно действует только на значение другого поля, соответствующего ключевого поля, и только это ключевое поле будет позже использоваться в запросах на обновление. Вы можете установить ключевое поле как скрытое, потому что обычно вы не хотите видеть его в своей DBGrid, но его необходимо определить.
107	107		- LookupCache должен иметь значение True. На момент написания этой статьи по какой-то причине в -lookupполе ничего не отображается (но все равно работает), и, как ни странно, происходит полная противоположность при работе с TSQLite3Dataset или другими компонентами TXXXDataset, здесь должно быть установлено значение False. Я еще не уверен, является ли это предполагаемым поведением или ошибкой.
108	108
109	109		- Обычно для простых таблиц вам не нужно устанавливать какие-либо свойства InsertSQL, UpdateSQL и DeleteSQL, просто оставьте их пустыми. Если у вас правильно установлены ProviderFlags всех ваших полей, он сможет создать необходимый SQL на лету. Подробнее об InsertSQL, UpdateSQL и DeleteSQL см. [[Working With TSQLQuery\|Работа с TSQLQuery]].
110	110
111	111		После того, как все вышеперечисленное будет настроено правильно, вы сможете использовать TSQLQuery, как и любой другой TDataset, либо программно манипулируя его данными, либо помещая TDatasouce в форму, подключая его к TSQLQuery, а затем используя контуры данных, такие как TDBGrid и т.п.
112	112
113	113		### Creating a Database
114	114
115	115		Метод [TSQLite3Connection.CreateDB](http://www.freepascal.org/docs-html/fcl/sqldb/tsqlconnection.createdb.html), унаследованный от родительского класса, на самом деле ничего не делает; чтобы создать базу данных, если файл еще не существует, вам просто нужно записать данные таблицы, как в следующем примере:
116	116
117	117		(Код, извлеченный из примера sqlite_encryption_pragma, который поставляется с Lazarus 1.3 и новее)
118	118
119	119		``` pascal
120	120		var
121	121		newFile : Boolean;
122	122		begin
123	123
124	124		SQLite3Connection1.Close; // Убедитесь, что соединение закрыто при запуске
125	125
126	126		try
127	127		//Поскольку мы делаем эту базу данных впервые,
128	128		// проверяем, существует ли уже файл
129	129		newFile := not FileExists(SQLite3Connection1.DatabaseName);
130	130
131	131		if newFile then
132	132		begin
133	133		// Создаем базу данных и таблицы
134	134		try
135	135		SQLite3Connection1.Open;
136	136		SQLTransaction1.Active := true;
137	137
138	138		// Здесь мы настраиваем таблицу с именем "DATA" в новой базе данных.
139	139		SQLite3Connection1.ExecuteDirect('CREATE TABLE "DATA"('+
140	140		' "id" Integer NOT NULL PRIMARY KEY AUTOINCREMENT,'+
141	141		' "Current_Time" DateTime NOT NULL,'+
142	142		' "User_Name" Char(128) NOT NULL,'+
143	143		' "Info" Char(128) NOT NULL);');
144	144
145	145		// Создание индекса на основе идентификатора в таблице "DATA"
146	146		SQLite3Connection1.ExecuteDirect('CREATE UNIQUE INDEX "Data_id_idx" ON "DATA"( "id" );');
147	147
148	148		SQLTransaction1.Commit;
149	149
150	150		ShowMessage('База данных успешно создана.');
151	151		except
152	152		ShowMessage('Невозможно создать новую базу данных');
153	153		end;
154	154		end;
155	155		except
156	156		ShowMessage('Невозможно проверить, существует ли файл базы данных');
157	157		end;
158	158		end;
159	159		```
160	160
161	161		### Создание определяемых пользователем порядка сортировки
162	162
163	163		``` pascal
164	164		// utf8-callback функция сравнения с учетом регистра
165	165		function UTF8xCompare(user: pointer; len1: longint; data1: pointer; len2: longint; data2: pointer): longint; cdecl;
166	166		var S1, S2: AnsiString;
167	167		begin
168	168		SetString(S1, data1, len1);
169	169		SetString(S2, data2, len2);
170	170		Result := UnicodeCompareStr(UTF8Decode(S1), UTF8Decode(S2));
171	171		end;
172	172
173	173		// utf8-callback функция сравнения без учета регистра
174	174		function UTF8xCompare_CI(user: pointer; len1: longint; data1: pointer; len2: longint; data2: pointer): longint; cdecl;
175	175		var S1, S2: AnsiString;
176	176		begin
177	177		SetString(S1, data1, len1);
178	178		SetString(S2, data2, len2);
179	179		Result := UnicodeCompareText(UTF8Decode(S1), UTF8Decode(S2));
180	180		end;
181	181
182	182		// регистрируем порядок сортировки с помощью SQLite3 API (требуется модуль sqlite3dyn):
183	183		sqlite3_create_collation(SQLite3.Handle, 'UTF8_CI', SQLITE_UTF8, nil, @UTF8xCompare_CI);
184	184		// или используем метод TSQLite3Connection:
185	185		CreateCollation('UTF8_CI',1,nil,@UTF8xCompare_CI);
186	186
187	187		// теперь мы можем использовать порядок сортировки без учета регистра в SQL, например:
188	188		// SELECT * FORM table1 WHERE column1 COLLATE UTF8_CI = 'á'
189	189
190	190		// но это не работает для оператора LIKE
191	191		// чтобы поддерживать также оператор LIKE, мы должны перегрузить функцию LIKE по умолчанию, используя sqlite3_create_function ()
192	192		// http://www.sqlite.org/lang_corefunc.html#like
193	193		```
194	194
195	195		### Создание пользовательских функций (UDF)
196	196
197	197		``` pascal
198	198		// пример перегрузки функции LOWER() по умолчанию на функцию, предоставляемую пользователем
199	199		// чтобы запустить эту демку, вы должны добавить модули sqlite3dyn и ctypes в ваше предложение uses
200	200		// и добавить константу 'SQLITE_DETERMINISTIC' со значением $800
201	201
202	202		procedure UTF8xLower(ctx: psqlite3_context; N: cint; V: ppsqlite3_value); cdecl;
203	203		var S: AnsiString;
204	204		begin
205	205		SetString(S, sqlite3_value_text(V[0]), sqlite3_value_bytes(V[0]));
206	206		S := UTF8Encode(AnsiLowerCase(UTF8Decode(S)));
207	207		sqlite3_result_text(ctx, PAnsiChar(S), Length(S), sqlite3_destructor_type(SQLITE_TRANSIENT));
208	208		end;
209	209
210	210		// регистрируем функцию LOWER() с помощью SQLite3 API (требуется модуль sqlite3dyn):
211	211		sqlite3_create_function(SQLite3.Handle, 'lower', 1, SQLITE_UTF8 or SQLITE_DETERMINISTIC, nil, @UTF8xLower, nil, nil);
212	212		```
213	213
214	214		### SQLite3 и даты
215	215
216	216		- SQLite 3 не хранит даты как специальное значение DateTime. Он может хранить их в виде строк, чисел двойной точности или целых чисел - см. [Date and Time Datatype](http://www.sqlite.org/datatype3.html#datetime).
217	217		- В строках разделителем даты является «-» в соответствии со стандартом SQL/ISO 8601. Таким образом, если вы выполняете INSERT с использованием встроенной функции DATE, она сохранит его как что-то вроде «ГГГГ-ММ-ДД».
218	218		- Чтение значения DateTime может вызвать проблемы для DataSet, если они хранятся в виде строк: квалификатор .AsDateTime может останавливаться на "строковой дате" SQLite, но это можно преодолеть, используя что-то вроде `strftime(``%d/%m/%Y``,recdate) AS sqlite3recdate` в вашем операторе SQL SELECT, который заставляет SQLite3 возвращать запись даты в указанном формате (строка формата %d/%m/%d соответствует вашему региональному формату даты, который будет пониматься как .AsDateTime) ==\> Пожалуйста, откройте отчет об ошибке с примером приложения, демонстрирующим проблему, если это так
219	219		- При сравнении дат, хранящихся в виде строк (используя, например, функцию BETWEEN), помните, что сравнение всегда будет строковым сравнением и, следовательно, будет зависеть от того, как вы сохранили значение даты.
220	220
221	221		#### Значения по умолчанию для местного времени вместо UTC
222	222
223	223		CURRENT_TIME, CURRENT_DATE и CURRENT_TIMESTAMP возвращают текущую дату и/или время в формате UTC. Для местной даты и/или времени мы можем использовать:
224	224
225		-	~~` DEFAULT (datetime('now','localtime')) for datetime values formated YYYY-MM-DD HH:MM:SS`\~~
226		-	~~` DEFAULT (date('now','localtime')) for date value formated YYYY-MM-DD`\~~
227		-	~~` DEFAULT (time('now','localtime')) for time value formated HH:MM:SS`~~
	225	+	```text
	226	+	DEFAULT (datetime('now','localtime')) for datetime values formated YYYY-MM-DD HH:MM:SS
	227	+	DEFAULT (date('now','localtime')) for date value formated YYYY-MM-DD
	228	+	DEFAULT (time('now','localtime')) for time value formated HH:MM:SS
	229	+	```
228	230
229	231		### Устранение неполадок SQLDB и SQLite
230	232
231	233		- Имейте в виду, что для поддержки работы времени разработки (поля и т.д.) Lazarus также должен найти sqlite3.dll (прим.перев: положите этот файл в корень IDE рядом с экзешником. Обратите внимание, что разрядность библиотеки должна соответствовать разрядности Лазаруса).
232	234		- То же самое и с именем файла базы данных. Всегда используйте абсолютный путь, если вы используете компоненты для извлечения, например, имена полей во время разработки. В противном случае IDE создаст в своем каталоге пустой файл. В случае возникновения проблем проверьте, не содержит ли каталог lazarus/ нулевую байтовую копию файла базы данных.
233	235		- Если у вас есть отношения master/detail, вам необходимо обновлять главный набор данных после каждой вставки, чтобы получить значение для поля внешнего ключа подчиненного набора данных. Это можно сделать в событии AfterPost основного набора данных, вызвав одну из следующих перегруженных процедур:
234	236
235	237		``` pascal
236	238		interface
237	239		procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery);overload;
238	240		procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery; pKeyField: string);overload;
239	241
240	242		implementation
241	243
242	244		procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery; pKeyField: string);
243	245		// Эта процедура обновляет набор данных и помещает курсор на последнюю запись
244	246		// Используется, если Dataset не гарантирует сортировку набора данных по первичному ключу автоинкремента
245	247		var
246	248		vLastID: Integer;
247	249		vUpdateStatus : TUpdateStatus;
248	250		begin
249	251		vUpdateStatus := pDataset.UpdateStatus;
250	252		//Получаем последний вставленный ID в базе данных
251	253		pDataset.ApplyUpdates;
252	254		vLastID:=(pDataSet.DataBase as TSQLite3Connection).GetInsertID;
253	255		//Теперь возвращаемся к соответствующей строке
254	256		if vUpdateStatus = usInserted then begin
255	257		pDataset.Refresh;
256	258		//Обновляемся и возвращаемся к соответствующей строке
257	259		pDataset.Locate(pKeyField,vLastID,[]);
258	260		end;
259	261		end;
260	262
261	263		procedure RefreshADatasetAfterInsert(pDataSet: TSQLQuery);
262	264		//Эта процедура обновляет набор данных и помещает курсор на последнюю запись
263	265		//Используется только в том случае, если DataSet гарантированно отсортирован по первичному ключу с автоинкрементом.
264	266		var
265	267		vLastID: Integer;
266	268		vUpdateStatus : TUpdateStatus;
267	269		begin
268	270		vUpdateStatus := pDataset.UpdateStatus;
269	271		pDataset.ApplyUpdates;
270	272		vLastID:=(pDataSet.DataBase as TSQLite3Connection).GetInsertID;
271	273		if vUpdateStatus = usInserted then begin
272	274		pDataset.Refresh;
273	275		//Опасно!
274	276		pDataSet.Last;
275	277		end;
276	278		end;
277	279
278	280		procedure TDataModule1.SQLQuery1AfterPost(DataSet: TDataSet);
279	281		begin
280	282		RefreshADatasetAfterInsert(Dataset as TSQLQuery); //Если ваш набор данных отсортирован по первичному ключу
281	283		end;
282	284
283	285		procedure TDataModule1.SQLQuery2AfterPost(DataSet: TDataSet);
284	286		begin
285	287		RefreshADatasetAfterInsert(Dataset as TSQLQuery, 'ID'); //если вы не уверены, что набор данных всегда сортируется по первичному ключу
286	288		end;
287	289		```
288	290
289	291		### Vacuum и другие операции, которые необходимо выполнять вне транзакции
290	292
291	293		Кажется, что SQLDB всегда требует подключения, но некоторые операции, такие как Pragma и Vacuum, должны Быть сделано вне транзакции. Хитрость заключается в том, чтобы завершить транзакцию, выполнить то, что вы должны, и начать транзакцию еще раз (чтобы не запутать sqldb):
292	294
293	295		``` pascal
294	296		// коммит любых ожидающих операций или использование «свежего» соединения sql
295	297		Conn.ExecuteDirect('End Transaction'); // Завершение транзакции, начатой SQLdb
296	298		Conn.ExecuteDirect('Vacuum');
297	299		Conn.ExecuteDirect('Begin Transaction'); //Запуск транзакции для использования SQLdb
298	300		```
299	301
300	302		## Использование TSQLite3Dataset
301	303
302	304		В этом разделе подробно описано, как использовать компоненты TSQLite2Dataset и TSQLite3Dataset для доступа к базам данных SQlite (от Luiz Américo luizmed(at)oi(dot)com(dot))br
303	305
304	306		#### Требования
305	307
306	308		- Для баз данных sqlite2 (legacy):
307	309		- FPC 2.0.0 или выше
308	310		- Lazarus 0.9.10 или выше
309	311		- SQLite runtime библиотеки 2.8.15 или выше*
310	312
311	313		- Sqlite2 больше не поддерживается, и двоичный файл не может быть найден на сайте sqlite
312	314
313	315		- Для баз данных sqlite3:
314	316		- FPC 2.0.2 или выше
315	317		- Lazarus 0.9.11 (svn revision 8443) или выше
316	318		- sqlite runtime библиотеки 3.2.1 или выше (можно получить с [www.sqlite.org](http://www.sqlite.org))
317	319
318	320		Перед запуском проекта lazarus убедитесь, что:
319	321
320	322		- библиотека sqlite либо
321	323		- прописана в системной переменной PATH или
322	324		- находится в каталоге вывода исполняемых файлов и в каталогах Lazarus (или текущего проекта) - этот параметр может работать только в Windows
323	325		- в Linux поместите `cmem` в качестве первого модуля в разделе `uses` основной программы
324	326		- В Debian, Ubuntu и других подобных Debian дистрибутивах для создания Lazarus IDE необходимо установить пакеты libsqlite-dev/libsqlite3-dev, а не только sqlite/sqlite3 (также относится к OpenSuSe)
325	327
326	328		#### Как использовать (базовое использование)
327	329
328	330		Установить пакет, который находится в каталоге /components/sqlite (см. инструкции [[Install Packages/ru\|здесь]]) (прим.перев.: на момент перевода статьи это можно сделать через стандартный установщик пакетов Лазаруса из меню Package(Пакеты) --\> Install/Uninstall Package (Установка/Удаление пакетов) --\> справа в окне Available for installation (Доступные для установки) выбираем sqlite3laz 0.4 --\> ниже жмем кнопку Install Selection (Установить выбранное) --\> жмем в самом низу кнопку Save and rebuild IDE (Сохранить и пересобрать IDE)).
329	331
330	332		Во время разработки установите следующие свойства:
331	333
332	334		- FileName: путь к файлу sqlite \[обязательно\]
333	335		- TableName: имя таблицы, используемой в операторе sql \[обязательно\]
334	336		- SQL: оператор выбора SQL \[по желанию\]
335	337		- SaveOnClose: значение по умолчанию - false, что означает, что изменения не сохраняются. Его можно изменить на true. \[по желанию\]
336	338		- Active: необходимо установить во время разработки или при запуске программы. \[обязательно\]
337	339
338	340		Создание Table (Dataset)
339	341
340	342		Дважды щелкните значок компонента или используйте пункт 'Create Table'(Создать таблицу) во всплывающем меню, которое появляется при нажатии правой кнопки мыши. Будет показан простой редактор таблиц с пояснениями.
341	343
342	344		Вот все типы полей, поддерживаемые TSqliteDataset и TSqlite3Dataset:
343	345
344	346		- Integer
345	347		- AutoInc
346	348		- String
347	349		- Memo
348	350		- Bool
349	351		- Float
350	352		- Word
351	353		- DateTime
352	354		- Date
353	355		- Time
354	356		- LargeInt
355	357		- Currency
356	358
357	359		Получение данных
358	360
359	361		После создания таблицы или с помощью ранее созданной таблицы откройте набор данных с помощью метода Open. Если свойство SQL не было установлено, будут извлечены все записи из всех полей, то же самое можно получить, если вы зададите SQL следующим образом:
360	362
361	363		``` pascal
362	364		SQL := 'Select * from TABLENAME';
363	365		```
364	366
365	367		Применение изменений к базовому файлу данных
366	368
367	369		Чтобы использовать функцию ApplyUpdates, набор данных должен содержать по крайней мере одно поле, которое удовлетворяет требованиям для первичного ключа (значения должны быть UNIQUE, а не NULL)
368	370
369	371		Сделать это можно двумя способами:
370	372
371	373		- Установить свойство PrimaryKey на имя поля первичного ключа
372	374		- Добавить поле AutoInc (это проще, поскольку TSqliteDataSet автоматически обрабатывает его как первичный ключ)
373	375
374	376		Если установлено одно из двух условий, просто вызовите
375	377
376	378		``` pascal
377	379		ApplyUpdates;
378	380		```
379	381
380	382		> Note: Если заданы оба условия, поле, соответствующее PrimaryKey, используется для применения обновлений.
381	383
382	384		> Note: Установка PrimaryKey в поле, которое не является первичным ключом, приведет к потере данных при вызове ApplyUpdates, поэтому перед его использованием убедитесь, что выбранное поле не содержит значений Null и Unique.
383	385
384	386		##### Пример Master/detail
385	387
386	388		Различные примеры отношений master/detail (например, отношения между клиентом и заказами):
387	389
388	390		- общий способ SQLDB для этого с использованием свойства `DataSource`: [[MasterDetail]]
389	391		- Конкретный пример TSQLite3 с использованием метода `locate`: [[TSqlite3 Master Detail Example\|пример TSqlite3 Master Detail]].
390	392
391	393		#### Примечания
392	394
393	395		- Несмотря на то, что TSqliteDataset был протестирован с 10 000 записей и работал нормально, все данные хранятся (прим.перев.: кешируются) в памяти, поэтому не забывайте извлекать только необходимые данные (особенно с полями Memo).
394	396		- Один и тот же файл данных (свойство Filename) может содержать несколько таблиц/наборов данных.
395	397		- Несколько наборов данных (разные комбинации полей) могут быть созданы с использованием одной и той же таблицы одновременно
396	398		- Можно фильтровать данные с помощью операторов WHERE в sql, закрывая и повторно открывая набор данных (или вызывая метод RefetchData). Но в этом случае порядок и количество полей должны оставаться прежними.
397	399		- Также можно использовать сложные операторы SQL, используя псевдонимы, объединения, представления в нескольких таблицах (помните, что они должны находиться в одном файле данных), но в этом случае ApplyUpdates не будет работать. Если кто-то хочет использовать сложные запросы и применить обновления к файлу данных, напишите мне, и я дам несколько советов, как это сделать.
398	400		- Установка имени файла в файл данных sqlite, не созданный TSqliteDataset, и его открытие разрешено, но в некоторых полях не будет обнаружен правильный тип поля. Они будут рассматриваться как строковые поля.
399	401
400	402		Общие примеры можно найти в SVN каталоге fpc/fcl-db/src/sqlite.
401	403
402	404		## See also
403	405
404	406		- [[SQLdb Tutorial1]] Учебник по Sqlite
405	407		- [[SqlDBHowto]] Общая информация о SQLDB
406	408		- [[Working With TSQLQuery]] Информация о SQLDB's TSQLQuery
407	409		- [SQLite site](http://www.sqlite.org)
408	410		- [TSQLConnection](https://www.freepascal.org/docs-html/fcl/sqldb/tsqlconnection.html)
409	411
410	412		---
411	413		From the Free Pascal wiki, page "SQLite/ru", as it stood on 2021-11-16 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