Удаление строки из Dataset

[Grers]

С Вашего позволения перепощу свой вопрос , заданный на другом ресурсе на этот форум.

Delphi 7.
Добрый день.
Если кого-то не затруднит.
Сам я не программист ни разу, но приходится иногда решать те или иные задачи в своей работе, вот и приходится корявыми пальцами что-то делать.
На форме есть dbgrid в котором отражены результаты SQL запроса.
Запрос через TApolloQuerry.
Результатом запроса является набор записей, содержащих три поля. Одно из полей memo.
Из набора записей нужно программно удалить те, memo поле ('FIELD_DATA') которых не содержит эталонной строки.
Алгоритм, собственно такой:
Dbgrid.Datasource.Dataset.First (установил курсор на первую запись)
создаю переменную m:Tmemo
считываю в m значение memo поля из Dataset: m.Lines.Text:= Form1.DBGrid2.DataSource.DataSet.Fi eldValues['FIELD_DATA']
проверяю содержимое по строкам.
Если эталонная строка в m есть, то Form1.DBGrid2.DataSource.DataSet.Ne xt;

Если эталонная строка в строках m отсутствует, то удаляю запись.
Form1.DBGrid2.DataSource.DataSet.De lete;

Все это в цикле.
По идее, если первая строка не содержит эталона и подлежит удалению, то она должна быть удалена и после удаления, курсор должен переместиться на следующую запись. Так в справке прочитал.
Но , во-первых, удаляется не первая запись (на которую я переместился в начале) а последняя (совершенно не понимаю почему);
во-вторых, он не перемещается на следующую запись.

Что в моем подходе не так?

[Stilet]

Запрос через Query? Т.е. SQL?
Тогда

With ТотQuery Do begin
 Sql.Text:='Delete from Табличка where not МемоПоле like :p';
 ParamByName('p').AsString:='%эталонной строки%';
 ShowMessage('Удалено '+intToStr(ExecSql)+' Записонов. Ура! товагищщи!');
end;

[Grers]

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

Запрос через Query? Т.е. SQL?
Тогда

With ТотQuery Do begin
 Sql.Text:='Delete from Табличка where not МемоПоле like :p';
 ParamByName('p').AsString:='%эталонной строки%';
 ShowMessage('Удалено '+intToStr(ExecSql)+' Записонов. Ура! товагищщи!');
end;

Спасибо.
Это удалит записи из исходной таблицы?

[Stilet]

Да. Должен удалить.
может быть я конечно в условии малось ошибся. но сам смысл - использовать SQL для удаления.

[Grers]

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

Да. Должен удалить.
может быть я конечно в условии малось ошибся. но сам смысл - использовать SQL для удаления.

В исходной таблице ничего удалять нельзя.
SQL запрос к трем таблицам. Пробовал использовать like в селективном запросе, для того чтобы на этом этапе сразу отсечь ненужные записи. Не получилось. Теперь хочу эти ненужные записи просто удалить в полученном Dataset.

[Stilet]

Пробовал использовать like в селективном запросе

Покажи.

хочу эти ненужные записи просто удалить в полученном Dataset.

Это неудачная идея, поскольку открытый датасет связан с самой базой. Удаляя из него ты фактически удаляешь из базы.
Да, если удаление не подтвердить то данные никуда не исчезнут, но в транзакции они то помечаются на удаление. И даже если нет то нет гарантий что удаление из датасета не отразится по велению провайдера на самой базе.
Например в ODBC иногда ставят auto commit после каждого действия с набором, что автоматически отражается в БД физически. Поэтому эта идея далеко не безопасная.

[Grers]

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

Покажи.

Ндааа.
Чудеса.
Вчерашний нерабочий запрос сегодня работает.

Спасибо.

[Stilet]

За что? )
Я ниче не сделал...