Приветствую.
Собственно использую TSQLConnection для общения с SQLite базой.
| Код |
'SELECT COUNT(DISTINCT `messages`.`id`) AS `count`,
SUM(CASE WHEN `out` = 0 THEN `unread` ELSE 0 END) AS `unread_in`,
SUM(CASE WHEN `out` = 1 THEN `unread` ELSE 0 END) AS `unread_out`
FROM [table]
|
| Код |
{Создаём БД}
FSQLConnection := TSQLConnection.Create(nil);
with FSQLConnection do
begin
ConnectionName := 'SQLITECONNECTION';
DriverName := 'sqlite';
Params.Values['Database'] := 'data.db';
Params.Values['FailIfMissing'] := 'False';
LoginPrompt := True;
Connected := True;
end;
{Выполняем запрос}
FSQLConnection.Execute(cSelectQuery, Params, Results);
{Считываем поля}
Results.GetFieldNames(fields);
|
И получаю: Column0, Column1, Column2 вместо нужных имён полей.
Почему так? И как исправить? Информации по данному поводу найти не удалось по какой-то причине.
Заранее зпасибо за помощь. |