Форум: "Базы";
Текущий архив: 2003.08.28;
Скачать: [xml.tar.bz2];

Вниз

Хелп: как работать с параметрами в 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 у Вас пуст

---

← →
ZrenBy   (2003-08-06 14:28) [4]

А CreateParam сделать ?

---

← →
Hollywood   (2003-08-06 14:36) [5]

> А 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 чтение и инициализаци параметров!
А так нафига он нужен? Кто-то пояснит?

---

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

Форум: "Базы";
Текущий архив: 2003.08.28;
Скачать: [xml.tar.bz2];

Наверх

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