Error: Database Is Locked

[triamera977]

Всем привет. Нужна ваша помощь. Читаю книгу Базы данных в мобильных приложениях, по примеру в этой книге написал приложение, в котором создал базу SQLite, подключился через FireDAC. С базы вывел информацию в listbox, а вот при добавлении новой записи в базу выходит ошибка.

procedure THeaderFooterwithNavigation.Button2Click(Sender: TObject);
var
SqlText: string;
st: string;
begin
System.SysUtils.Date;
if (Edit1.Text.Trim.Length = 0) Or (Edit2.Text.Trim.Length = 0)
then exit;
DateTimeToString(st, 'DD.MM.YYYY', DateEdit1.Date);
SqlText := 'INSERT INTO Exp Values("'+st + '", "' +
Edit1.Text + '", "' +
Edit2.Text + '")';

FDQuery1.SQL.Text := SqlText;
FDQuery1.ExecSQL;
Edit1.Text := '';
Edit2.Text := '';
FDTable1.Refresh();
LinkFillControlToField1.BindList.FillList;

end;

 

[Lomanu4]

Всем привет. Нужна ваша помощь. Читаю книгу Базы данных в мобильных приложениях, по примеру в этой книге написал приложение, в котором создал базу SQLite, подключился через FireDAC. С базы вывел информацию в listbox, а вот при добавлении новой записи в базу выходит ошибка.
Посмотреть вложение 332

procedure THeaderFooterwithNavigation.Button2Click(Sender: TObject);
var
SqlText: string;
st: string;
begin
System.SysUtils.Date;
if (Edit1.Text.Trim.Length = 0) Or (Edit2.Text.Trim.Length = 0)
then exit;
DateTimeToString(st, 'DD.MM.YYYY', DateEdit1.Date);
SqlText := 'INSERT INTO Exp Values("'+st + '", "' +
Edit1.Text + '", "' +
Edit2.Text + '")';

FDQuery1.SQL.Text := SqlText;
FDQuery1.ExecSQL;
Edit1.Text := '';
Edit2.Text := '';
FDTable1.Refresh();
LinkFillControlToField1.BindList.FillList;

end;

Сообщение тебе говорит прям добавь компонент fireducphyssqllite если не поможет до ищи dll от sqllite и добовляйте спокойно в папку system32 и в ваш проект.

 

[triamera977]

Проблема данной ошибки состояла в том что соединение dataExplorer в Delphi с БД было уже установлено

 

[triamera977]

вот еще в чем косяк, по умолчанию стоял LockingMode: lmExclusive