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

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

21.06.2013, 22:04. Показов 1149. Ответов 2
Метки нет (Все метки)

Здравствуйте.
Такая проблема:
Есть база данных в 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;
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.06.2013, 22:04
Ответы с готовыми решениями:

Еще раз о "многие-ко-многим"
Здравствуйте! Заранее прошу прощения, если мой вопрос наивный - я не опытный программер. У...

Заполнение атрибута "marks" всех кортежей таблицы "example" случайными числами используя ADO Table
Написать программу заполнения атрибута << marks >> всех кортежей таблицы << example >> случайными...

Запрос на соединение двух таблиц связью "один ко многим" в ADO
Как правильно записать запрос на создание связи между таблицами типа "один ко многим"? Пишу такой...

Запрос "один ко многим", в одну ячейку
Здравствуйте! Имеется две таблицы 1т 2т, они объединены по полю id. Одному 1т.id может...

2
1073 / 986 / 340
Регистрация: 07.08.2012
Сообщений: 2,783
21.06.2013, 22:37 2
Присвоение значения коду договора и коду услуги совсем уже из области фантазии.
Это не поможет установить курсор на нужные для удаления записи в компоненте и только вредит делу.
Удалять проще через модифицирующий запрос DELETE:
Delphi
1
2
3
query.SQL.Text := 'delete from Dog_Usl where Kod_dogovora = '+DBEkod.text+
                  ' and Kod_uslygi = '+DBEkod2.text;
query.ExecSQL;
1
0 / 0 / 1
Регистрация: 04.05.2012
Сообщений: 21
22.06.2013, 14:34  [ТС] 3
Цитата Сообщение от Скандербег Посмотреть сообщение
Присвоение значения коду договора и коду услуги совсем уже из области фантазии.
Это не поможет установить курсор на нужные для удаления записи в компоненте и только вредит делу.
Удалять проще через модифицирующий запрос DELETE:
Delphi
1
2
3
query.SQL.Text := 'delete from Dog_Usl where Kod_dogovora = '+DBEkod.text+
                  ' and Kod_uslygi = '+DBEkod2.text;
query.ExecSQL;
Огромное спасибо! Очень выручили =)
Все работает)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2013, 14:34

Связь многие ко многим
Сначала про базу данных. Существует несколько таблиц, есть главная таблица(транспортный лист)...

запрос многие ко многим
есть 3 таблицы: bank id name client id name они связаны через таблицу:

Связь многие ко многим
Помогите пожалуйста! Создала таблицы в Database desktop(->Paradox7) Taблицы: Выдача, Книги,...

Вставка в 2 табл многие ко многим
Здравствуйте, нужна помощь! У меня имеются две таблицы строения и оборудование, а так же...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.