Удаление из таблицы "многие ко многим"

@Make Me SmiLe · Регистрация: 04.05.2012

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

Здравствуйте.
Такая проблема:
Есть база данных в Access и приложение в Delphi. БД подключена через BDE.
Вот схема:

Меня интересуют таблицы обведенные в красный.
Эти таблицы образуют связь "многие ко многим". Таблицы Dogovor и Uslygi как бы главные, а Dog_Usl хранит их ключи.
Проблема в том, что я пытаюсь сделать через делфи удаление из этой таблицы "многие ко многим", удалять то удаляет, но выдает ошибку - "TDogUsl: DataSet not in edit or insert mode". Я понимаю, что эта ошибка значит и пробовала перевести таблицу в состояние редактирования, но он выдает другую чтото связанное в адресом в самом Access.
Дорогие программисты, помогите пожалуйста, курсовик горит =(
Я честно пыталась сделать что-то, но никак.

Вот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TFDogovor.BitBtn2Click(Sender: TObject);
var
otvet:integer;
begin
  otvet:= MessageDlg('Âû äåéñòâèòåëüíî õîòèòå óäàëèòü çàïèñü?',mtWarning,[mbYes,mbNo], 0);
  if otvet=mrYes then
  begin
 DM.QDogUsl.DataSource.DataSet.Edit;
 DM.TDogUsl.Delete;
 DM.TDogUsl.FieldByName('Kod_dogovora').AsInteger:=StrtoInt(DBEkod.text);
DM.TDogUsl.Post;
 DM.TDogUsl.FieldByName('Kod_uslygi').AsInteger:=StrToInt(DBEkod2.text);
DM.TDogUsl.Delete;
DM.TDogUsl.Post;
 MessageDlg('Çàïèñü óäàëåíà',mtInformation , [mbOk], 0);
end;
  DM.QDogUsl.Close;
   DM.QDogUsl.SQL.Clear;
   DM.QDogUsl.SQL.Add('SELECT DISTINCT Uslugi.Name');
   DM.QDogUsl.SQL.Add('FROM Uslugi,Dogovor,Dog_Usl');
   DM.QDogUsl.SQL.Add('Where (Dog_Usl.Kod_dogovora='+(DBEkod.Text)+')');
   DM.QDogUsl.SQL.Add('AND (Uslugi.Kod_uslygi=Dog_Usl.Kod_uslygi)');
   DM.QDogUsl.Open;
   DM.QDogUsl.Active:=true;
end;

Скандербег · 21.06.2013, 22:37

Присвоение значения коду договора и коду услуги совсем уже из области фантазии.
Это не поможет установить курсор на нужные для удаления записи в компоненте и только вредит делу.
Удалять проще через модифицирующий запрос DELETE:

Delphi
1
2
3
query.SQL.Text := 'delete from Dog_Usl where Kod_dogovora = '+DBEkod.text+
                  ' and Kod_uslygi = '+DBEkod2.text;
query.ExecSQL;

@Make Me SmiLe · 22.06.2013, 14:34 **[ТС]**

Сообщение от Скандербег

Присвоение значения коду договора и коду услуги совсем уже из области фантазии.
Это не поможет установить курсор на нужные для удаления записи в компоненте и только вредит делу.
Удалять проще через модифицирующий запрос DELETE:

Delphi
1
2
3
query.SQL.Text := 'delete from Dog_Usl where Kod_dogovora = '+DBEkod.text+
                  ' and Kod_uslygi = '+DBEkod2.text;
query.ExecSQL;

Огромное спасибо! Очень выручили =)
Все работает)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .