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

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

Delphi+Oracle. Проблема с table of...

keymaster ©   (2007-11-30 11:32:00) 

В оракле описаны типы:
1)
create or replace type MyType_Obj as object(.......)

2)
create or replace type MyType_Tbl is table of MyType_Obj;

Работаю через ODAC.
Если с первым типом все хорошо, то как работать со вторым - не пойму.

Кто сталкивался?

(D2006, Oracle 10.2)

---

Игорь Шевченко   (2007-12-03 15:51:00) [1]

> Работаю через ODAC.


А у ODAC-а Demos-ов как звезд на небе. Неужто нету твоего случая ?

---

keymaster   (2007-11-30 12:53:00) [2]

Проблема решилась следующим способом:

 with dm_persons.sprc_AddPerson.ParamByName('P_PerconMain') do
 begin
   DataType := ftTable;
   AsTable.CreateObject(dmSQLServerConnect.OraSession.OCISvcCtx, 'OfficePersons');
   AsTable.AppendItem;
   with AsTable.ItemAsObject[0] do
   begin
     AllocObject(dmSQLServerConnect.OraSession.OCISvcCtx, 'OfficePerson_Obj');
     AttrAsInteger['LastName'] := sLastName;
     AttrAsInteger['FirstName'] := sFirstName;
     AttrAsInteger['MiddleName'] := sMiddleName;
     AttrAsInteger['Status'] := iStatus;
   end;
 end;
 OraExecProc(dm_persons.sprc_AddPerson);
end;


---

Наверх