Не выполняется хранимая процедура на SQL server из delphi

← →
freeman2003 (2003-09-03 16:30) [0]

Есть хранимая процедура
CREATE PROCEDURE sp_v_remont
@printer_id smallint,
@date_begin datetime,
@prim text
AS
UPDATE printer
SET remont=1
WHERE printer_id=@printer_id

INSERT INTO remont (rem_type,technika_id,date_begin,prim)
VALUES (2,@printer_id,@date_begin,@prim)
GO

В приложении
procedure TFremont.BitBtn1Click(Sender: TObject);
begin
dm1.v_remont.ParamByName("@printer_id").AsInteger :=dm1.QPrinterALL.Fieldbyname("printer_id").AsInteger;
dm1.v_remont.ParamByName("@date_begin").AsDateTime := datetimepicker1.DateTime ;
dm1.v_remont.ParamByName("@prim").AsMemo :=memo1.Text;
dm1.v_remont.execproc ;
end

Не срабатывает хранимая процедура.Почему?Помогите!!!

← →
Palladin (2003-09-03 16:35) [1]

Ошибка есть? Исключение возникает?

← →
freeman2003 (2003-09-03 16:38) [2]

Нет в том то и дело!

← →
freeman2003 (2003-09-03 16:51) [3]

Вот лог из SQL monitor

1155 16:48:41 SQL Data In: SQL Server - Param = 2, Name = @date_begin, Type = fldTIMESTAMP, Precision = 23, Scale = 0, Data = 1/1/2003 0:0:0:0
1156 16:48:41 SQL Blob IO: SQL Server - Return blob data
1157 16:48:41 SQL Execute: SQL Server - { call "sp_v_remont;1" (:@printer_id,:@date_begin,:@prim)}
1158 16:48:41 SQL Vendor: ODBC - SQLAllocStmt

← →
clickmaker (2003-09-03 17:09) [4]

Какие типы у параметров?

Попробуй

dm1.v_remont.Prepare;
dm1.v_remont.execproc;

и

dm1.v_remont.ParamByName("@prim"). AsString := memo1.Text;

← →
freeman2003 (2003-09-03 17:16) [5]

Пробовал не помогает.
Пробовал даже оставлять один параметр Integer и задавал значение явно.

Прошлый лог из SQL monitor был не правильны,вот правильный
961 17:10:42 SQL Execute: SQL Server - { call "sp_v_remont;1" (:@printer_id,:@date_begin,:@prim)}
962 17:10:42 SQL Vendor: ODBC - SQLAllocStmt
963 17:10:42 SQL Vendor: ODBC - SQLBindParameter
964 17:10:42 SQL Vendor: ODBC - SQLBindParameter
965 17:10:42 SQL Vendor: ODBC - SQLBindParameter
966 17:10:42 SQL Vendor: ODBC - SQLExecDirect
967 17:12:14 SQL Stmt: SQL Server - Close

← →
freeman2003 (2003-09-03 17:33) [6]

Все работает
dm1.v_remont.ParamByName("@prim").AsString := memo1.Text;
помогло!
Спасибо.

---------------------------------------------------------------------- ----------

Не выполняется хранимая процедура на SQL server из delphi Найти похожие ветки