Скачать: CL | DM;

D4+Zeos+MSSQL   Найти похожие ветки 

← →
Andrey2k   (2003-07-30 13:10) [0]

Добрый день.
Подскажите пожайлуста, есть проблемка при вызове хранимой процедуры, работает связка 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) [1]

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c