Добавление записи через StoredProc

[Rin]

Здравствуйте .
Есть SQL Server 2008 и Delphi 7.
В SQL Server Manager создал 2 таблицы, связал их и создал представление.

Чтобы добавлять записи в таблицы были созданы 2 хранимые процедуры MAX_PROJECT и ADD_PROJ:

ALTER PROCEDURE [dbo].[MAX_PROJECT]
@mxm BIGINT OUTPUT
AS
BEGIN
SELECT @mxm=MAX(id_pr) from my_project
SET @mxm=ISNULL(@mxm,1)
END

ALTER PROCEDURE [dbo].[ADD_PROJ]
@n_id_prj      BIGINT,
@n_name        VARCHAR(50),
@n_client      VARCHAR(30),
@n_cost        MONEY,
@n_d_begin     DATE,
@n_d_end       DATE,
@n_manager     VARCHAR(40), 
@n_partakers   VARCHAR(100)
AS BEGIN 
  INSERT INTO MY_PROJECT(ID_PR,name_pr,client,cost,date_begin,date_end,is_manager)
                 VALUES (@n_id_prj,@n_name,@n_client,@n_cost,@n_d_begin,@n_d_end,@n_manager) 
  INSERT INTO PARTAKERS(ID_PR,partakers)
                VALUES (@n_id_prj,@n_partakers)                     
END

В делфи кинул на форму DBGrid+ADOTable+DataSource для просмотра и вписывания записи и StoredProc для 2 хранимок.

Для добавления записи вызываю ADOTable.Append, вписываю в DBGrid данные и нажимаю ENTER и происходит следующее:

procedure save_changes(var My_Table:TADOTable;My_Grid:TDBGrid);
begin
Form1.ADOConnection1.BeginTrans;
if My_Table.Modified then  My_Table.Post;
Form1.ADOConnection1.CommitTrans;
My_Table.Close;
My_Table.Open;
My_Grid.Refresh;
end;

procedure TForm1.Grid_projectKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var id_prj:string;
begin
 if key=VK_RETURN then
  begin

   Grid_project.SelectedIndex:=0;
   ADOStoredProc1.ProcedureName:='MAX_PROJECT;1';
   ADOStoredProc1.Parameters.Refresh;
   ADOStoredProc1.Parameters.Items[1].direction:=TParameterDirection(2);
   ADOStoredProc1.ExecProc;
   id_prj:=ADOStoredProc1.Parameters.ParamValues['@mxm'];

   ADOStoredProc1.ProcedureName:='ADD_PROJ;1';
   ADOStoredProc1.Parameters.Refresh;
   ADOStoredProc1.Parameters.ParamValues['@n_id_prj']:=id_prj;
   ADOStoredProc1.Parameters.ParamValues['@n_name']:=Grid_project.Fields[0].AsString;
   ADOStoredProc1.Parameters.ParamValues['@n_client']:=Grid_project.Fields[1].AsString;
   ADOStoredProc1.Parameters.ParamValues['@n_cost']:=Grid_project.Fields[2].AsString;
   ADOStoredProc1.Parameters.ParamValues['@n_d_begin']:=Grid_project.Fields[3].AsString;
   ADOStoredProc1.Parameters.ParamValues['@n_d_end']:=Grid_project.Fields[4].AsString;
   ADOStoredProc1.Parameters.ParamValues['@n_manager']:=Grid_project.Fields[5].AsString;
   ADOStoredProc1.Parameters.ParamValues['@n_partakers']:=Grid_project.Fields[6].AsString;
   T_view_project.Cancel;
   ADOStoredProc1.ExecProc;
   save_changes(T_view_project,Grid_project);
  end;
end;

При попытке добавить данные, получаю Access Violation при выполнении какой-то функции в sqloledb.dll при выполнении помеченной строчке в коде.
Что может быть? Заранее спасибо.

[Streletz]

Может быть это мешает?

T_view_project.Cancel;

Кстати, T_view_project - это, что за "зверь" такой? Поясните, что это, что бы можно было сказать точнее.

[Rin]

T_view_project:ADOTable, привязанная к DBGrid.
Не, cancel тут не причем.

[Streletz]

А, что написано в сообщении ошибке?

[Rin]

Обычный Access Violation. Что-то типа : Access violation по адресу такому-то при выполнении sqloledb.dll. Какой-то другой адрес не может быть read.

[Аватар]

1. Покажите код создания таблиц и связей между ними.
2. Не понятно вообще зачем таблица PARTAKERS - единственное её информационное поле можно просто поместить в таблицу MY_PROJECT

Не, cancel тут не причем.

Не факт. Может на нем и есть ошибка. Или думаете, что ADOTable без провайдера работает? В пошаговой трассировке точно локализуйте строку, на которой ошибка вываливается

[Rin]

Покажите код создания таблиц и связей между ними.

Таблицы и связи создавались не с помощью запросов, а визуально в SQL Server Manager. Что именно интересует в связях?

Не понятно вообще зачем таблица PARTAKERS - единственное её информационное поле можно просто поместить в таблицу MY_PROJECT

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

Не факт. Может на нем и есть ошибка.

Трассировал и с cancel и без cancel. Все одно и тоже. Думаю, что все таки буду использовать обычный StringGrid и хранимые процедуры для редактирования, фильтрации и отображения инфы. Думаю, отлавливать ошибку с невыделенной памятью в dll будет намного сложней.

[eval]

в ошибке указан ее адрес

[Прик]

Удивительно много накручено для добавления данных в простенькую таблицу.
Потом удивляемся ошибкам.

К чему, например, выкрутасы с обновлением в процедуре save_changes.
Когда достаточно просто переоткрыть датасет (для этого в АДО датасетах есть метод Requery или просто Close/Open; кстати, Refresh здесь бесполезен).
Если это не учебная задача, то вообще непонятно зачем нужна ХП для добавления данных.
Да и недоумение Аватар'а разделяю. Не нужна эта доп. таблица. Если посмотреть на запросы в ХП, то видно, что это плод не нормализации, а непонятно чего, т.к. связь этих таблиц один-к-одному.
Будьте проще в коде и обезопасите себя от многих ошибок.

Я бы этот код переписал с применением ADOQuery с запросом INSERT. Большего и не надо.

[eval]

зачем нужна ХП для добавления данных.

а зачем они вообще нужны?