Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 16.04.2021
Сообщений: 6

Удаление записи из БД

13.11.2022, 20:07. Показов 405. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Помогите с решением задачи, пользователю необходимо выбрать номер гос. регистрации автобуса и удалить эту запись из БД. Следующий код не работает, что можно исправить?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TBus.Button1Click(Sender: TObject);
var Preg: string;
begin
Preg := '';
  with dmAvto do
  begin
    dstBus.Open;
    if dstBus.Active then dstBus.Close;
    Preg:= DBLookupComboBox1.Text;
    dstBus.DeleteSQL.Clear;
    dstBus.DeleteSQL.Text:=('Delete from bus where');
    dstBus.DeleteSQL.Text:=('bus.id_gos_register = ');
    dstBus.DeleteSQL.Text:=(QuotedStr(Preg));
    dstBus.Open;
  end;
end;
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.11.2022, 20:07
Ответы с готовыми решениями:

Удаление или изменение записи невозможно, в таблице имеются связанные записи
Доброй ночи. при удалении из родительской таблицы появляется ошибка "удаление или изменение записи невозможно в таблице имеются связанные...

Delphi. Удаление выбранной записи из типизированного файла и сохранение удалённой записи в другой типизированный файл
Приветствую всех, возникла проблема с сохранением удалённой записи в типизированный файл. Подскажите способ для реализации.

Записи: поиск записи по заданному полю, вставка и удаление записи, изменение значения заданного поля
3.Описать запись, с полями описанными в таблице. Наименование Количество жителей Площадь, кв. км. Год основания Количество школ ...

3
Модератор
 Аватар для D1973
9907 / 6444 / 2455
Регистрация: 21.01.2014
Сообщений: 27,354
Записей в блоге: 3
13.11.2022, 20:18
Delphi
1
2
3
4
5
6
7
procedure TBus.Button1Click(Sender: TObject);
begin
  with dmAvto do begin
    dstBus.DeleteSQL.Text := Format('Delete from bus where bus.id_gos_register = %s', [DBLookupComboBox1.Text]);
    dstBus.ExecSQL;
  end;
end;
0
 Аватар для krapotkin
6847 / 4674 / 1463
Регистрация: 14.04.2014
Сообщений: 20,656
Записей в блоге: 21
14.11.2022, 06:13
только в кавычках конечно
0
Модератор
 Аватар для D1973
9907 / 6444 / 2455
Регистрация: 21.01.2014
Сообщений: 27,354
Записей в блоге: 3
14.11.2022, 07:18
Цитата Сообщение от krapotkin Посмотреть сообщение
только в кавычках конечно
Ох, да, точно... Просмотрел.
Delphi
1
dstBus.DeleteSQL.Text := Format('Delete from bus where bus.id_gos_register = %s', [QuotedStr(DBLookupComboBox1.Text]));
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
14.11.2022, 07:18
Помогаю со студенческими работами здесь

ListView: добавление записи, выбор записи, удаление записи
на форме есть три текст бокса: textbox1(имя), textbox2(фамилия), textbox3(отчество), textbox4(выбранное) кнопка Button1(добавить),...

Удаление загрузочной записи о Windows8.1 и удаление самой Windows 8.1 при наличии двух ОС
На ноутбуке на разделе C Windows XP ,установил Windows 8.1 на логический раздел E.Теперь хочу удалить 8.1 и установить туда 7.В БИОСе...

Добавление и удаление записи, поиск записи с максимальной зарплатой, сортировка по алфавиту
Помогите, пожалуйста!:help: Очень нужно сделать до 26!(а если не сложно, то еще и с комментариями :-Добавлено через 27 минут если вы...

Удаление нужной записи из массива при записи в типизированный файл
Проблема такая: мне нужно записать в файл только те элементы массива записи, номер которых не равен введёному. Но программа делает что...

Массив структур: добавление записи, удаление записи, поиск по одному или нескольким из полей
Необходимо реализовать базу данных с полями «Фамилия», «Имя», «Отчество», «Пол», «Год рождения». Каждая запись должна представлять собой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение/ Перевод Сайт называется reddit: The Thinkpad X220 Tablet is the best budget school laptop period. Это. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru