Удаление записи из таблицы с помощю процедуры firebird

[postaveche]

Здраствуйте
перед мной токая задача: надо удалить ряд из DBGridEh используя процедуру БД

код процедуры

create or alter procedure name (
    ID integer)
as
begin
  /* Procedure Text */
  delete from "table" where id = :id;
  suspend;
end^

далее в делфи делаю так

DataModule2.IBQuery2.SQL.Clear;
DataModule2.IBQuery2.SQL.Add('execute procedure name (:id)');
DataModule2.IBQuery2.ParamByName('id').Value := DBGridEh1.Fields[0].Value;
DataModule2.IBQuery2.ExecSQL;

что я не правельно зделал ато при нажатие батана удалить вылетает ошибка "Acces Violation"

[Serge_Bliznykov]

так, на первый взгляд, вроде бы всё нормально.
Только я бы переименовал процедуру. т.к. использованное вами слово может быть и ключевым.. да и не отражает сущность процедуры.
Назовите её, например, create or alter procedure DeleteById
это раз.

Второе. Вы что, таблице дали имя table ?!!! Это уж точно зря! Рекомендую переименовать! Если совсем уж с фантазией туго, тогда хотя бы циферки в конце имени добавьте.

Но, к сожалению, на 99% к возникающей ошибке Access Violation всё вышесказанное отношения не имеет!

Для отладки попробуйте поставить точку останова на операторе
DataModule2.IBQuery2.SQL.Clear;
и потом пошагово по F8 проходите, смотрите, на какой строке произойдёт AccessViolation

а потому, в зависимости от того, что это за строчка - и принимайте дальнейшие действия.

[Yurk@]

рискну предположить, что причина в IBQuery, т.к. он (как правило) не используется для таких целей. Для работы с хранимыми процедурами есть спец компонент: IBStoredProc

[postaveche]

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

так, на первый взгляд, вроде бы всё нормально.
Только я бы переименовал процедуру. т.к. использованное вами слово может быть и ключевым.. да и не отражает сущность процедуры.
Назовите её, например, create or alter procedure DeleteById
это раз.

Второе. Вы что, таблице дали имя table ?!!! Это уж точно зря! Рекомендую переименовать! Если совсем уж с фантазией туго, тогда хотя бы циферки в конце имени добавьте.

Но, к сожалению, на 99% к возникающей ошибке Access Violation всё вышесказанное отношения не имеет!

Для отладки попробуйте поставить точку останова на операторе
DataModule2.IBQuery2.SQL.Clear;
и потом пошагово по F8 проходите, смотрите, на какой строке произойдёт AccessViolation

а потому, в зависимости от того, что это за строчка - и принимайте дальнейшие действия.

имя таблицы и процедуры друге ... это я тут просто так написал

[_Engine_]

Что еще вы написали "просто так"? Если хотите помощи - пишите реальный код

[postaveche]

Сообщение от Yurk@

рискну предположить, что причина в IBQuery, т.к. он (как правило) не используется для таких целей. Для работы с хранимыми процедурами есть спец компонент: IBStoredProc

в документации ibase написанно что можно и так

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

IBQuery1.SQL.Clear; 
IBQuery1.SQL.Add('execute procedure test (:param1)');
IBQuery1.ParamByName('param1').asInteger:=5;
IBQuery1.ExecQuery; 

IBStoredProc1.StoredProcName:='test';
IBStoredProc1.ParamByName('param1').asInteger:=5;
IBStoredProc1.ExecProc;

[quit]

предложу такой вариант:

DataModule2.IBQuery2.SQL.Clear;
DataModule2.IBQuery2.SQL.Add('execute procedure name (:id);');
DataModule2.IBQuery2.ParamByName('id').AsInteger:= DBGridEh1.Fields[0].AsInteger;
DataModule2.IBQuery2.ExecSQL;

то есть привести сразу к Int

[postaveche]

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

Что еще вы написали "просто так"? Если хотите помощи - пишите реальный код

ну есле это вам поможет то пожалуста

create or alter procedure DEL_ALG_SPECII (
    ID integer)
as
begin
  /* Procedure Text */
  delete from "ALG_SPECII" where id = :id;
  suspend;
end^

delphi

procedure TFrame6.Button4Click(Sender: TObject);
begin
DataModule2.IBQuery2.SQL.Clear;
DataModule2.IBQuery2.SQL.Add('execute procedure DEL_ALG_SPECII (:id)');
DataModule2.IBQuery2.ParamByName('id').Value := DBGridEh1.Fields[0].Value;
DataModule2.IBQuery2.ExecSQL;

end;

[_Engine_]

Чему равно DBGridEh1.Fields[0].Value;
?

[postaveche]

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

предложу такой вариант:

DataModule2.IBQuery2.SQL.Clear;
DataModule2.IBQuery2.SQL.Add('execute procedure name (:id);');
DataModule2.IBQuery2.ParamByName('id').AsInteger:= DBGridEh1.Fields[0].AsInteger;
DataModule2.IBQuery2.ExecSQL;

то есть привести сразу к Int

Попробовал так ... всеравно ругается

Access Violation at address 0058D4E7 in module 'Project1.exe' Read of address 00000000