Ошибка при удалении записи из БД MySQL

[DEamON_M]

Код ошибки:

First chance exception at $75739673. Exception class EDatabaseError with message 'SQLQuery7: Cursor not returned from Query'. Process SkyNote.exe (2688)

Код программы:

DM.SQLQuery7.Active:=False;
DM.SQLQuery7.ParamByName('FriendIDDel').AsInteger:=DBCtrlGrid2.DataSource.DataSet.FieldByName('ID').AsInteger;
DM.SQLQuery7.ExecSQL;
DM.SQLQuery7.Active:=True;

SQL запрос:

DELETE
FROM Friends
WHERE ID=:FriendIDDel;

Ошибка показывает на DM.SQLQuery7.ExecSQL
Странно, он пишет, что ничего не получил, хотя и не должен. Сама запись удаляется как и должна.
Прошу оказать помощь в решении данной проблемы. Заранее спасибо.

[Аватар]

А точно ошибка на ExecSQL? Что-то мне кажется она на следующей команде, которая там ни к селу, ни к городу

[DEamON_M]

Дальше там только End. Я опечатался, он на End ставит ошибку

[Аватар]

Какой end? После ExecSQL я вижу команду DM.SQLQuery7.Active:=True;

[DEamON_M]

Вся процедура выглядит так

procedure TSNV.BitBtn6Click(Sender: TObject);
begin
  if MessageBox(Handle, PChar('Удалить эту запись?'), PChar('Удаление записи'),
    MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = mrYes then
  begin
    DM.SQLQuery7.Active:=False;
    DM.SQLQuery7.ParamByName('FriendIDDel').AsInteger:=DBCtrlGrid2.DataSource.DataSet.FieldByName('ID').AsInteger;
    DM.SQLQuery7.ExecSQL;
    DM.SQLQuery7.Active:=True;
  end;
end;

Вот компилятор тыкает на последний end; и выдаёт эту ошибку

[Аватар]

Третий раз пишу - у вас лишняя команда DM.SQLQuery7.Active:=True
Откройте справку и почитайте для чего и когда используются методы ExecSQL, Open, Close и свойство Active.

DM.SQLQuery7.Active:=False скорее всего тоже не нужно, если до этого Query не был открыт для SELECT-а. И где вы сам запрос на удаление засунули в Query?

[DEamON_M]

Почитал документы. Теперь всё ясно, я то думал, что это немного по другому работает.
Благодарю за быструю помощь, теперь всё работает.