Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.05.2015, 14:26   #1
Marla14
Пользователь
 
Регистрация: 29.01.2015
Сообщений: 38
По умолчанию запрос SQL на удаление строк

Помогите написать запрос. Есть 3 таблицы TADODataSet, необходимо что бы при выборе строки в 1 таблице по нажатии на кнопку удалились эти же строки в 2х других таблицах по значению поля, например есть поле "Название" во всех 3х таблицах, и удалялось строка с таким названием, которое выбрано в 1 таблице
Marla14 вне форума Ответить с цитированием
Старый 09.05.2015, 15:00   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ну двумя запросами. Например:
Код:
with ADOQuery do begin
 sql.text:='delete from Таблица2 where Наименивание='+QuotedStr(ADODataSet.FieldByName('Наименование').AsString);
 ExecSQL;
 sql.text:='delete from Таблица3 where Наименивание='+QuotedStr(ADODataSet.FieldByName('Наименование').AsString);
 ExecSQL;
end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 09.05.2015, 15:07   #3
Marla14
Пользователь
 
Регистрация: 29.01.2015
Сообщений: 38
По умолчанию

только у меня не ADOQuery а ADODataSet, как в них этот запрос написать?
Marla14 вне форума Ответить с цитированием
Старый 09.05.2015, 16:21   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Без понятия. Не использую его.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 09.05.2015, 16:54   #5
Marla14
Пользователь
 
Регистрация: 29.01.2015
Сообщений: 38
По умолчанию

А возможно ли тогда удалять записи с помощью
Код:
DataModule.DataSet.Delete
что то вроде этого

Код:
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
if DataModule2.HandDS.FieldValues['Название'].Text:=DataModule2.BookDS.FieldValues['Название'].Text then
DataModule2.HandDS.Delete;
Marla14 вне форума Ответить с цитированием
Старый 09.05.2015, 17:07   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Можно. Но тогда придется делать поиск в цикле.
Код:
with DataModule2.HandDS do
 while locate('Название',DataModule2.BookDS.FieldValues['Название'].Text)
  do Delete();
Имей ввиду - эта операция медленная. Может сказаться на скорости работы программы.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 09.05.2015, 17:38   #7
Marla14
Пользователь
 
Регистрация: 29.01.2015
Сообщений: 38
По умолчанию

Так выдает ошибку во второй строке: Not enough actual parameters
Помогите пожалуйста может что то не так делаю

Код:
with DataModule2.HandDS do
 while Locate('Название',DataModule2.BookDS.FieldValues['Название'].Text)
  do Delete(DataModule2.HandDS.FieldValues['Название']);
Marla14 вне форума Ответить с цитированием
Старый 09.05.2015, 18:21   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Вот самое время и научиться пользоваться хелпом.
Тебе задание:
1) По тексту ошибок определить на какой метод ругается (Locate)
2) Почитать хелп по этому методу, и посмотреть какие параметры и сколько принимает метод.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удаление повторяющихся строк из таблицы в SQL II_Dimit_II БД в Delphi 9 31.05.2013 02:48
SQL удаление строк sir.andrey Помощь студентам 5 10.05.2013 11:34
Как составить SQL запрос на удаление записей Dux БД в Delphi 2 19.02.2013 23:36
sql запрос на удаление из связанных таблиц NeVirus БД в Delphi 3 23.11.2011 12:01
Удаление данных из таблицы через SQL запрос Kity19 БД в Delphi 2 19.01.2011 23:35