Удалить строку таблицы

[Aleksandr]

Имеется таблица Наличие документов. мне нужно удалить строку таблицы у которой Наименование = 8. Использую вот такой код

Query1.SQL.Clear;
//Query1.SQL.Text:= 'SELECT *';
Query1.SQL.Text:= 'DELETE FROM Наличие_документов';
Query1.SQL.Text:= 'WHERE Наименование='+'8';

Что я делаю не так у меня не удаляет.

[artemavd]

Может так:

Query1.SQL.Text:= 'WHERE Наименование=8';

М?

[Aleksandr]

Нет у меня 8 не число , а текст.
Есть CheckBox если ставлю флажок , то добавляется строка в таблице. Если убираю флажок то удаляется строка из таблицы. Без SQL запроса удаляет, но последнюю строку, а мне нужно, чтобы именно у которой наименование равнялось 8

procedure TEditRecordForm.CheckBox10Click(Sender: TObject);
begin
if checkbox10.Checked then begin
List9.Enabled:=true;
List9.SetFocus;
DataModule1.NalDokTable.Insert;
Datamodule1.NalDokTable.FieldByName('Наименование').Value:= 8;
DataModule1.NalDokTable.Post;
  end
  else
  begin
// if Datamodule1.NalDokTable.FieldByName('Наименование').AsFloat =8 then
 //  begin
  List9.Clear;
  List9.Enabled:=false;
//  DataModule1.NalDokTable.Delete;

Query1.SQL.Clear;
//Query1.SQL.Text:= 'SELECT *';
Query1.SQL.Text:= 'DELETE FROM Наличие_документов';
Query1.SQL.Text:= 'WHERE Наименование='+'8';
//Query1.Open;
//Query1.Delete;

//    end;
   end;


end;

[artemavd]

Может так:

Query1.SQL.Clear;
//Query1.SQL.Text:= 'SELECT *';
Query1.SQL.Text:= 'DELETE * FROM Наличие_документов';
Query1.SQL.Text:= 'WHERE Наименование='+'8';

??

[Gorychev]

Query1.SQL.Clear;
Query1.SQL.Text:= 'DELETE FROM Наличие_документов WHERE Наименование = 8';
Query1.Open;

Проверь, должно работать.

[Serge_Bliznykov]

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

Query1.Open;

учу молодых, что для insert/update/delete нельзя использовать открытие датасета, а опытные коллеги туда же

НЕЛЬЗЯ ДЕЛАТЬ .OPEN для запросов, которые изменяют данные! Это только для запросов с SELECT


Aleksandr
а что Вы полю text присваиваете 1-ю половину запроса, потом её затираете и присваивает 2-ю половину запроса?! и что, по Вашему, после этих манипуляций будет в SQL.Text ?!!

попробуйте либо так:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('DELETE FROM Наличие_документов');
Query1.SQL.Add('WHERE Наименование=8');
Query1.ExecSQL;

либо так:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('DELETE FROM Наличие_документов');
Query1.SQL.Add('WHERE Наименование=''8''');
Query1.ExecSQL;

[Aleksandr]

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

[Serge_Bliznykov]

ну разумеется!
писать в форуме вредно - описки возникают...
Правильно, разумеется,

Query1.ExecSQL;

в своём сообщении подправил..

[mihali4]

Добавлю свои "пять копеек"
Может, так ?

Query1.SQL.Text:= 'DELETE * FROM Наличие_документов WHERE Наименование='+QuotedStr('8');

[Aleksandr]

Тоже не удаляет.