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

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

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

Error: Database Is Locked

triamera977 Оффлайн

triamera977

Homo habilis
Принятый Кодер
Регистрация
27 Апр 2015
Сообщения
81
Симпатии
12
Баллы
60
#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,096
Симпатии
211
Баллы
155
#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 и в ваш проект.
 
triamera977 Оффлайн

triamera977

Homo habilis
Принятый Кодер
Регистрация
27 Апр 2015
Сообщения
81
Симпатии
12
Баллы
60
#3
Проблема данной ошибки состояла в том что соединение dataExplorer в Delphi с БД было уже установлено
upload_2016-4-1_12-9-25.png
 
triamera977 Оффлайн

triamera977

Homo habilis
Принятый Кодер
Регистрация
27 Апр 2015
Сообщения
81
Симпатии
12
Баллы
60
#4
вот еще в чем косяк, по умолчанию стоял LockingMode: lmExclusive
upload_2016-4-1_12-54-18.png