Хелп: как работать с параметрами в runtime

← →
Hollywood © (2003-08-06 13:36) [0]

lProcFind:= TStoredProc.Create(Self); // Создаю объект lProcFind.DatabaseName:= "Main"; // Привязываю к БД TDatabase lProcFind.StoredProcName:= "dbo.FindInvoice"; if lProcFind.DescriptionsAvailable then begin ( 1) lProcFind:= TStoredProc.Create(Self); // Создаю объект lProcFind.DatabaseName:= "Main"; // Привязываю к БД TDatabase lProcFind.StoredProcName:= "dbo.FindInvoice"; if lProcFind.DescriptionsAvailable then begin lProcFind.Params.Items[1].ParamType:= ptInput; //тут ругается "List index out of bounds (1)" lProcFind.Params.Items[1].AsString:= "%some string%"; end; lProcFind.Active:= True; //выполняю может на выполнит препарацию? хотя тоже не помогает! Что я делаю не так?

← →
Val © (2003-08-06 13:42) [1]

первый параметр процедуры, в списке параметров идет под номером 0

← →
Hollywood © (2003-08-06 13:48) [2]

> первый параметр процедуры, в списке параметров идет под
> номером 0

теперь ругается "List index out of bounds (0)"

← →
HSolo © (2003-08-06 14:24) [3]

Значит, lProcFind.Params.Items у Вас пуст

А CreateParam сделать ?

> А CreateParam сделать ?

Пока так не сказал, не захотело работать!

lProcFind.Params.CreateParam(ftInteger, "Result", ptResult); ( ftString, "@gds_name", ptInput) > А CreateParam сделать ? Пока так не сказал, не захотело работать! lProcFind.Params.CreateParam(ftInteger, "Result", ptResult); with lProcFind.Params.CreateParam(ftString, "@gds_name", ptInput) do AsString:= "%some string%"; Хотя Borland могли сделать в методе DescriptionsAvailable чтение и инициализаци параметров! А так нафига он нужен? Кто-то пояснит?

Хелп: как работать с параметрами в runtime Найти похожие ветки