EXEC SQL

Дмитрий_

Добрый день!

Подскажите, пожалуйста, как из abap-программы обратиться к внешней таблице базы данных SQL и считать записи.
Если можно, приведите пример кода.

Спасибо.

RoadRunner

А "внешняя" - это в какой базе? Оракл или мелкософт? Пример оракла:

Code:

data: begin of is_ekko,
       ebeln like ekko-ebeln,
       aedat like ekko-aedat,
       ernam like ekko-ernam,
      end of is_ekko,
      vebeln = 'xxxxx'.
exec sql.
  select ebeln, aedat, ernam
    into :is_ekko-ebeln, :is_ekko-aedat, :is_ekko-ernam
    from ekko
   where mandt=:sy-mandt
     and ebeln=:vebeln;
endexec.

А вообще, в справке все неплохо описано с кучей примеров.

Дмитрий_

"Внешняя" - это СУБД SQL.

Спасибо за пример, немного разобрался.
Там еще нужно соединение прописать в таблице DBCON и соответственно вызвать это соединение из abap-программы.
CONNECT TO 'логическое_имя'

на данные момент программа выходит в дамп с ошибкой: таблица не существует.

ArmAnn

Дмитрий_ написал(а):

"Внешняя" - это СУБД SQL.

эт ты хорошо объяснил... субд MS SQL?

Цитата:

на данные момент программа выходит в дамп с ошибкой: таблица не существует.

вообще, если у вас есть доступ к вашему серверу БД, то запрос лучше оттестировать напрямую в запроснике, а потом уже пихать в абап

barsu4onok

Дмитрий_ написал(а):

на данные момент программа выходит в дамп с ошибкой: таблица не существует.

Если это оракл (для других тонкостей не знаю), то может спасти указание схемы, например:
select * from имя_схемы.таблица;
ну и права доступа проверить

Этот пример должен сработать практически с любой БД Оракл:

Code:

REPORT Z_DB_CONNECT .
data nm(20) type c.
exec sql.
connect to 'ORACLE_DB' as 'SM1'
endexec.
exec sql.
select table_name into :nm from all_tables
endexec.
exec sql.
disconnect 'SM1'
endexec.

RoadRunner

Цитата:

Code:

select table_name into :nm from all_tables

Боюсь, дамп будет. Ошибка ORA-01422 exact fetch returns more than requested number of rows. Я не знаю, как будет работать bulk collect с саперовскими таблицами. По-моему, не будет. Поэтому и оптимизировать работу с массивом данных не получится. А в Вашем примере надо указать WHERE.

З.Ы. А вьюшка называется ALL_ALL_TABLES (надо указывать OWNER'a) или USER_TABLES (для текущего пользователя). Вполне пройдет, т.к. в базу R/3 лезет только под своим именем, если, конечно, автор натива не законнектился под другим именем.

Natatka

Чтобы было все совсем красиво и не было ошибки ORA-01422, нужно воспользоваться курсором и считывать данные построчно:
EXEC SQL.
CONNECT TO 'BD'
END EXEC.
EXEC SQL.
open c for select dtot, kskl, cena, koln,
sumn, puti, mstn, mstk,
kmtr, tmol, kdbu
from bf_ostn_sap
where mstn = :mandt
and bukrs = :be
and ( dtot between :monat_n
and nvl( :monat_k , :monat_n ) )
and puti like :hk
ENDEXEC.
DO.
EXEC SQL.
fetch next c into :itab.
ENDEXEC.
IF sy-subrc NE 0.
EXIT.
ENDIF.
APPEND itab.
ENDDO.
EXEC SQL.
close c
ENDEXEC.
EXEC SQL.
DISCONNECT 'BD'
ENDEXEC.

AnS1

читаем ноту 323151 "Several DB connections with Native SQL"

Правила форума

EXEC SQL

Кто сейчас на конференции