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

[АнтонКурышов]

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

[Stilet]

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

Идею уловил?

[АнтонКурышов]

Идею уловил?


Идею то вроде уловил.
Вот так написал:
With SQLQuery1 do begin
SQL.Text:='Delete from product where product_id =:key';
Params.ParamByName('key').Value:=Ed it6.Text;



product_id - ключевое поле
Edit6.Text - сюда ввожу значение по которому должно быть удаление
Но при нажатии на кнопку удалении появилась ошибка
SQLQuery1. Cannot open a non-select statement
Или я не то написал в "Значение, по которому будет удаление"??
Что туда надо прописать?

[АнтонКурышов]

От этой ошибки избавился, сам виноват!!
Но у меня просто исчезают все поля таблицы в DBGrid-e и все( то есть удаление не происходит

[evg_m]

Но у меня просто исчезают все поля таблицы в DBGrid-e и все( то есть удаление не происходит

Для удаления используйте ДРУГОЙ 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;

[Stilet]

А у тебя DBGrid подключен к SQLQuery тому?
Тогда либо для удаления отведи отдельно компонент, либо переоткрывай запрос SELECT заново после удаления.

[АнтонКурышов]

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

А у тебя DBGrid подключен к SQLQuery тому?
Тогда либо для удаления отведи отдельно компонент, либо переоткрывай запрос SELECT заново после удаления.

Да DBGrid подключен. а вы можете как-нибудь на примере показать, как делать то что вы сказали??

Сообщение от 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;

Вот написал как вы и сказали:

procedure TForm1.Button4Click(Sender: TObject);
begin
  SQLQuery2.Close;
  SQLQuery2.SQL.Clear;
  SQLQuery2.SQL.Text:='delete from product where product_id =:nn';
while not SQLQuery1.eof do begin
  SQLQuery2.ParamByName('nn').AsInteger:=SQLQuery1.FieldByName('product_id').Asinteger;
  SQLQuery2.ExecSQL;
end;
// а после удаления надо ОБНОВИТЬ(перечитать) исходный набор данных
SQLQuery1.Close;
SQLQuery1.Open;
end;

Но все равно не удаляет



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

Edit6.Text - сюда ввожу значение по которому должно быть удаление

где это в коде?!

Вы, хотели написать так?

procedure TForm1.Button4Click(Sender: TObject);
begin
  SQLQuery2.Close;
  SQLQuery2.SQL.Clear;
  SQLQuery2.SQL.Text:='delete from product where product_id =:nn';
  SQLQuery2.ParamByName('nn').AsInteger:=StrToInt(Edit6.Text);
  SQLQuery2.ExecSQL;
  // а после удаления надо ОБНОВИТЬ(перечитать) исходный набор данных
  SQLQuery1.Close;
  SQLQuery1.Open;
end;

[АнтонКурышов]

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

где это в коде?!

Вы, хотели написать так?

procedure TForm1.Button4Click(Sender: TObject);
begin
  SQLQuery2.Close;
  SQLQuery2.SQL.Clear;
  SQLQuery2.SQL.Text:='delete from product where product_id =:nn';
  SQLQuery2.ParamByName('nn').AsInteger:=StrToInt(Edit6.Text);
  SQLQuery2.ExecSQL;
  // а после удаления надо ОБНОВИТЬ(перечитать) исходный набор данных
  SQLQuery1.Close;
  SQLQuery1.Open;
end;

Спасибо это помогло) удаляет что я хочу)

[Stilet]

АнтонКурышов

Да, и на будущее совет: Если работаешь с SQL - про циклы всякие забывай сразу. Это как пятое колесо, пришитое к рукаву зайца.