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

Delphi Sources



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

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

Здравствуйте. Есть GridEh который заполняется данными из базы по запросу. Как сделать так, чтобы выделенные строки можно было удалить (на удаление будет запрос). Может быть поделитесь готовым кодом или ссылкой.

P.S. Если еще и подскажите как сделать не выделение, а "чеканье" тех строк которые нужно удалить, счастье мое не будет знать предела
Ответить с цитированием
  #2  
Старый 21.10.2012, 16:20
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

delete from TABLE where ID = foo or ID = bar
ID - первичный ключ.
как-то так.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #3  
Старый 21.10.2012, 16:26
DOR DOR вне форума
Начинающий
 
Регистрация: 14.01.2011
Сообщения: 171
Версия Delphi: 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от M.A.D.M.A.N.
delete from TABLE where ID = foo or ID = bar
ID - первичный ключ.
как-то так.

а что значит foo и bar
Ответить с цитированием
  #4  
Старый 21.10.2012, 16:29
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

смотри свойство SelectedRows у TDBGrid. в справке и пример есть.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #5  
Старый 21.10.2012, 16:40
DOR DOR вне форума
Начинающий
 
Регистрация: 14.01.2011
Сообщения: 171
Версия Delphi: 7
Репутация: 10
По умолчанию

Справки нет. Вот так пытаюсь удалить, соответственно удаляет только 1 строку.
Код:
procedure Tf_ABP.N11Click(Sender: TObject);
var myQ: TADOQuery;
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';
          myQ.Parameters.ParamByName('ID_AVR_List').Value := Q_AVR_List.FieldByName('ID').Value;
          myQ.ExecSQL;
          myQ.Close;
          Q_AVR_List.Requery();
end;
Ответить с цитированием
  #6  
Старый 21.10.2012, 16:51
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Ну так запрос на удаление одной строки, оно и будет одну строчку удалять.
На удаление можно TADOCommand пользовать.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #7  
Старый 21.10.2012, 16:56
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию


а справку установи.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #8  
Старый 21.10.2012, 17:04
DOR DOR вне форума
Начинающий
 
Регистрация: 14.01.2011
Сообщения: 171
Версия Delphi: 7
Репутация: 10
По умолчанию

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

Помогите пжл, вам просто, мне не под силу
Ответить с цитированием
  #10  
Старый 21.10.2012, 18:10
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Намлок дал тебе ссылку на пример как через букмарки получить доступ к выделенным элементам грида, скопируй кусок этого кода, чё ты блин.
Скопируешь данные через запятую в строку, в запросе delete from table where id in (...).

Лень разбираться - го в раздел "код на шару".
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию

Последний раз редактировалось M.A.D.M.A.N., 21.10.2012 в 18:13.
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter