Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ] > Код на шару!
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.10.2012, 19:24
DOR DOR вне форума
Начинающий
 
Регистрация: 14.01.2011
Сообщения: 171
Версия Delphi: 7
Репутация: 10
По умолчанию Удаление нескольких выделенных строк из базы

Есть таблица "цена" (ключевое поле ID) она частично запросом вытягивается в Grid1. Есть еще одна таблица "товар" связан с таблицей "цена" по полю f_цена (id таблицы "цена"). Нужно чтобы при выделении нескольких строк в Grid1, удалялись записи из таблицы "товар". Знаю как удалить 1 строку,но как сделать мульти удаление, не знаю. Помогите пжл написать код, если потребуется оплата, прошу отписаться в личку с ценой.
Ответить с цитированием
  #2  
Старый 21.10.2012, 19:40
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

1. Какая СУБД используется? Access/ODBC/Zeos...?
2. Какой метод удаления для одной строки используется? (SQL, или процедурный)?
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #3  
Старый 21.10.2012, 20:01
DOR DOR вне форума
Начинающий
 
Регистрация: 14.01.2011
Сообщения: 171
Версия Delphi: 7
Репутация: 10
По умолчанию

база Access, метод удаления использую SQL
Ответить с цитированием
  #4  
Старый 21.10.2012, 20:09
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Код:
DELETE from товар where id=1 or id=2
Код:
DELETE from товар where id in (1, 2, ...)
Возможно, названия таблиц и полей надо взять в обратные апострофы ("`") или квадратные скобки ("[...]"), не помню как для access правильно.
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #5  
Старый 21.10.2012, 20:14
DOR DOR вне форума
Начинающий
 
Регистрация: 14.01.2011
Сообщения: 171
Версия Delphi: 7
Репутация: 10
По умолчанию

вся сложность в том, что я не понимаю этого, ранее мне подсказывали http://www.delphisources.ru/forum/sh...ad.php?t=22390, но я так и не смог разобраться, как мне посоветовали, обратился сюда.

Последний раз редактировалось DOR, 21.10.2012 в 21:37.
Ответить с цитированием
  #6  
Старый 21.10.2012, 22:05
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Q_AVR_List - это TADOQuery или что?
И как у тебя зовётся DBGrid (или GridEh, вроде, в той теме он был)?
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj

Последний раз редактировалось PhoeniX, 21.10.2012 в 22:09.
Ответить с цитированием
  #7  
Старый 21.10.2012, 22:26
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Код:
procedure Tf_ABP.N11Click(Sender: TObject);
var
  myQ: TADOQuery;
  i: integer;
begin
  myQ := TADOQuery.Create(nil);
  myQ.Connection := DataModule1.ADOConnection1;
  myQ.SQL.Clear;
  myQ.Parameters.Clear;
  myQ.sql.Text := 'Delete From AVR_List Where ID = :ID_AVR_List';
  for i := 0 to DBGrid1.SelectedRows.Count -1 do begin
    Q_AVR_List.GotoBookmark(Pointer(DBGrid1.SelectedRows[i]));
    myQ.Parameters.ParamByName('ID_AVR_List').Value := Q_AVR_List.FieldByName('ID').Value;
    myQ.ExecSQL;
  end;
  myQ.Close;
  myQ.Free; // Мусор не забываем убирать ;)
  Q_AVR_List.Requery;
end;
DBGrid1 замени на имя своего грида.
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
Этот пользователь сказал Спасибо PhoeniX за это полезное сообщение:
DOR (21.10.2012)
  #8  
Старый 21.10.2012, 22:46
DOR DOR вне форума
Начинающий
 
Регистрация: 14.01.2011
Сообщения: 171
Версия Delphi: 7
Репутация: 10
По умолчанию

PhoeniX, огромное Вам спасибо.
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:53.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter