Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


freeman2003 ©   (2003-09-03 16:38:00) 

Есть хранимая процедура
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

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


Nikolay M.   (2003-09-03 17:19:00) [1]

Компоненты доступа - не АДО? Если да, то попробуй поставить в начало процедуры SET NOCOUNT ON;


freeman2003   (2003-09-03 16:51:00) [2]

Вот лог из 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


Наверх

Титульная страница Поиск, карта сайта Написать письмо