Удалить сторики равные 0

@First · Регистрация: 09.06.2011

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

Скажите как можно реализовать:

у меня есть таблица товаров (tovar) и в ней как обычно бывает есть товар по количеству (kol_vo) равный 0 и не будет больше к примеру поступления как мне сделать что бы по нажатию кнопки строки с количеством равным 0 удалялись? зарание спс

@SAMZ · 22.01.2012, 18:07

Сообщение от First

как мне сделать что бы по нажатию кнопки строки с количеством равным 0 удалялись?

Скажите, а как можно вообще что - либо делать с БД в среде дельфи, не представляя себе таких элементарых вещей?

@First · 22.01.2012, 18:20 **[ТС]**

я не понял твоей реплики((( можно сделать что бы удалять по одной я понимаю и знаю как делать а если их 150 таких записей а всего 5000 записей мне их искать и удалять по одному?

@kwinto · 22.01.2012, 18:38

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
var
  Q: TADOQuery;
begin
  Q:=TADOQuery.Create(nil);
  try
    Q.Connection:=ADOConnection;
    Q.SQL.Text:='delete from tovar where kol_vo=0';
    Q.ExecSQL;
  finally
    Q.Free;
  end;
end;

@First · 22.01.2012, 18:48 **[ТС]**

спасибо большое

Добавлено через 1 минуту
мне ради интереса а может быть реализация без Query???

@ncuX1 · 22.01.2012, 20:56

deleted

@First · 23.01.2012, 17:00 **[ТС]**

Сообщение от ncuX1

deleted

не понял))

Добавлено через 18 часов 35 минут
Что то у меня не получается нефига, я как то видел что такое можно реализовать без ADOQuery

Добавлено через 19 минут

Delphi
1
2
3
4
5
6
7
8
9
10
11
begin
try
DM.tovar.First;
while not DM.tovar.Eof
do begin
if DM.tovar.FieldByName('kol_vo').Value=0 then DM.tovar.Delete;
DM.tovar.Next;
end;
except
showmessage('Îøèáêà óäàëåíèÿ ñòðîê!!!');
end;

я сделал так но почему то не все строки удаляюся?

@Grossmeister · 23.01.2012, 17:04

SQL - это современный уровень (клиент-сервер), навигационный доступ (это когда ты ручками перебираешь все записи) - вчерашний, если не позавчерашний день (я такое писал на Clipper в начале 90-х). При достаточно большом числе записей будут сильные тормоза. Так что осваивай SQL

@First · 24.01.2012, 10:39 **[ТС]**

Сообщение от Grossmeister

SQL - это современный уровень (клиент-сервер), навигационный доступ (это когда ты ручками перебираешь все записи) - вчерашний, если не позавчерашний день (я такое писал на Clipper в начале 90-х). При достаточно большом числе записей будут сильные тормоза. Так что осваивай SQL

ну вот было написано про SQL пример я просто не могу с ариентироваться как его впихнуть((((

Добавлено через 17 часов 21 минуту
Может поможите доразобраться с этим вопросом

@albor · 24.01.2012, 11:18

Сообщение от First

не понял))
...
я сделал так но почему то не все строки удаляюся?

Потому что надо сканировать в обратную сторону:

Delphi
1
2
3
4
5
6
7
8
9
10
try
  DM.tovar.Last;
  while not DM.tovar.Bof do 
  begin
     if DM.tovar.FieldByName('kol_vo').Value=0 then DM.tovar.Delete
     else DM.tovar.Prior;
  end;
except
  showmessage('...!!!');
end;

@MsGuns · 24.01.2012, 12:51

Дурь изначально в задаче. Товарищ УДАЛЯЕТ товар, который ушел в 0.
Это говорит о том, что программка (вместе с базой) изначально "для топки".
Если для зачОта, то ладно еще, хотя на месте препода такого "спесилиста" гнать надо поганой метлой (не исключено что вместе с "преподом")
Если "на заказ", то даже не знаю что сказать.. Еще один "складописатель", засушенными трупиками которых умощена дорога в СУБД.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3

	Удалить сторики равные 0 22.01.2012, 15:58. Показов 915. Ответов 10 Метки нет (Все метки) Скажите как можно реализовать: у меня есть таблица товаров (tovar) и в ней как обычно бывает есть товар по количеству (kol_vo) равный 0 и не будет больше к примеру поступления как мне сделать что бы по нажатию кнопки строки с количеством равным 0 удалялись? зарание спс 0

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
	22.01.2012, 18:20 [ТС]
	я не понял твоей реплики((( можно сделать что бы удалять по одной я понимаю и знаю как делать а если их 150 таких записей а всего 5000 записей мне их искать и удалять по одному? 0

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
	22.01.2012, 18:48 [ТС]
	спасибо большое Добавлено через 1 минуту мне ради интереса а может быть реализация без Query??? 0

@ncuX1 brony 77 / 57 / 4 Регистрация: 02.01.2012 Сообщений: 521
	22.01.2012, 20:56
	deleted 0

@Grossmeister 4217 / 3059 / 583 Регистрация: 21.01.2011 Сообщений: 13,203
	23.01.2012, 17:04
	SQL - это современный уровень (клиент-сервер), навигационный доступ (это когда ты ручками перебираешь все записи) - вчерашний, если не позавчерашний день (я такое писал на Clipper в начале 90-х). При достаточно большом числе записей будут сильные тормоза. Так что осваивай SQL 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	24.01.2012, 12:51
	Дурь изначально в задаче. Товарищ УДАЛЯЕТ товар, который ушел в 0. Это говорит о том, что программка (вместе с базой) изначально "для топки". Если для зачОта, то ладно еще, хотя на месте препода такого "спесилиста" гнать надо поганой метлой (не исключено что вместе с "преподом") Если "на заказ", то даже не знаю что сказать.. Еще один "складописатель", засушенными трупиками которых умощена дорога в СУБД. 0