Как удалить записи в DBGrid по условию из Edit?

@Kristina007 · Регистрация: 07.12.2016

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

Здравствуйте. У меня есть такие элементы: DBGrid, ADOConnection, ADOQuery, DataSourse. Мне нужно удалять записи из таблицы по условию(дата), которое задано в edit. Например условие: <20.03.2017. Вообще мне нужно, чтобы удалялись старые записи, поэтому не обязательно удалять через edit, просто я не знаю как еще можно. Помогите, пожалуйста, как это можно реализовать?

@qwertehok · 01.06.2017, 14:24

в адоквери пиши запрос

Delphi
1
2
adoquery.sql.text:='delete from TABLE where ДАТА='+Edit1.Text;
adoquery.execute;

только подставь вместо TABLE свою таблицу и в Edit нужно дату\время писать по формату

@krapotkin · 01.06.2017, 20:48

немного сложнее

Delphi
1
2
3
4
adoquery.sql.text:='delete from вашаТаблица where вашеПолеДаты<:d1';
adoquery.Parameters.ParamByName('d1').DataType:=ftDate; 
adoquery.Parameters.ParamByName('d1').Value:=strToDate(Edit1.text); 
adoquery.execute;

@Kristina007 · 03.06.2017, 14:08 **[ТС]**

1. ругается на adoquery.execute;, undeclared identifer
2. А нельзя как-нибудь сделать, чтобы удалялось несколько дат? не одна дата, которую я ввела, а еще те, которые были раньше? тобишь я ввожу 23.03.2017, если есть раньше, то удалялось там и 07.02.2017, 12.03.2017

Добавлено через 5 минут
Ругается на adoquery.execute; undeclared identifer execute

@YuryK · 03.06.2017, 14:08

1) adoquery.ExecSQL
2) там же стоит < поэтому и с ранними датами записи будут удалены.

@Kristina007 · 03.06.2017, 14:49 **[ТС]**

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

1) adoquery.ExecSQL
2) там же стоит < поэтому и с ранними датами записи будут удалены.

Я к первому ответу писала

А как писать дату? А то ошибка выскакивает, в таблице у меня формат 23.03.2017

@YuryK · 03.06.2017, 15:12

а я ко второму, т.к. дату следует передавать через параметр и как дату.
А чтобы не напутать с написанием и интерпретацией даты, использовать не Edit1.text а DateTimePicker.Date

Добавлено через 42 секунды

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

в таблице у меня формат 23.03.2017

если там дата, то формат другой, это только так отображается

@Kristina007 · 03.06.2017, 16:24 **[ТС]**

Что-то он у меня все записи удаляет
Добавлено через 1 минуту

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

а я ко второму, т.к. дату следует передавать через параметр и как дату.
А чтобы не напутать с написанием и интерпретацией даты, использовать не Edit1.text а DateTimePicker.Date

А нет, удалил все нормально, только когда удаляешь, таблица пустая становится, заново запустила, а там записи удалены те

@YuryK · 03.06.2017, 16:26

вы ЕГО нам так и не показали

@Kristina007 · 03.06.2017, 16:32 **[ТС]**

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

вы ЕГО нам так и не показали

кого?

Как сделать чтобы сразу нормально удалялось? А не все записи исчезали, а потом появлялись при перезаходе

@YuryK · 03.06.2017, 16:38

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

кого?

того, о ком вы писали

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

Что-то он у меня все записи удаляет

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

Как сделать чтобы сразу нормально удалялось? А не все записи исчезали, а потом появлялись при перезаходе

Вы не поверите, но когда я удаляю, все нормально удаляется, все записи не исчезают, и не появляются при перезаходе.

Покажите текст запроса и код кнопки удаления хотя бы.

@Kristina007 · 03.06.2017, 16:42 **[ТС]**

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

Покажите текст запроса и код кнопки удаления хотя бы.

Delphi
1
2
3
4
adoquery3.sql.text:='delete from Ïóòåâîé_ëèñòwhere Äàòà_âîçâðàùåíèÿ<:d1';
adoquery3.Parameters.ParamByName('d1').DataType:=ftDate;
adoquery3.Parameters.ParamByName('d1').Value:=DateTimePicker1.Date;
ADOQuery3.ExecSQL;

@YuryK · 03.06.2017, 16:45

этот запрос удалит из таблицы, а набор данных, который отображается у вас в гриде от этого не изменится. Его надо переоткрыть, а не перевходить заново

@Kristina007 · 03.06.2017, 16:55 **[ТС]**

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

Его надо переоткрыть, а не перевходить заново

Подскажите глупой девочке как правильно это сделать?

Delphi
1
2
3
4
5
6
ADOQuery3.close;
adoquery3.sql.text:='delete from Путевой_лист where Дата_возвращения<:d1';
adoquery3.Parameters.ParamByName('d1').DataType:=ftDate;
adoquery3.Parameters.ParamByName('d1').Value:=DateTimePicker1.Date;
ADOQuery3.Open;
ADOQuery3.ExecSQL;

@YuryK · 03.06.2017, 17:03

т.е. вы ADOQuery3 используете и для просмотра записей в гриде и для удаления записей из таблицы? Поэтому все записи и пропадают. Надо тогда вернуть первоначальный запрос на место:

Delphi
1
2
3
4
5
6
7
8
ADOQuery3.close;
adoquery3.sql.text:='delete from Путевой_лист where Дата_возвращения<:d1';
adoquery3.Parameters.ParamByName('d1').DataType:=ftDate;
adoquery3.Parameters.ParamByName('d1').Value:=DateTimePicker1.Date;
ADOQuery3.ExecSQL;
 
adoquery3.sql.text:='SELECT * from Путевой_лист'; 
ADOQuery3.Open;

@Kristina007 · 03.06.2017, 17:36 **[ТС]**

YuryK, спасибо вам большое

@krapotkin · 03.06.2017, 18:22

а еще лучше для каждого дела просто оставить свой ADOQuery, заполннить его в Design-Time и не переписывать каждый раз

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@Kristina007 0 / 0 / 1 Регистрация: 07.12.2016 Сообщений: 22

	Как удалить записи в DBGrid по условию из Edit? 01.06.2017, 14:04. Показов 2126. Ответов 16 Метки нет (Все метки) Здравствуйте. У меня есть такие элементы: DBGrid, ADOConnection, ADOQuery, DataSourse. Мне нужно удалять записи из таблицы по условию(дата), которое задано в edit. Например условие: <20.03.2017. Вообще мне нужно, чтобы удалялись старые записи, поэтому не обязательно удалять через edit, просто я не знаю как еще можно. Помогите, пожалуйста, как это можно реализовать? 0

@Kristina007 0 / 0 / 1 Регистрация: 07.12.2016 Сообщений: 22
	03.06.2017, 14:08 [ТС]
	1. ругается на adoquery.execute;, undeclared identifer 2. А нельзя как-нибудь сделать, чтобы удалялось несколько дат? не одна дата, которую я ввела, а еще те, которые были раньше? тобишь я ввожу 23.03.2017, если есть раньше, то удалялось там и 07.02.2017, 12.03.2017 Добавлено через 5 минут Ругается на adoquery.execute; undeclared identifer execute 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	03.06.2017, 14:08
	1) adoquery.ExecSQL 2) там же стоит < поэтому и с ранними датами записи будут удалены. 1

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	03.06.2017, 16:26
	вы ЕГО нам так и не показали 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	03.06.2017, 16:45
	этот запрос удалит из таблицы, а набор данных, который отображается у вас в гриде от этого не изменится. Его надо переоткрыть, а не перевходить заново 0

@Kristina007 0 / 0 / 1 Регистрация: 07.12.2016 Сообщений: 22
	03.06.2017, 17:36 [ТС]
	YuryK, спасибо вам большое 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,656 Записей в блоге: 21
	03.06.2017, 18:22
	а еще лучше для каждого дела просто оставить свой ADOQuery, заполннить его в Design-Time и не переписывать каждый раз 0

Как удалить записи в DBGrid по условию из Edit?

Решение