Коннект из САП к базе.gdb(InterBase), выкачка инфы и дозапись

Malax

Пожалуйста раскажите каким образом надо прописать ADODB в SOLE ?
Задача состоит в коннекте из САП к базе.gdb(InterBase), выкачка инфы и дозапись, как регистрировать adodb.
Что для этого надо ? Если можно то поподробнее.

AlekseyDIT

А вы уверены в том, что вообще возможно получить доступ к внешней БД. Или вы используете Java Script или NetWeawer.
Просто у меня была подобная необходимость, но её решения я не нашёл.

Malax

Вопрос в том и состоит, можно ли и как это сделать.

Пономарев Артем

Ну если используется БД InterBase(Firebird?) -> то с большой долей вероятности в конторе есть ПО написанное на Delphi -> отсюда есть вероятность наличия Delphi-разработчиков.
В таком случае ставь им пиво чтобы написали программку, выполняющую необходимую функциональность и оформили ее в виде OLE-сервера. Дальше - дело пяти минут.

<Yuri>

ADODB - сервер автоматизации OLE и содержит интерфейсы к которым можно обращаться из ABAP'а через OLE. В OLE Object Weaver все интерфейсы видны. Однако работает все это чрезвычайно медленно.

Malax

Если напишут OLE сервер, то :
1. Как прописать его в SOLE
2. Где OLE сервер должен крутиться?

Пономарев Артем

Все много проще. Пиво можешь мне ставить

В SOLE регистрировать не обязательно.
Поставь на машинах, откуда предпологается доступ, ODBC отсюда:

http://www.ibdatabase.com

Код примерно такой будет:

Code:

INCLUDE ole2incl.
data:
connection type ole2_object,
connectionstring type string.

connectionstring ='DRIVER=Firebird/InterBase(r) driver;PWD=masterkey;UID=SYSDBA;DBNAME=удалённыйсервер/порт:load;'.

create object connection 'adodb.connection'.

set property of connection 'ConnectionString' = ConnectionString.

call method of connection 'Open'.

Malax

Как правильно прописать connectionstring

connectionstring ='DRIVER=Firebird/InterBase(r) driver;PWD=masterkey;UID=SYSDBA;DBNAME=удалённыйсервер/порт:load;'.

Можно пример пож-та.
А то после
call method of connection 'Open'
sy-subrc возвращает значение 2.

Пономарев Артем

В личку можно не дублировать, в таком разе

Уже ответил.

Malax

Попробовал, разные строки никак не получается.

Egal

Malax написал(а):

Попробовал, разные строки никак не получается.

я бы попробовал ADO.CONNECTION в SOLE

Malax

ADO.CONNECTION в SOLE как его прописать, и потом как его использовать в проге? Можно пример пож-та.

birds

Malax написал(а):

Пожалуйста раскажите каким образом надо прописать ADODB в SOLE ?
Задача состоит в коннекте из САП к базе.gdb(InterBase), выкачка инфы и дозапись, как регистрировать adodb.
Что для этого надо ? Если можно то поподробнее.

у Вас получилось решить эту задачу, если да, то можно поподробнее как. или вы отказалась и пошли каким-то другим путем.

передо мной сейчас стоит подобная задача

andry_moz

birds написал(а):

Malax написал(а):

Пожалуйста раскажите каким образом надо прописать ADODB в SOLE ?
Задача состоит в коннекте из САП к базе.gdb(InterBase), выкачка инфы и дозапись, как регистрировать adodb.
Что для этого надо ? Если можно то поподробнее.

у Вас получилось решить эту задачу, если да, то можно поподробнее как. или вы отказалась и пошли каким-то другим путем.

передо мной сейчас стоит подобная задача

нужно установить провайдер для Ibase/Firebird.

например так:

Code:

include ole2incl.

data: adoc type ole2_object,
      sql(500),
      initstr(400).

create object adoc 'ADODB.Connection'.

concatenate
'Provider=LCPI.IBProvider.3.Free'
'Persist Security Info=False'
'User ID=sysdba'
'Password=masterkey'
'Location=10.11.12.13:c:\base.gdb'
into initstr  separated by ';'.

set property of adoc 'ConnectionString' = initstr.
call method of adoc 'Open'.

Call method of adoc 'BEGINTRANS'.

sql = 'UPDATE file1 SET field1= '12345'' WHERE field2 = 56'.

CALL METHOD OF adoc 'EXECUTE'
    EXPORTING
    #1 = SQL.

  if sy-subrc <> 0.
    call method of adoc 'ROLLBACKTRANS'.
  Else.
     call method of adoc 'COMMITTRANS'.
  EndIf.

birds

спасибо, у меня получилось приконнектится, но не получилось взять информацию из базы.

запрос выглядел так:

Code:

...
DATA: BEGIN OF wa OCCURS 100,
       ID TYPE ZMM_T_UNIT-ID,
      END OF wa.

Call method of adoc 'BEGINTRANS'.

sql = 'SELECT  id INTO :wa  FROM units'.

CALL METHOD OF adoc 'EXECUTE'
    EXPORTING
    #1 = SQL.

  if sy-subrc <> 0.
    call method of adoc 'ROLLBACKTRANS'.
  Else.
     call method of adoc 'COMMITTRANS'.
  EndIf.

возвращается sy-subrc = 2.

что делается не так.

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

Коннект из САП к базе.gdb(InterBase), выкачка инфы и дозапись

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