Удалить запись в таблице через DBgrid

[Scorpuha]

у меня получаются что удаляются все записи в таблице, а надо только текущую (выделенная строка в гриде)

вот мои потуги

begin
    if messageDlg('Удалить запись?', mtconfirmation,[mbYes,mbNo],0)=mrYes
  then
 with datamodule2.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('DELETE FROM Attestat WHERE Id_sotrud=' +Form7.DBGrid2.Fields[1].AsString);
    ExecSQL;
    datamodule2.Attestat.Active:=False;
    datamodule2.Attestat.Active:=true;
  end;

[Streletz]

Попробуйте

Form7.DBGrid2.Fields[1].Value

[Scorpuha]

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

Попробуйте

Form7.DBGrid2.Fields[1].Value

выдает ошибку

[Dozent]

begin
    if messageDlg('Удалить запись?', mtconfirmation,[mbYes,mbNo],0)=mrYes
  then
 with datamodule2.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('DELETE FROM Attestat WHERE Id_sotrud=' +QuotedStr(Form7.DBGrid2.Fields[1].AsString));
    ExecSQL;
    datamodule2.Attestat.Active:=False;
    datamodule2.Attestat.Active:=true;
  end;

Попробуйте так...

а скорее всего вы берёте данные из поля типа integer, тогда лучше так

SQL.Add('DELETE FROM Attestat WHERE Id_sotrud=' +QuotedStr(IntToStr(Form7.DBGrid2.Fields[1].AsInteger)));

Да и к полям лучше обращаться по названию и в запросах использовать параметры...

[Scorpuha]

тоже ругается на счет типов данных

а так решил вот таким способом

if messageDlg('Удалить запись?', mtconfirmation,[mbYes,mbNo],0)=mrYes
  then
    form7.DBGrid2.DataSource.DataSet.Delete;

[Dozent]

таким способом вы удалите данные из набора данных которые получили при откртии приложения ну или когда там у вас датасет таблицы получает данные, а в таблице БД всё останется как и было. Ошибку покажите и покажите структуру таблицы

[Scorpuha]

почему же останется в таблице ? у меня данные удаляются из таблицы.

[Dozent]

а ну да) там же идёт привязка таблицы из БД, просто очень давно не пользуюсь данным видом работы с БД, потому немножко тупанул....

[xxbesoxx]

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

у меня получаются что удаляются все записи в таблице, а надо только текущую (выделенная строка в гриде)

вот мои потуги

begin
    if messageDlg('Удалить запись?', mtconfirmation,[mbYes,mbNo],0)=mrYes
  then
 with datamodule2.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('DELETE FROM Attestat WHERE Id_sotrud=' +Form7.DBGrid2.Fields[1].AsString);
    ExecSQL;
    datamodule2.Attestat.Active:=False;
    datamodule2.Attestat.Active:=true;
  end;

Вот смотрите

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Application.MessageBox(PChar('Вы действительно хотите удалить  : ' + ADOQuery1Naimenovanie.AsString), 'Внимание!!!', MB_OKCANCEL)=id_OK then
   ADOQuery1.Delete;
end;

[Dozent]

ой извините, но проект мне некогда смотреть, а вот то что вы написали тут как раз не будет удаления из БД, потому что квери это квери а TTable это совсем дургое, давайте структуру таблицы из БД сюда) будем составлять норм запрос на удаление