Здравствуйте уважаемые члены сообщества.
Пожалуйста подскажите ответ на такой вопрос.
Почему после процедуры Ввести приложения для ОС Андроид:
//Ввести
procedure TForm_Glavn_ZapKnijka.Button_Vvod_ParolClick(Sender: TObject);
begin
try
Query_Parol.Insert;
Query_Parol.FieldByName(‘Parol’).AsString:=Edit_Parol.Text;
Query_Parol.Post;
Query_Parol.Refresh;
Query_Zabyl.Insert;
Query_Zabyl.FieldByName(‘Vopros’).AsString:=ComboBox_Vopros.Items.Text;
Query_Zabyl.FieldByName(‘Otvet’).AsString:=Edit_Otvet.Text;
Query_Zabyl.Post;
Query_Zabyl.Refresh;
Showmessage(‘Введено.’);
Label1.Text:=Query_Parol.FieldByName(‘Parol’).AsString;
except
on e: Exception do
begin
Showmessage(‘Ошибка ввода. Попробуйте ещё раз.: ‘+e.Message);
end;
end;
end;
В Label1 появляется нужный текст а в самой базе DB.db3 пусто? Хотя подключение к файлу базы без ошибок. Проверяю в обоих файлах в папке проекта и в папке \assets\internal. Все поля пусты.
Вопрос
Олег Киреев
Здравствуйте уважаемые члены сообщества.
Пожалуйста подскажите ответ на такой вопрос.
Почему после процедуры Ввести приложения для ОС Андроид:
В Label1 появляется нужный текст а в самой базе DB.db3 пусто? Хотя подключение к файлу базы без ошибок. Проверяю в обоих файлах в папке проекта и в папке \assets\internal. Все поля пусты.
С Уважением. Олег.
Изменено пользователем Andrey EfimovДобавлен тег "Код"
Ссылка на комментарий
20 ответов на этот вопрос
Рекомендуемые сообщения