Error: Database Is Locked

  • Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

triamera977 Оффлайн

triamera977

Homo habilis
Принятый Кодер
27 Апр 2015
81
12
60
29
Калининград
kil39.ru
#1
Всем привет. Нужна ваша помощь. Читаю книгу Базы данных в мобильных приложениях, по примеру в этой книге написал приложение, в котором создал базу SQLite, подключился через FireDAC. С базы вывел информацию в listbox, а вот при добавлении новой записи в базу выходит ошибка.
upload_2016-4-1_11-14-36.png
Код:
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 Оффлайн

Lomanu4

Команда форума
Администратор
1 Мар 2015
1,116
214
155
VK
#2
Всем привет. Нужна ваша помощь. Читаю книгу Базы данных в мобильных приложениях, по примеру в этой книге написал приложение, в котором создал базу 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 и в ваш проект.