SQLite3 ошибка при создании базы

[trafbite]

Сообщение от ReportCube

sqlite3.dll должна находится там же, где и скомпилированное приложение, или в системной папке

Мегареспект! Помогло!

Не очень удобно, что в XE2 .exe приложение компилируется в отдельную папку от .dpr. Возможно как-то сделать, что бы компилировалось все в одну папку, как в D7?

[Пепел Феникса]

да можно, настройте выходные папки в целях проекта.

[trafbite]

Отлично, спасибо, все сделал

[trafbite]

Ан нет, рано радовался

Базу создал (сторонним софтом). Открыть то я ее в своем приложении открыл, вот код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if opendialog1.Execute then begin
    try
      FBase:=TSQLiteDatabase.Create(OpenDialog1.FileName);
      showmessage('Норм, создали.');
      FBase.GetTableStrings('SELECT name FROM sqlite_master WHERE type="table" ORDER BY name',ComboBox1.Items);
    except
      ShowMessage('Че-то не то!');
    end;
  end;
end;

Только теперь записать не получается. Опять ошибка валится, никак не найду причину - гугл молчит
Вот код записи:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin

try
  FStmt.SQL :=
    'INSERT INTO [TestTable] ([StringRow], [NumberRow], [DateTimeRow]) VALUES (:str, :int, :date)';
  for i := 0 to 99 do
  begin
    FStmt.ClearParams;
    FStmt.SetParamInt(':int', i);
    FStmt.SetParamText(':str', IntToStr(i));
    FStmt.SetParamDateTime(':date', Now);
    FStmt.PrepareStatement(FStmt.SQL);
    FStmt.ExecQuery();
  end;
finally
  FBase.Commit;
end;

end;

А вот и сама ошибка:


Пните, пожалуйста, в нужную сторону!

[Serge_Bliznykov]

насколько я понимаю, Вы банально забыли создать объект FStmt


p.s. и, кстати, ещё по вашему коду (на будущее). я не уверен, что параметры нужно описывать через двоеточие.
в Delphi принято для параметров использовать "собаку" @, впрочем, ничего не утверждаю, возможно данные компоненты принимают параметры через двоеточия...

[trafbite]

Serge_Bliznykov, помогло, спасибо за наводку!
Но у меня опять проблема, никак не справлюсь.
Теперь после старта записи (всего 100 строк - занимает порядка 4-5 секунд, это нормально? ) выкидывает такую ошибку:

Хотя запись происходит, данные в таблицу заносятся - проверял сторонним софтом. В чем я опять не прав?

[rdama]

На фиг это FBase.Commit;

[trafbite]

Опять же, с одного из блогов по Delphi.
Если без него, то:

Медленно. Попробуем ускорить процесс. Дописываем в обработчик следующий код:

Base.BeginTransaction;
  try
  for i := 0 to 999 do
  begin
    [...]
  end;
  finally
    Base.Commit;
  end;

Менее 1 секунды на запись 1000 элементов. Неплохо? Транзакции в SQLite рулят =)

Блин, пропустил Base.BeginTransaction; - сам виновать!
Спасибо за помощь!