sql запрос на удаление

Сижу уже пол дня,и не могу найти ошибку-при попытке удалить запись из таблицы выскакивает ошибка, что поле с таким именем не найдено(


procedure Tform_diagnozy.Button1Click(Sender: TObject);
begin
//проверим - есть ли текст в едит. Если нет, выходим:
if Edit1.Text = '' then begin
ShowMessage('Введите данные!');
Edit1.SetFocus;
Exit;
end;

dm.table_diagnozy.SQL.Clear;
dm.table_diagnozy.SQL.Add('INSERT INTO diagnozy (nazvanie_diagnoza) VALUES (:field)');
dm.table_diagnozy.Parameters[0].Value:=Edit1.Text;
dm.table_diagnozy.ExecSQL;
Edit1.Clear;
//обновление отображаемых данных в dbgride
dm.table_diagnozy.SQL.Clear;
dm.table_diagnozy.SQL.Add('SELECT nazvanie_diagnoza FROM diagnozy ');
dm.table_diagnozy.Active:=True;

end;

procedure Tform_diagnozy.Button2Click(Sender: TObject);
begin
//удаление записи
dm.table_diagnozy.SQL.Clear;
dm.table_diagnozy.SQL.Add('DELETE FROM diagnozy WHERE nazvanie_diagnoza=:field') ;
dm.table_diagnozy.Parameters.ParamByName ('field').Value:=dbgrid1.DataSource.Data Set.FieldByName('nazvanie_diagnoza').Val ue;
dm.table_diagnozy.ExecSQL;
//обновление отображаемых данных в dbgride
dm.table_diagnozy.SQL.Clear;
dm.table_diagnozy.SQL.Add('SELECT nazvanie_diagnoza FROM diagnozy ');
dm.table_diagnozy.Active:=True;
end;

procedure Tform_diagnozy.formActivate(Sender: TObject);
begin
dm.table_diagnozy.SQL.Clear;
dm.table_diagnozy.SQL.Add('SELECT nazvanie_diagnoza FROM diagnozy ');
dm.table_diagnozy.Active:=True;

end;

end.

Миниатюры

 

0

Используй два разных компонента dm.table_diagnozy чтобы вставить и вибрать с таблицы.

//обновление отображаемых данных в dbgride
dm.table_diagnozy.Active:=false;
dm.table_diagnozy.SQL.Clear;
dm.table_diagnozy.SQL.Add('SELECT nazvanie_diagnoza FROM diagnozy ');
dm.table_diagnozy.Active:=True;


dm.table_diagnozy2.SQL.Clear;
dm.table_diagnozy2.SQL.Add('DELETE FROM diagnozy WHERE nazvanie_diagnoza=:field') ;
dm.table_diagnozy2.Parameters.ParamByNam e('field').Value:=dm.table_diagnozy.Fiel dByName('nazvanie_diagnoza').Value;
dm.table_diagnozy2.ExecSQL;

0

Да,помогло))) Спасибо!

0