OLE2 без Forms

Halmurat
Дата: 18.11.2008 08:45:35
Можно ли использовать пакет ОЛЕ2, отдельно от Forms Developer(т.е. не устанавливая эту программу). Я установил у себя Oracle XE, и хотел использовать вышеописанный код для выгрузки данных из БД, в ексель. а пакета ОЛЕ2, тама нету, и он идет с Forms Developer( я так понял). можно ли откуда нибудь взять это пакет и скомпилировать у себя.если да, то как?
Halmurat
Дата: 18.11.2008 08:56:34
cорри,
код который я хотел использовать:
PROCEDURE Excel_RUN IS

ExcelAppl OLE2.OBJ_TYPE;
WorkBooks OLE2.OBJ_TYPE;
WorkBook OLE2.OBJ_TYPE;
WorkSheet OLE2.OBJ_TYPE;

arglist OLE2.LIST_TYPE;

Cell OLE2.OBJ_TYPE := 0;

rTrue NUMBER := -1;

nRow number :=1; -- НОМЕТ СТРОКИ
nCol number :=1; -- НОМЕР КОЛОНКИ

args OLE2.LIST_TYPE;
address1 varchar2(100);
address2 varchar2(100);

BEGIN
ExcelAppl := OLE2.CREATE_OBJ('Excel.Application');
WorkBooks := OLE2.GET_OBJ_PROPERTY(ExcelAppl, 'Workbooks');

WorkBook := OLE2.INVOKE_OBJ(Workbooks, 'Add');

arglist := OLE2.CREATE_ARGLIST;

OLE2.ADD_ARG(arglist, 1);
WorkSheet := OLE2.GET_OBJ_PROPERTY(WorkBook, 'Worksheets', arglist);
OLE2.DESTROY_ARGLIST(arglist);

OLE2.Set_Property(ExcelAppl, 'Visible', rTrue);
arglist := OLE2.CREATE_ARGLIST;

-- ЗАДАДИМ АДРЕСОК-с....и токо так и никак иначе
OLE2.ADD_ARG(arglist, nRow);
OLE2.ADD_ARG(arglist, nCol);

Cell := OLE2.GET_OBJ_PROPERTY(WorkSheet, 'Cells', arglist);

OLE2.SET_PROPERTY(Cell, 'Value', 'ПРИВЕТ BGladiator');

OLE2.DESTROY_ARGLIST(arglist);

OLE2.RELEASE_OBJ(Cell);
OLE2.RELEASE_OBJ(WorkSheet);
OLE2.RELEASE_OBJ(WorkBook);
OLE2.RELEASE_OBJ(WorkBooks);
OLE2.RELEASE_OBJ(ExcelAppl);

END;