процедура Insert

[Morgana]

Здравствуйте, вы не подскажете, что я делаю не так.
База данных, состоящая из одной таблицы, написана в SQL 2005, там же создана процедура:

CREATE PROC InsertPasport
@s_n INT
,@surname VARCHAR(30)
,@name1 VARCHAR(30)
,@name2 VARCHAR(30)
,@birthday DATETIME
,@who_v VARCHAR(500)
,@when_v DATETIME
,@registration VARCHAR(500)
,@adres VARCHAR(500)
,@family VARCHAR(20)
AS
Begin
INSERT INTO Pasport
(S_N, SURNAME, NAME1, NAME2, BIRTHDAY, WHO_V,
WHEN_V, REGISTRATION, ADRES, FAMILY)
VALUES (@s_n, @surname, @name1, @name2, @birthday, @who_v,
@when_v, @registration, @adres, @family)
end
GO

Интерфейс к базе создаётся на Delphi. Проблема в том что при обращении к процедуре “InsertPasport” :

procedure TForm2.FormCreate(Sender: TObject);
begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('EXEC InsertPasport');
ADOQuery1.Open;
ADOQuery1.Active:=true;
end;

Появляется ощибка: Exception class EOleException with message 'Procedure or Function 'InsertPasport' expects parameter '@s_n', which was not supplied'.

[pu4koff]

А параметры кто будет в процедуру передавать?
А то получается требуете добавить паспорт, а какой, чей и с какой целью не указываете.

[Morgana]

А вас не затруднит привести пример.

[pu4koff]

Ну вообще для работы с хранимыми процедурами есть ADOStoredProc. В ADOQuery вроде бы надо как-то так:

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('EXEC InsertPasport :s_n, :surname, ...');
ADOQuery1.Parameters[0] := 10; // s_n := 10
ADOQuery1.Parameters.ParamByName('surname').AsString := 'трям'; // surname = трям
...
ADOQuery1.Exec; // Open тут не нужен, потому что процедура не возвращает никаких данных

При использовании ADOStoredProc как-то так:

ADOStoredProc1.ProcedureName := 'InsertPasport';
ADOStoredProc1.Parameters[0] := 10;
...
ADOStoredProc1.Exec;

В общем как-то так, но могу ошибаться, т.к. писал по памяти

[Stilet]

А вас не затруднит привести пример.

Давно не работал с параметрами, но предположим так:

ADOQuery1.SQL.Add('EXEC InsertPasport(1,"John","Smith", ну и тут остальные параметры)');

[Morgana]

Form1.ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add('EXEC InsertPasport :s_n, :surname, :name1, :name2, :birthday, :who_v, :when_v, :registration, :adres, :family');
ADOQuery1.Parameters[0].Value:=10;
ADOQuery1.Parameters.ParamByName('surname').Value:= DBEdit1.Text;
ADOQuery1.Parameters.ParamByName('name1').Value:= DBEdit2.Text;
ADOQuery1.Parameters.ParamByName('name2').Value:= DBEdit3.Text;
ADOQuery1.Parameters.ParamByName('birthday').Value:= DBEdit4.Text;
ADOQuery1.Parameters.ParamByName('who_v').Value:= DBMemo1.Text;
ADOQuery1.Parameters.ParamByName('when_v').Value:= DBEdit6.Text;
ADOQuery1.Parameters.ParamByName('registration').Value:= DBMemo2.Text;
ADOQuery1.Parameters.ParamByName('adres').Value:= DBMemo3.Text;
ADOQuery1.Parameters.ParamByName('family').Value:= DBEdit7.Text;
ADOQuery1.ExecSQL;

возникает сообщение :
Exception class EDatabaseError with message 'ADOQuery1: CommandText does not return a result set'.
Как это можно исправить?

[soleil@mmc]

может так?

ADOQuery1.SQL.add('EXEC InsertPasport( :s_n, :surname, :name1, :name2, :birthday, :who_v, :when_v, :registration, :adres, :family)');

[Morgana]

Сообщение от soleil@mmc

может так?

ADOQuery1.SQL.add('EXEC InsertPasport( :s_n, :surname, :name1, :name2, :birthday, :who_v, :when_v, :registration, :adres, :family)');

попробовала выдаёт ошибку: Exception class EOleException with message 'Incorrect syntax near '@P1''

[pu4koff]

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

возникает сообщение :
Exception class EDatabaseError with message 'ADOQuery1: CommandText does not return a result set'.
Как это можно исправить?

А процедура вызывается? запись в базе появляется?
Вообще это он ругается, что ничего не возвращается (оно и правильно. процедура ваша же ничего не возвращает), только вот это логично при Open, а при ExecSQL вроде ничего и не ожидается...
Попробуйте еще у свойства ExecuteOptions вашего ADOQuery1 установить eoExecuteNoRecords в true.

[Morgana]

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

А процедура вызывается? запись в базе появляется?
Вообще это он ругается, что ничего не возвращается (оно и правильно. процедура ваша же ничего не возвращает), только вот это логично при Open, а при ExecSQL вроде ничего и не ожидается...
Попробуйте еще у свойства ExecuteOptions вашего ADOQuery1 установить eoExecuteNoRecords в true.

Да записи в таблице появляются, но при этом по 2, с разными значениями поля S_N. Если eoExecuteNoRecords ->true то появляется такое сообщение: " 'Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом'.