Помогите решить проблему по удалению записи из DBGrid.

[Droid]

Не могу подобрать нужные параметры всегда ошибка вылазиет подскажите, кто умеет... или поправте.

DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Add('DELETE FROM pacient WHERE id_pacienta=:D;');
DM.ADOQ_PAC.Parameters.FindParam('D').Value:=DM.ADOQ_PACid_pacienta.DataSet.RecNo;
DM.ADOQ_PAC.ExecSQL;

//обновление таблицы
DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Add('SELECT * FROM pacient');
DM.ADOQ_PAC.Open

;

[Evgeniy26]

Попробуй:
DM.ADOQ_PAC.SQL.Add('DELETE FROM pacient WHERE id_pacienta=:D');

[Droid]

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

Попробуй:
DM.ADOQ_PAC.SQL.Add('DELETE FROM pacient WHERE id_pacienta=:D');

а разница между моим только в ; ? )))) не получается

[Stilet]

Ну и на каком языке ошибка?

[Droid]

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

Ну и на каком языке ошибка?

Раз в теме БД и Delphi, значит ошибка в этих языках. Ошибка такая Безымянный.jpg

[Droid]

Никто не подскажет мне чтоль так и буду мучиться ...

[Stilet]

Ну тогда не закрывай ADOQ_PAC перед выполнением запроса на удаление.

[Droid]

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

Ну тогда не закрывай ADOQ_PAC перед выполнением запроса на удаление.

Вы не поверите но ошибка таже...

Я думаю в коде чет у меня напутано.

[SlavaSH]

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

Не могу подобрать нужные параметры всегда ошибка вылазиет подскажите, кто умеет... или поправте.

DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Add('DELETE FROM pacient WHERE id_pacienta=:D;');
DM.ADOQ_PAC.Parameters.FindParam('D').Value:=DM.ADOQ_PACid_pacienta.DataSet.RecNo;
DM.ADOQ_PAC.ExecSQL;

//обновление таблицы
DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Add('SELECT * FROM pacient');
DM.ADOQ_PAC.Open

;

ну ты, братан, даёшь
нельзя же один и том же query использовать для отображения данных и при помощи него же удалять данные.

Для этого есть спец. компонент TADOCommand.
Нужно добавить его. Должно получиться что-то типа:

DM.ADOCommand.CommandText:='DELETE FROM pacient WHERE id_pacienta=:D';
DM.ADOCommand.Parameters.ParamByName('D').Value:=DM.ADOQ_PACid_pacienta.Value;
DM.ADOCommand.Execute;

//обновление таблицы

DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.Open;

[Droid]

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

ну ты, братан, даёшь
нельзя же один и том же query использовать для отображения данных и при помощи него же удалять данные.

Для этого есть спец. компонент TADOCommand.
Нужно добавить его. Должно получиться что-то типа:

DM.ADOCommand.CommandText:='DELETE FROM pacient WHERE id_pacienta=:D';
DM.ADOCommand.Parameters.ParamByName('D').Value:=DM.ADOQ_PACid_pacienta.Value;
DM.ADOCommand.Execute;

//обновление таблицы

DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.Open;

Я же не знал Спасибо получилось )))) А добавлять тоже через него или редактировать ? Потому что добавление у меня через ADOQuery - работает.