ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Oracle Forms [игнор отключен] [закрыт для гостей] / OLE, Word , создание таблиц
20 сообщений из 20, страница 1 из 1
OLE, Word , создание таблиц
    #36886756
SergeyAKa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyAKa
Гость
Как из под формса создать таблицу в Word с использованием OLE?

Вот текст скрипта в VBScript

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
    Sub Макрос5()

    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:= 2 , NumColumns:= _
         2 , DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables( 1 )
        If .Style <> "Сетка таблицы" Then
            .Style = "Сетка таблицы"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
    Selection.Tables( 1 ).Columns( 1 ).SetWidth ColumnWidth:= 86 . 4 , RulerStyle:= _
        wdAdjustNone
    Selection.Tables( 1 ).Columns( 2 ).SetWidth ColumnWidth:= 369 , RulerStyle:= _
        wdAdjustNone
End Sub
...
Рейтинг: 0 / 0
07.10.2010, 12:37
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36886937
OmegaMale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OmegaMale
Участник
SergeyAKa,

встроенный пакет OLE2.
То есть, вам всего лишь нужно транслировать код из VB в PL/SQL
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
DECLARE
  app OLE2.OBJ_TYPE;
  arg  OLE2.LIST_TYPE;
BEGIN
  app := OLE2.CREATE_OBJ('Word.Application');
  
  --
  -- Далее получаете все необходимые объекты - документ, коллецию таблиц, используя
  -- OLE2.GET_OBJ_PROPERTY(...);
  -- OLE2.INVOKE%
  -- Если метод или свойство используют параметры, то используйте ARG
  arg := OLE2.CREATE_ARGLIST;
  OLE2.ADD_ARG(arg,'my parameter's value');
  OLE2.INVOKE(...,arg);
  OLE2.DESTROY_ARGLIST(arg);

  OLE2.RELEASE_OBJ(app);
END;
...
Рейтинг: 0 / 0
07.10.2010, 13:18
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36887693
Jacobs Kaive
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jacobs Kaive
Участник
OmegaMaleSergeyAKa,

встроенный пакет OLE2.
То есть, вам всего лишь нужно транслировать код из VB в PL/SQL


А лучше ОДИН раз написать функцию которая будет понимать команды
типа ActiveSheet.Cells(1,1).Value='test'

И никогда не мучаться с "транслировать код из VB в PL/SQL
" !!!!!!!!!!! ))))))))))
...
Рейтинг: 0 / 0
07.10.2010, 17:13
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36888384
SergeyAKa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyAKa
Гость
Jacobs KaiveOmegaMaleSergeyAKa,

встроенный пакет OLE2.
То есть, вам всего лишь нужно транслировать код из VB в PL/SQL


А лучше ОДИН раз написать функцию которая будет понимать команды
типа ActiveSheet.Cells(1,1).Value='test'

И никогда не мучаться с "транслировать код из VB в PL/SQL
" !!!!!!!!!!! ))))))))))

А причем тут экзель?

Разговор идет о вордовских таблицах. Это не совсем одно и то же


Давайте совместно сделаем библиотеку с набором функций для работы с вордом. С экзелем как-то проще.
...
Рейтинг: 0 / 0
08.10.2010, 05:15
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36888622
OmegaMale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OmegaMale
Участник
SergeyAKa,

да таких библиотек, мне кажется, навалом... почти каждый, кто сталкивается, пишет свою. У меня на текущем месте работы штуки две от предыдущих прогеров.
...
Рейтинг: 0 / 0
08.10.2010, 10:32
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36888625
SergeyAKa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyAKa
Гость
OmegaMaleSergeyAKa,

да таких библиотек, мне кажется, навалом... почти каждый, кто сталкивается, пишет свою. У меня на текущем месте работы штуки две от предыдущих прогеров.

Если есть,то плизз, дай кусок для работы с таблицами, а то весь инет перерыл уже.
...
Рейтинг: 0 / 0
08.10.2010, 10:33
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36888690
Jacobs Kaive
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jacobs Kaive
Участник
SergeyAKaJacobs KaiveOmegaMaleSergeyAKa,

встроенный пакет OLE2.
То есть, вам всего лишь нужно транслировать код из VB в PL/SQL


А лучше ОДИН раз написать функцию которая будет понимать команды
типа ActiveSheet.Cells(1,1).Value='test'

И никогда не мучаться с "транслировать код из VB в PL/SQL
" !!!!!!!!!!! ))))))))))

А причем тут экзель?

Разговор идет о вордовских таблицах. Это не совсем одно и то же


Давайте совместно сделаем библиотеку с набором функций для работы с вордом. С экзелем как-то проще.

Ты не понял, я говорю об универсальной библиотеке работы с OLE серверами.
Ей на вход даешь строку, а она ее парсит и вызывает разные OLE2.INVOKE и OLE2.ADD_ARG и т.д.
...
Рейтинг: 0 / 0
08.10.2010, 10:52
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36888745
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
SergeyAKaOmegaMaleSergeyAKa,

да таких библиотек, мне кажется, навалом... почти каждый, кто сталкивается, пишет свою. У меня на текущем месте работы штуки две от предыдущих прогеров.

Если есть,то плизз, дай кусок для работы с таблицами, а то весь инет перерыл уже.

посмотри этот вариант
...
Рейтинг: 0 / 0
08.10.2010, 11:06
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36888765
OmegaMale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OmegaMale
Участник
Вот ссылка, там код есть:
http://www.tek-tips.com/viewthread.cfm?qid=319377&page=55
...
Рейтинг: 0 / 0
08.10.2010, 11:13
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36888930
Leonid Kudryavtsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Leonid Kudryavtsev
Участник
Jacobs Kaive
...
Ты не понял, я говорю об универсальной библиотеке работы с OLE серверами.
Ей на вход даешь строку, а она ее парсит и вызывает разные OLE2.INVOKE и OLE2.ADD_ARG и т.д.

Ага... А как ты будешь например понимать, где вызов метода, а где обращение к свойству?

Например.

ITEMS( 2 )

может быть и INVOKE, а может быть и GET_PROPERTY

Это надо грузить библиотеку типов от соответствующего сервера и т.д. Гемор еще тот.

Опять таки, как передавать переменные в данную библиотеку. В "команде" ActiveSheet.Cells(1,1).Value='test' целые три потенциальные "bind" переменные (1,1,test). Хорошо, глобальные переменные и поля Forms можно брать из PRO*C. Но локальные переменные PL/SQL так не подключишь.

В общем .... усилий много, а пользоваться такой универсальной библиотекой все равно будет не удобно. IMHO.
...
Рейтинг: 0 / 0
08.10.2010, 12:03
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36889100
SergeyAKa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyAKa
Гость
OmegaMaleВот ссылка, там код есть:
http://www.tek-tips.com/viewthread.cfm?qid=319377&page=55

Попытался, но в итоге форм не смог найти
OLE2.ADD_ARG_OBJ.
Видать 4.5 про это еще не знает
Заменил на
OLE2.ADD_ARG(args, hRange); --Range

И в итоге на строчке
hTable := OLE2.INVOKE_OBJ(hTables, 'Add', args);
вылетает
User-Defined Exception


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
	hSelection 	:= OLE2.GET_OBJ_PROPERTY(oWord, 'Selection');   
   	hRange  	:= OLE2.GET_OBJ_PROPERTY(hSelection, 'Range');    	 
	hDocument 	:= OLE2.get_obj_property(oWord, 'ActiveDocument');
	hTables 	:= OLE2.GET_OBJ_PROPERTY(hDocument , 'Tables' );


	args 		:= OLE2.CREATE_ARGLIST;   

	--создать таблицу
 	OLE2.ADD_ARG_OBJ(args, hRange);            --Range
	OLE2.ADD_ARG(args,  3 );                     --NumRows
	OLE2.ADD_ARG(args,  2 );                     --NumColumns
	OLE2.ADD_ARG(args, wdWord9TableBehavior);  --DefaultTableBehavior
   	OLE2.ADD_ARG(args, wdAutoFitContent);      --AutoFitBehavior

 	hTable := OLE2.INVOKE_OBJ(hTables, 'Add', args);

   	OLE2.DESTROY_ARGLIST(args);
   	OLE2.RELEASE_OBJ(hTable);
   	OLE2.RELEASE_OBJ(hRange);
   	OLE2.RELEASE_OBJ(hTables);
...
Рейтинг: 0 / 0
08.10.2010, 12:54
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36889328
OmegaMale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OmegaMale
Участник
SergeyAKa,

скажу даже больше, я не смог заставить работать в Forms 6 эту процедуру... вернее, она работает, но потом когда идёт вызов метода, он вылетает с исключением, посмотрев код которого обнаружил, что передаваемое значение воспринимается как пустое :( В чём причина не понял, но смог обойти в том случае эту проблему. Возможно, есть патчи, исправляющие данную проблему.
...
Рейтинг: 0 / 0
08.10.2010, 13:58
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36889343
OmegaMale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OmegaMale
Участник
вот здесь я упёрся в это:

http://www.sql.ru/forum/actualthread.aspx?tid=778042#9186098
...
Рейтинг: 0 / 0
08.10.2010, 14:03
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36889364
SergeyAKa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyAKa
Гость
OmegaMaleSergeyAKa,

скажу даже больше, я не смог заставить работать в Forms 6 эту процедуру... вернее, она работает, но потом когда идёт вызов метода, он вылетает с исключением, посмотрев код которого обнаружил, что передаваемое значение воспринимается как пустое :( В чём причина не понял, но смог обойти в том случае эту проблему. Возможно, есть патчи, исправляющие данную проблему.

На шестерке заработал кусок. Табличку рисует.
Только такой гемор перетаскивать весь функционал на шестерку.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
DECLARE
   hApplication      OLE2.OBJ_TYPE;
   hDocuments        OLE2.OBJ_TYPE;
   hDocument         OLE2.OBJ_TYPE;
   hSelection        OLE2.OBJ_TYPE;
   hRange            OLE2.OBJ_TYPE;
   hTables           OLE2.OBJ_TYPE;
   hTable            OLE2.OBJ_TYPE;
   hCells            OLE2.OBJ_TYPE;
   hRows             OLE2.OBJ_TYPE;
   hShading          OLE2.OBJ_TYPE;
   hParagraphFormat  OLE2.OBJ_TYPE;
   hFont             OLE2.OBJ_TYPE;
   
   args              OLE2.LIST_TYPE;       
   
   ---- wdDefaultTableBehavior Class members
   wdWord8TableBehavior      CONSTANT number( 5 ) :=   0 ;  --Default
   wdWord9TableBehavior      CONSTANT number( 5 ) :=   1 ;
   
   ---- wdAutoFitBehavior Class members
   ---- (only works when DefaultTableBehavior = wdWord9TableBehavior)
   wdAutoFitContent          CONSTANT number( 5 ) :=   1 ;
   wdAutoFitFixed            CONSTANT number( 5 ) :=   0 ;
   wdAutoFitWindow           CONSTANT number( 5 ) :=   2 ;
   
   ---- wdUnits Class members  
   wdCell                    CONSTANT number( 5 ) :=  12 ;
   wdCharacter               CONSTANT number( 5 ) :=   1 ;   --Default
   wdWord                    CONSTANT number( 5 ) :=   2 ;
   wdSentence                CONSTANT number( 5 ) :=   3 ;
   wdLine                    CONSTANT number( 5 ) :=   5 ;
   
   ---- wdMovementType Class members
   wdExtend                  CONSTANT number( 5 ) :=   1 ;
   wdMove                    CONSTANT number( 5 ) :=   0 ;   --Default
   
   ---- WdParagraphAlignment Class members
   wdAlignParagraphCenter    CONSTANT number( 5 ) :=   1 ;
   wdAlignParagraphLeft      CONSTANT number( 5 ) :=   0 ;
   wdAlignParagraphRight     CONSTANT number( 5 ) :=   2 ;
   
   ---- HexColor = BBGGRR
   myLightBlue               CONSTANT number( 8 ) :=  16755370 ; --FFAAAA
   
   
BEGIN
   hApplication := OLE2.CREATE_OBJ('Word.Application');
   OLE2.SET_PROPERTY(hApplication, 'Visible',  1 );
   
   hDocuments := OLE2.GET_OBJ_PROPERTY(hApplication, 'Documents');   
   hDocument  := OLE2.INVOKE_OBJ(hDocuments,'Add');                  
   
   ------------------------------
   -------- Create Table --------
   ------------------------------
   hSelection := OLE2.GET_OBJ_PROPERTY(hApplication, 'Selection');    
   hTables := OLE2.GET_OBJ_PROPERTY(hDocument , 'Tables' );
   hRange  := OLE2.GET_OBJ_PROPERTY(hSelection, 'Range');    
   args := OLE2.CREATE_ARGLIST;   
   OLE2.ADD_ARG_OBJ(args, hRange);            --Range
   OLE2.ADD_ARG(args,  3 );                     --NumRows
   OLE2.ADD_ARG(args,  2 );                     --NumColumns
   OLE2.ADD_ARG(args, wdWord9TableBehavior);  --DefaultTableBehavior
   OLE2.ADD_ARG(args, wdAutoFitContent);      --AutoFitBehavior
   hTable := OLE2.INVOKE_OBJ(hTables, 'Add', args);
   OLE2.DESTROY_ARGLIST(args);
   OLE2.RELEASE_OBJ(hTable);
   OLE2.RELEASE_OBJ(hRange);
   OLE2.RELEASE_OBJ(hTables);
    
   ------------------------------------------
   -------- Create and Format Header --------
   ------------------------------------------
   ---- Select 2 cells at the top of table
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, wdCharacter);           --Unit
   OLE2.ADD_ARG(args,  2 );                     --Count
   OLE2.ADD_ARG(args, wdExtend);              --Extend
   OLE2.INVOKE(hSelection, 'MoveRight', args);
   OLE2.DESTROY_ARGLIST(args);    
   
   ---- Merge those 2 cells into 1 cell
   hcells := OLE2.GET_OBJ_PROPERTY(hSelection, 'Cells');    
   OLE2.INVOKE(hCells, 'Merge');
   
   ---- Add next 2 cells to the selection
   ---- (next 2 cells are actually row 2)
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, wdCharacter);           --Unit
   OLE2.ADD_ARG(args,  2 );                     --Count
   OLE2.ADD_ARG(args, wdExtend);              --Extend
   OLE2.INVOKE(hSelection, 'MoveRight', args);
   OLE2.DESTROY_ARGLIST(args);    
   
   ---- Set color of selected cells
   hcells := OLE2.GET_OBJ_PROPERTY(hSelection, 'Cells');    
   hShading := OLE2.GET_OBJ_PROPERTY(hCells,   'Shading');    
   OLE2.SET_PROPERTY(hShading, 'BackgroundPatternColor', myLightBlue);
   OLE2.RELEASE_OBJ(hShading);
   OLE2.RELEASE_OBJ(hCells);
   
   ---- Set selected cells to be Bold Header
   hrows := OLE2.GET_OBJ_PROPERTY(hSelection, 'Rows');    
   OLE2.SET_PROPERTY(hRows, 'AllowBreakAcrossPages', True);
   OLE2.SET_PROPERTY(hRows, 'HeadingFormat', True);
   OLE2.RELEASE_OBJ(hRows);
   hFont := OLE2.GET_OBJ_PROPERTY(hSelection, 'Font');    
   OLE2.SET_PROPERTY(hFont, 'Bold', True);
   OLE2.RELEASE_OBJ(hFont);
   
   ---- Move to Header row 1, set text and center
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, wdCharacter);
   OLE2.ADD_ARG(args,  1 );
   OLE2.ADD_ARG(args, wdMove);
   OLE2.INVOKE(hSelection, 'MoveLeft', args);
   OLE2.DESTROY_ARGLIST(args);
   
   hParagraphFormat := OLE2.GET_OBJ_PROPERTY(hSelection, 'ParagraphFormat');    
   OLE2.SET_PROPERTY(hParagraphFormat, 'Alignment', wdAlignParagraphCenter);
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, 'Sales');
   OLE2.INVOKE(hSelection, 'TypeText', args);
   OLE2.DESTROY_ARGLIST(args);
   
   ---- Move to Header row 2/cell 1, set text
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, wdCell);
   OLE2.ADD_ARG(args,  1 );
   OLE2.ADD_ARG(args, wdMove);
   OLE2.INVOKE(hSelection, 'MoveRight', args);
   OLE2.DESTROY_ARGLIST(args);
   
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, 'Product');
   OLE2.INVOKE(hSelection, 'TypeText', args);
   OLE2.DESTROY_ARGLIST(args);
   
   ---- Move to Header row 2/cell 2, set text and right align
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, wdCell);
   OLE2.ADD_ARG(args,  1 );
   OLE2.ADD_ARG(args, wdMove);
   OLE2.INVOKE(hSelection, 'MoveRight', args);
   OLE2.DESTROY_ARGLIST(args);
   
   hParagraphFormat := OLE2.GET_OBJ_PROPERTY(hSelection, 'ParagraphFormat');    
   OLE2.SET_PROPERTY(hParagraphFormat, 'Alignment', wdAlignParagraphRight);
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, 'Amount');
   OLE2.INVOKE(hSelection, 'TypeText', args);
   OLE2.DESTROY_ARGLIST(args);
   
   ---- Move row 3/cell 2, right align
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, wdLine);
   OLE2.ADD_ARG(args,  1 );
   OLE2.ADD_ARG(args, wdMove);
   OLE2.INVOKE(hSelection, 'MoveDown', args);
   OLE2.DESTROY_ARGLIST(args);
   hParagraphFormat := OLE2.GET_OBJ_PROPERTY(hSelection, 'ParagraphFormat');    
   OLE2.SET_PROPERTY(hParagraphFormat, 'Alignment', wdAlignParagraphRight);
   
   ---- Move back to first cell
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, wdCell);
   OLE2.ADD_ARG(args,  1 );
   OLE2.ADD_ARG(args, wdMove);
   OLE2.INVOKE(hSelection, 'MoveLeft', args);
   OLE2.DESTROY_ARGLIST(args);
   
   
 --------------------------
   --------------------------
   OLE2.RELEASE_OBJ(hParagraphFormat);
   OLE2.RELEASE_OBJ(hSelection);
   OLE2.RELEASE_OBJ(hDocument);
   OLE2.RELEASE_OBJ(hDocuments);
   OLE2.RELEASE_OBJ(hApplication);
   
   message('Task is Done.');
   message('Task is Done.');
EXCEPTION
   WHEN others THEN
      message('Error');
      message('Error');
END;
...
Рейтинг: 0 / 0
08.10.2010, 14:07
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36889647
OmegaMale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OmegaMale
Участник
SergeyAKa,

а какая версия, если не секрет (билд) работает?
...
Рейтинг: 0 / 0
08.10.2010, 15:20
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36889862
Jacobs Kaive
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jacobs Kaive
Участник
Leonid KudryavtsevJacobs Kaive
...
Ты не понял, я говорю об универсальной библиотеке работы с OLE серверами.
Ей на вход даешь строку, а она ее парсит и вызывает разные OLE2.INVOKE и OLE2.ADD_ARG и т.д.

Ага... А как ты будешь например понимать, где вызов метода, а где обращение к свойству?

Например.

ITEMS( 2 )

может быть и INVOKE, а может быть и GET_PROPERTY

Это надо грузить библиотеку типов от соответствующего сервера и т.д. Гемор еще тот.

Опять таки, как передавать переменные в данную библиотеку. В "команде" ActiveSheet.Cells(1,1).Value='test' целые три потенциальные "bind" переменные (1,1,test). Хорошо, глобальные переменные и поля Forms можно брать из PRO*C. Но локальные переменные PL/SQL так не подключишь.

В общем .... усилий много, а пользоваться такой универсальной библиотекой все равно будет не удобно. IMHO.


Где применять invoke а где GET_PROPERTY это задача библиотеки-интерпретатора.
Все переменные конкатенируются в скрипт команду.
пользоваться ОЧЕНЬ удобно.
...
Рейтинг: 0 / 0
08.10.2010, 16:27
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36890666
SergeyAKa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyAKa
Гость
OmegaMaleSergeyAKa,

а какая версия, если не секрет (билд) работает?

4.5
...
Рейтинг: 0 / 0
09.10.2010, 09:20
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36891880
OmegaMale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OmegaMale
Участник
SergeyAKa, а ещё точнее, Вы сказали, что на 6i тоже работает, на какой точнее можете собщить? У меня
Код: plaintext
1.
Forms [32 Bit] Version 6.0.8.23.2 (Production)
...
Рейтинг: 0 / 0
11.10.2010, 09:12
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36892974
SergeyAKa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyAKa
Гость
Forms 6.0.8.28.0
Я на исходный еще патч накатывал. Это уже после патча
...
Рейтинг: 0 / 0
11.10.2010, 16:20
| Ответить | Цитировать | Написать  
OLE, Word , создание таблиц
    #36893053
OmegaMale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OmegaMale
Участник
SergeyAKa,
спасибо, тогда проверю с патчем будет работать/нет.

А Вам, если с Word не очень сложные действия нужны, то можно попробовать формировать XML-файл, а потом вордом его открывать.
...
Рейтинг: 0 / 0
11.10.2010, 16:41
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Oracle Forms [игнор отключен] [закрыт для гостей] / OLE, Word , создание таблиц
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=51&msg=36889100&tid=1878874]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 75ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 16ms
total:  193ms
созд. / загр.: 193ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]