| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Хелп: как работать с параметрами в runtime
Hollywood © (2003-08-06 13:36:00)
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; //выполняю
может на выполнит препарацию? хотя тоже не помогает!
Что я делаю не так?
Hollywood (2003-08-06 14:36:00) [1]
> А 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 чтение и инициализаци параметров!
А так нафига он нужен? Кто-то пояснит?
ZrenBy (2003-08-06 14:28:00) [2]
А CreateParam сделать ?
HSolo (2003-08-06 14:24:00) [3]
Значит, lProcFind.Params.Items у Вас пуст
Hollywood (2003-08-06 13:48:00) [4]
> первый параметр процедуры, в списке параметров идет под
> номером 0
теперь ругается "List index out of bounds (0)"
Val (2003-08-06 13:42:00) [5]
первый параметр процедуры, в списке параметров идет под номером 0
| |
