Коллеги! Подскажите, пожалуйста, как средствами ADO считать данные в R/3 - во внутреннюю таблицу или в прозрачную таблицу. Если можно, маленький примерчик. Заранее спасибо.

Коллега, а что все что я когда то рассказывал не помогло что ли...???
Странно...а в чем вопрос то....ты строку подключения не знаешь как написать или что?

Большое спасибо за пример. Очень помогло. Строку подключения я написала. Все хорошо. смогла создать таблицу во внешней базе и бросить туда данные, а прочитать их в R/3 обратно я их не могу. select проходит, а как увидеть данные?
Помогите, пожалуйста. Я наверное чего-то не понимаю.

INCLUDE ole2incl.
*data: it like dd02l-tabname.
types: begin of t_it,
a1(3),
a2(3),
end of t_it.
data: it type t_it.
data:
connection type ole2_object,
rs type ole2_object,
connectionstring(500),
state type i,
sql(1000),
eof.

*concatenate
*'Provider=SQLOLEDB.1;Integrated Security=SSPI;'
*'Persist Security Info=False;Initial Catalog=<имя>;'
*'Data Source=<имя>' into connectionstring.

concatenate
'Provider=OraOLEDB.Oracle.1;password=tiger;'
'User ID=scott;Data Source=tr;Persist Security Info=False'
into connectionstring.

*Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User
*ID=system;Data Source=tr
data fi(50).
*Provider=MSDAORA.1;User ID=sys;Data Source=tr;Persist Security
*Info=False
*Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial
*Catalog=gazfond;Data Source=R3_PROG4\LENA
break zapeka.
*concatenate

*'CREATE TABLE tanya1 (a1 CHAR(3) NOT NULL, '
* ' a2 CHAR(3) NOT NULL)' INTO sql.
*
sql = 'select a1,a2 from tanya'.

*sql = 'INSERT INTO tanya (a1, a2) VALUES ('' c'','' d'') '.

create object connection 'adodb.connection'.
if sy-subrc ne 0.
PERFORM end_program.
endif.

set property of connection 'ConnectionString' = connectionstring.
if sy-subrc ne 0.
PERFORM end_program.
endif.

call method of connection 'Open'.
if sy-subrc ne 0.
PERFORM end_program.
endif.

create object rs 'adodb.recordset'.
if sy-subrc ne 0.
PERFORM end_program.
endif.

get property of rs 'State' = state.
if sy-subrc ne 0.
PERFORM end_program.
else.
if state = 1.
call method of rs 'Close'.
if sy-subrc ne 0.
PERFORM end_program.
endif.
endif.
endif.

set property of rs 'CursorType' = 3.
if sy-subrc ne 0.
PERFORM end_program.
endif.

set property of rs 'LockType' = 1.
if sy-subrc ne 0.
PERFORM end_program.
endif.

set property of rs 'CursorLocation' = 2.
if sy-subrc ne 0.
PERFORM end_program.
endif.

set property of rs 'ActiveConnection' = connection.
if sy-subrc ne 0.
PERFORM end_program.
endif.

call method of rs 'Open' exporting #1 = sql.

if sy-subrc ne 0.
PERFORM end_program.

endif.


call method of rs 'MoveFirst' .
if sy-subrc ne 0.
PERFORM end_program.
endif.
form end_program.

endform.

а разве так вот не получается??? после вызова MoveFirst пишешь это...
данные во внутренней таблице будут...

DATA:
a1 type ole2_object,
a2 type ole2_object.

DATA: BEGIN OF itab OCCURS 100,
a1 LIKE <тип поля>,
a2 LIKE <тип поля>.
DATA: END OF itab.


get property of rs 'EOF' = eof.
if sy-subrc ne 0.
PERFORM end_program.
endif.

call method of rs 'Fields' = a1
exporting #1 = 'a1'.
if sy-subrc ne 0.
PERFORM end_program.
endif.

call method of rs 'Fields' = a2
exporting #1 = 'a2'.
if sy-subrc ne 0.
PERFORM end_program.
endif.


WHILE eof = '0'.

CLEAR itab.
get property of a1 'Value' = itab-a1.
if sy-subrc ne 0.
PERFORM end_program.
endif.

get property of a2 'Value' = itab-a2.
if sy-subrc ne 0.
PERFORM end_program.
endif.


call method of rs 'MoveNext'.
if sy-subrc ne 0.
PERFORM end_program.
endif.

get property of rs 'EOF' = eof.
if sy-subrc ne 0.
PERFORM end_program.
endif.
APPEND itab.
ENDWHILE.

Спасибо огромное за ответ. Может, подскажешь где можно посмотреть все методы и свойства объекта типа ole2_object. Заранее спасибо.

как то неправильно выразилась

ole2_object - это не объект, это тип переменной, ну как Char, Integer и т.д.
Переменная этого типа может принимать разные объекты(объекты Excel, Word, Access и т.д. или например объекты таких библиотек доступа к базам данных как ADO ну или DAO или RDO, в общем все поддерживающие технологию OLE).

И соответсвенно все зависит от того какой объект присвоен переменной, методы и свойства этого объекта и будут доступны...

Пример:
1.
connection type ole2_object,
create object connection 'adodb.connection'.
set property of connection 'ConnectionString' = connectionstring.

создает объект adodb.connection и устанавливает свойство ConnectionString этого объекта
2.
connection type ole2_object,
create object connection 'EXCEL.APPLICATION'.
set property of connection 'VISIBLE' = 0.

создает объект EXCEL.APPLICATION и устанавливает свойство VISIBLE этого объекта, фактически запускает EXCEL только не видно его будет, потому как 'VISIBLE' = 0

да в общем то про интеграцию Office в хелпе написано
ну а про методы и свойства объектов нужно искать в литературе посвященной работе с этими объектами...ну а посмотреть можно скажем в браузере объектов в VB...

Ну а конкретно пл adodb.connection где посмотреть свойства и методы?
В help по Oracle или где-то еще. Где ты их нашел? Я хочу посмотреть что там еще есть и не знаю , где это можно найти. Спасибо. Извини за глупые вопросы, но все рано или поздно учатся.

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

посмотреть можно например здесь

http://www.activeserverpages.ru/ado/

а можно поискать какую нибудь книжку типа руководство разработчика баз данных на VB или на Delphi, только для профессионалов...в такой книге стопроцентно будут рассмотрены структура объектов и возможности библиотеки ADO...
мне то самому больше на VB приходилось работать, могу порекомендовать пару книг если найдешь...
1. Р.Дженнингс - Руководство разработчика баз данных на VB 6
2. Д. МакМанус - Обработка баз данных на VB 6

первая посложнее, вторая полегче
удачи...

Спасибо большое за рекомендации и особенно за ссылку. Там очень много полезного - перевариваю.

считать данные то получилось?

Да получилось!!! Еще вчера. Спасибо огромное за помощь!!!