Удаление записей из таблицы в Lazarus-е

Posted by obzor under Delphi, sql

Как удалить записи из таблицы? Использую компоненты SQLQuery и DBGrid.

Stilet

With SQLQuery do begin
 SQL.Text:='Delete from Таблица where Ключевое поле=:key';
 Parameters.ParamByName('key').Value:=Значение, по которому будет удаление;
 if ExecSQL=0 then ShowMessage('Записей на удаление нет');
end;

Идею уловил?

evg_m

Для удаления используйте ДРУГОЙ Query, а не тот что был использован в показе DBGrid.
Примите за правило, для каждого из действий (для каждого SQL запроса) должен быть СВОЙ отдельный SQLQuery(1, 2, 3, ….) настроенные на один и тот же Connect.

SQLQuery1.SQL.Text:='select ...'; // запрос для DBgrid

SQLQuery2.SQL.Text:='delete from t where id=:nn';

while not SQLQuery1.eof do begin
  SQLQuery2.ParamByName('nn').AsInteger:=SQLQuery1.FieldByName('id').Asinteger;
  SQLQuery2.ExecSQL;
end;
// а после удаления надо ОБНОВИТЬ(перечитать) исходный набор данных
SQLQuery1.Close;
SQLQuery1.Open;

тема на форуме

Похожие статьи

• Перенести программу из Delphi в Lazarus
• Компонент ShortPathEdit в lazarus
• Определить количество заданных точек (x,y)
• Открыть указанную папку в проводнике
• Выгрузить данные из DBGrid в txt-файл
• Рисование эллипса удержанием кнопки на любом месте TImage
• Программа для создания кроссвордов — Lazarus[Delphi]-версия
• Panic button — WinAPI графика
• Lazarus: Полная кроссплатформенность?