VPF::SQLite - Форум программистов

Poseidon

Дата 27.9.2010, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 3
Всего: 133

Осваиваю данную БД. Ничего в общем сложного, но "не компилиццо" ))

Во всех статьях пишут что нужно создавать объект БД следующим образом:

Код


procedure TMainForm.FormCreate(Sender: TObject);
begin
  DataBase:= TSQLiteDatabase.Create('base.db');
end;

И тут начинаются НО. Компилятор ругается на большое количество параметров. Разбираемся... И в правду, в Create параметры не предусмотрены. Как же тогда связать файл базы и объект? Разбираемся... Есть метод Open с параметром FileName. Видать то, что нам нужно. Пробуем:

Код


procedure TMainForm.FormCreate(Sender: TObject);
begin
  DataBase:= TSQLiteDatabase.Create;
  DataBase.Open('base.db');
end;

Компилятор не ругается, но при попытке запустить программу вылетает ошибка (что-то на иероглифах и "pragma synchronous = off"). Разбираемся... Оказывается данную ошибку выдает как-раз Open.

Так вот и вопрос, а как, собственно, подключить БД на Delphi 2010?

PS. Все необходимые файлы были скачаны отсюда, т.к. с офф. сайта что-то не тянется.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

AnalogXP

Дата 29.9.2010, 00:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 23.9.2007

Репутация: нет
Всего: нет

Poseidon, у меня база создается без вопросов, но метода Open нету.

Вот как я работаю с базой:

Код


var PlacesSqlite: TSQLiteDatabase;
      DBRoots: TSQLIteTable;
begin
      PlacesSqlite := TSQLiteDatabase.Create( filename );
     
      DBRoots := PlacesSqlite.GetTable('SELECT * FROM TableName where X="XXX"');

      if DBRoots.Count > 0 then
      begin
            while not DBRoots.EOF do
            begin
                iID := DBRoots.FieldAsString(DBRoots.FieldIndex['id']);
                iTitle := UTF8ToString( DBRoots.FieldAsString(DBRoots .FieldIndex['title']) );
                iType := DBRoots.FieldAsString(DBRoots.FieldIndex['type']);
            end;
      end;

end;

Это сообщение отредактировал(а) AnalogXP - 29.9.2010, 00:48

Poseidon

Дата 29.9.2010, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 3
Всего: 133

В общем, вышел я в итоге на офф. сайт и скачал оттуда файлики. С ними все заработало. Видать на сайте, ссылку на который я привел выше, какую-то шнягу выложили. Даже разбираться не стал.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

AnalogXP

Дата 3.10.2010, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 23.9.2007

Репутация: нет
Всего: нет

Poseidon, надеюсь Вы взяли отсюда врапер. Отличная штука.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »