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

sy-uname

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.

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

Ну откуда OLE2 объект будет знать про ABAP-переменную WA?

andry_moz

например вот так

Code:

 

include ole2incl.

data: adoc type ole2_object,
      rs type ole2_object,
      adoField  type ole2_object,
      sql(500),
      initstr(400),
      col type i,
      eof(1),
      result(600).

create object adoc 'ADODB.Connection'.
create object rs 'ADODB.RecordSet'.

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

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

if sy-subrc = 0.
  Call method of adoc 'BEGINTRANS'.

  sql = 'select * from nsi'.
  CALL METHOD OF rs 'Open'
  EXPORTING
    #1 = SQL
    #2 =  adoc
    #3 = '1'.

  get property of rs 'fields' = adofield.
  get property of adofield 'count' = col.
  write: / 'Число полей:', col.

  get property of rs 'Recordcount' = col.
  write: / 'Число строк:', col.

  get property of rs 'EOF' = eof.

  do col times. " WHILE eof = '0'.

  CALL METHOD OF rs 'Getstring' = result
   EXPORTING
     #1 = '2'
     #2 = '1'
     #3 = '|'
     #4 = '|'.
  
   write result.

  call method of rs 'MoveNext'.
  get property of rs 'EOF' = eof.
enddo. "ENDWHILE.
endif.

birds

andry_moz написал:

например вот так

Code:

 

include ole2incl.

data: adoc type ole2_object,
      rs type ole2_object,
      adoField  type ole2_object,
      sql(500),
      initstr(400),
      col type i,
      eof(1),
      result(600).

create object adoc 'ADODB.Connection'.
create object rs 'ADODB.RecordSet'.

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

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

if sy-subrc = 0.

вот, у меня как раз sy-subrc <> 0.
хотя с этим (моим пользователем и паролем по моему Location ) я захочу в базу IBExpert и спокойно работаю. и там могу посмотреть любые данные и составить любой селект. у меня только нет прав на обновление.

может быть что-то закрыто для доступа из сапа
как это можно проверить?

sy-subrc = 2. в моем случае

к админу не посылать, он у нас никакой

akalibero

У меня вопрос по поводу IBProvider-а: Где он должен стоять( На сервере Interbase, на сервере приложений SAP, на сервере БД SAP)?

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

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

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