Простая БД на SQLite

[EatMyShorts]

Уважаемые форумчане, помогите разобраться с sqlite в lazarus.
На форме DBGrid, DataSource, Sql3Dataset.
Пытаюсь выполнить такой код:

Код: Выделить всё

  Sqlite3Dataset1.SQL:='INSERT INTO pers (name, surname) VALUES("ivan", "ivanov") ';
  Sqlite3Dataset1.SQL:='SELECT * FROM pers';
// Sqlite3Dataset1.ExecSQL;
  Sqlite3dataset1.ApplyUpdates;         


Вылетает ошибка: 'External: SIGSEGV'.
Использую компонет Sqlite4fpc.
Может кто подкинет простой рабочий примерчик, в котором бы были показаны азы работы с БД?
Заранее благодарен.

[Vadim]

В Sqlite3Dataset1 сотрите значение MasterSource.

[EatMyShorts]

В Sqlite3Dataset1 сотрите значение MasterSource.

Стёр, ошибка осталась.

[Vadim]

EatMyShorts
Вот здесь
http://wiki.lazarus.freepascal.org/Lazarus_Database_Tutorial/ru#Lazarus_.D0.B8_SQLite
есть простейший пример по работе с Sqlite3Dataset.

[EatMyShorts]

EatMyShorts
Вот здесь
http://wiki.lazarus.freepascal.org/Lazarus_Database_Tutorial/ru#Lazarus_.D0.B8_SQLite
есть простейший пример по работе с Sqlite3Dataset.

Я это читал, но больно там уж все расплывчато.

Ошибку вроде победил, выставив Sqlite3Dataset.PrimariKey = 'id'.
Но теперь с этим полем проблема. В Sqlite3Dataset поле id имеет тип AutoInc. но при добавлении данных:

Код: Выделить всё

  Sqlite3Dataset1.SQL:='INSERT INTO pers (name, surname) VALUES("ivan", "ivanov") ';
  Sqlite3Dataset1.ExecSQL;
  Sqlite3Dataset1.SQL:='INSERT INTO pers (name, surname) VALUES("petr", "petrov") ';
  Sqlite3Dataset1.ExecSQL;
  Sqlite3Dataset1.SQL:='SELECT * FROM pers';
  Sqlite3Dataset1.ExecSQL;
  Sqlite3dataset1.ApplyUpdates;


в таблице ячейки поля id остаются пустыми.

[wofs]

В Sqlite3Dataset поле id имеет тип AutoInc.

наводит на мысль, что есть еще поле id, котjрое автоинкриментное, тогда:

Код: Выделить всё

Sqlite3Dataset1.SQL:='INSERT INTO pers (id,name, surname) VALUES("","ivan", "ivanov") ';
  Sqlite3Dataset1.ExecSQL;
  Sqlite3Dataset1.SQL:='INSERT INTO pers (id,name, surname) VALUES("","petr", "petrov") ';
  Sqlite3Dataset1.ExecSQL;

Код: Выделить всё

  Sqlite3Dataset1.SQL:='SELECT * FROM pers';
  Sqlite3Dataset1.ExecSQL;

ExecSQL используется только для выполнения ничего не возвращающих запросов (такое как добавление данных, апдейт и т.п.)
для выборки данных используется

Код: Выделить всё

Sqlite3Dataset1.Open;

в таблице ячейки поля id остаются пустыми.

уточнение, а в самой БД в таблице поле id указано как автоинкриментное (простите, сужу по аналогии с MySQL с SQLLite не знаком)

[EatMyShorts]

В Sqlite3Dataset поле id имеет тип AutoInc.

наводит на мысль, что есть еще поле id, котjрое автоинкриментное

Нет, поле id одно.

Сейчас сделал таким образом:

Код: Выделить всё

     Sqlite3Dataset1.FileName:='test1.db3';
     Sqlite3Dataset1.ExecSQL( 'CREATE TABLE pers(id INTEGER PRIMARY KEY, name VARCHAR, surname VARCHAR);');
     Sqlite3Dataset1.ExecSQL ( 'INSERT INTO pers(name, surname) VALUES("ivan", "ivanov")');
     Sqlite3Dataset1.ExecSQL('INSERT INTO pers(name, surname) VALUES("petr", "петров")');
     Sqlite3Dataset1.SQL:='SELECT * FROM pers';
     Sqlite3Dataset1.Open;   


Вроде работает как надо.
Спасибо всем откликнувшимся!

[Padre_Mortius]

Код: Выделить всё

Sqlite3Dataset1.ExecSQL( 'CREATE TABLE pers(id INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL, name VARCHAR, surname VARCHAR);');

Так тоже должно работать

[Vadim]

Ошибку вроде победил, выставив Sqlite3Dataset.PrimariKey = 'id'.

Так у Вас же оно уже было выставлено? По крайней мере в test.zip, что Вы выложили, оно стоит.
Видимо в первый раз при создании таблицы, Вы это поле просто не задали как автоинкрементное и как "PRIMARY KEY".

[EatMyShorts]

Дабы не плодить новых тем спрошу здесь:
Подскажите как организовать combobox в котором были бы всевозможные значения поля таблицы.
Нашел в компонентах TDBLookupCombobox, устанавливаю в нем

Код: Выделить всё

DataField := 'surname';
Datasource := Datasource1;
KeyField := id;


Также на форме TDBNavigator. При попытке добавить запись, поле surname не изменяется, да и сам combobox остается пустым.

[wofs]

Я из визуальных компонент доступа к бд использую только DBGrid... поэтому могу только пососетовать для стандартного Combobox...

Код: Выделить всё

  with Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT DISTINCT surname FROM DBName'); //выбираем данные исключая повторы если повторы исключать не нужно, то запрос вида SELECT surname FROM DBName
    Open;
    First;
    ComboBox1.Items.BeginUpdate; //начинаем заполнение
    try
      ComboBox1.Clear;
      while not Eof do //пока не кончится таблица
      begin
        ComboBox1.Items.Add(FieldByName('surname').AsString); //из поля surname
        Next;
      end;
    finally
      ComboBox1.Items.EndUdate; //завершаем.
    end;
  end;

в свое время тоже искал...

Добавлено спустя 6 минут 47 секунд:

Код: Выделить всё

Также на форме TDBNavigator. При попытке добавить запись, поле surname не изменяется, да и сам combobox остается пустым.

не совсем понял это предложение если честно...
что пытаетесь и куда добавить, как компоненты связаны с датасет... код бы посмотреть...

[EatMyShorts]

wofs

SQL.Add('SELECT DISTINCT surname FROM DBName');

Пришел к аналогичному решению. Бросил на форму TSqlQuerry, TSqlite3Connection.
Пытаюсь сделать так:

Код: Выделить всё

     Sqlite3Dataset1.ExecSql('SELECT * FROM pers');
     Sqlite3Dataset1.Open;
     sql.SQL.Clear;
     Sqlite3Dataset1.Close;

     sql.sql.add('SELECT DISTINCT name FROM pers');
     sql.open;
     sql.first;
     while not sql.EOF do
     begin
          writeln(sql.FieldByName('name').AsString);
          sql.next;
     end;   

Ругается на неустановленное свойство Transaction.
Подскажите пожалуйста правильную последовательность действий.

[wofs]

немного не понятный код...

Код: Выделить всё

     Sqlite3Dataset1.ExecSql('SELECT * FROM pers');
     Sqlite3Dataset1.Open;
     sql.SQL.Clear;
     Sqlite3Dataset1.Close;

не понятно, зачем сперва открывать датасет, потом следом его закрывать...
--
я в лазарус совсем не давно, но по аналогии с бдMySQL я бы делал через компоненты
SQLite3Connection1
SQLTransaction1 в поле Database установить SQLite3Connection1
SQLQuery1 в поле Database установить SQLite3Connection1
Datasource1 в поле Dataset установить SQLQuery1
DBGrid1 в поле DataSource установить Datasource1

потом перед запросом:
SQLTransaction1.Active:=True;
{Сам запрос}
SQLTransaction1.Commit;
Старожилы - поправьте меня, если ошибаюсь...

[EatMyShorts]

wofs
Спасибо, сейчас попробую.

Добавлено спустя 27 минут 1 секунду:
Вот вроде бы сделал по пунктам:

Код: Выделить всё

try
     SQLite3Connection1.DatabaseName:='c:\test\test.db3';
     SQLite3Connection1.Open;
     SQLTransaction1.Active:=true;
     sql.sql.add('SELECT DISTINCT name FROM pers');
     sql.ExecSQL;
     SQLTransaction1.Commit;
     sql.open;
     sql.first;
     while not sql.EOF do
     begin
          writeln(sql.FieldByName('name').AsString);
          sql.next;
     end;

     except
       on E: Exception do
        writeln('error: '+E.message);
       end;               

Выводит ошибку: Unable to open file "'test.db3'"
По ходу это связано со свойством Connection.DatabaseName, не пойму как его задать?

[wofs]

а приаттач этот самый файлик сюда(test.db3) - попробою исправить ошибку.