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

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

D4+Zeos+MSSQL


Andrey2k ©   (2003-07-30 13:10:00) 

Добрый день.
Подскажите пожайлуста, есть проблемка при вызове хранимой процедуры, работает связка Zeos+MSSQL 7.0, Суть проблемы в следующем, подключиться к базе могу,могу просмотреть данные, а вот вызвать процедуру не получается, те получается если в Дизайн тайме сделать все настройки хранимой процедуры (имя, параметры и значения), а если вызывать в ран тайме процедура не выполняется. Вот мой код, может что-то неверно.

with DM do begin
if uslov1= true then begin
Query1.Last;
StoredProc1.StoredProcName:="insert_user;1";
file://StoredProc1.Params.Clear;
StoredProc1.Params.CreateParam(ftString,"@KOD_MAHIN_1",ptInput);
StoredProc1.ParamByName("@KOD_MAHIN_1").AsString:=Edit1.Text;
StoredProc1.Params[0].Value:=Edit1.Text;
StoredProc1.Params.C0reateParam(ftString,"@DAN_OPER_2",ptInput);
StoredProc1.Params[1].AsString:=dostup;
StoredProc1.Params.CreateParam(ftString,"@OPISAN_3",ptInput);
StoredProc1.Params[2].AsString:=Memo1.Text;
StoredProc1.Params.CreateParam(ftString,"@RASPOL_4",ptInput);
StoredProc1.Params[3].AsString:=ComboBox1.Text;
StoredProc1.Params.CreateParam(ftString,"VID_OPIS_5",ptInput);
StoredProc1.Params[4].AsString:="";
StoredProc1.Params.CreateParam(ftString,"@RAB1_6",ptInput);
StoredProc1.Params[5].AsString:="";
end
else begin
end;
StoredProc1.Prepare;
StoredProc1.ExecProc;
Transact1.Commit;
Query1.Close;
Query1.Open;

Заранеее большое спасибо


ZrenBy   (2003-07-30 13:26:00) [1]

StoredProc1.Params.CreateParam(ftString,"VID_OPIS_5",ptInput);
без @

И еще.
Может попробовать создать параметр для return value ?
Params[0] который будет

Parameters.CreateParameter("@RETURN",ftInteger,pdReturnValue,4,0)


Наверх

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