FUNCTION z_db_ado_connect.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     REFERENCE(SQL) TYPE  STRING
*"     REFERENCE(INITSTR) TYPE  STRING
*"     REFERENCE(FC) TYPE  SLIS_T_FIELDCAT_ALV
*"  TABLES
*"      INTAB_DB
*"----------------------------------------------------------------------
  CREATE OBJECT adoconnect 'ADODB.Connection'.
  CREATE OBJECT adors 'ADODB.RecordSet'.
  init = initstr.
  SET PROPERTY OF adoconnect 'ConnectionString' = init.
  CALL METHOD OF adoconnect 'Open'.
  SET PROPERTY OF adors 'CursorType' = 3.
  SET PROPERTY OF adors 'LockType' = 1.
  SET PROPERTY OF adors 'ActiveConnection' = adoconnect.
  CALL METHOD OF adors 'Open'
         EXPORTING
                 #1 = sql.
  GET PROPERTY OF adors 'EOF' = eof.
  REFRESH intab_db.
  ASSIGN ('intab_db[]') TO <fs_int>.
  ASSIGN ('fc[]') TO <fs_tab>.
  CREATE DATA dref LIKE intab_db.
  ASSIGN dref->* TO <fs_ref>.
  <fs_ref> = intab_db.
  WHILE eof = '0'.
    LOOP AT <fs_tab> ASSIGNING <fs_line>.
      field_name = <fs_line>-fieldname.
      CALL METHOD OF adors 'fields' = adofield
            EXPORTING
              #1 = field_name.
      GET PROPERTY OF adofield 'Value' = value.
      ASSIGN COMPONENT field_name OF STRUCTURE <fs_ref> TO <fs>.
      <fs> = value.
    ENDLOOP.
    APPEND <fs_ref> TO intab_db.
    FREE adofield.
    CALL METHOD OF adors 'MoveNext'.
    GET PROPERTY OF adors 'EOF' = eof.
  ENDWHILE.
  UNASSIGN <fs_tab>.
  UNASSIGN <fs_int>.
  FREE adoconnect.
  FREE adofield.
  FREE adors.
ENDFUNCTION.

FUNCTION-POOL zmelnikov.                    "MESSAGE-ID ..
TYPE-POOLS: slis.
TYPE-POOLS: ole2.
DATA: adoconnect      TYPE ole2_object,
      adors           TYPE ole2_object,
      adofield        TYPE ole2_object,
      init(400)       TYPE c,
      field_name(253) TYPE c,
      value(253)      TYPE c,
      eof(1)          TYPE c.

DATA: dref TYPE REF TO data.

FIELD-SYMBOLS: <fs_line> TYPE slis_fieldcat_alv,
               <fs_ref>  TYPE ANY,
               <fs>     TYPE ANY,
               <fs_tab>  TYPE slis_t_fieldcat_alv,
               <fs_int>  TYPE ANY TABLE.

TYPE-POOLS: slis.
tables: ZNAME.
data: sql type STRING,
      FC TYPE  SLIS_T_FIELDCAT_ALV,
      initstr type string.
DATA:
ls_fieldcat TYPE slis_fieldcat_alv,
lt_fieldcat TYPE slis_t_fieldcat_alv
.

data: INTAB_DB type STANDARD TABLE OF ZNAME.
data:     wa like LINE OF INTAB_DB.

CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'NAME'.
ls_fieldcat-fieldname = 'ID'.
APPEND ls_fieldcat TO lt_fieldcaT.

CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'NAME'.
ls_fieldcat-fieldname = 'SHORT_NAME '.
APPEND ls_fieldcat TO lt_fieldcaT.

sql = 'SELECT  * FROM name'.

* ... понятно конкретные значения
concatenate
'Provider=LCPI.IBProvider.3.Free'
'Persist Security Info=False'
'User ID=....'
'Password=....'
'Location=.....FOREPF.IB'
into initstr  separated by ';'.


CALL FUNCTION 'Z_DB_ADO_CONNECT'
  EXPORTING
    SQL            =  sql
    INITSTR        =  initstr
    FC             =  lt_fieldcaT
  TABLES
     INTAB_DB       = INTAB_DB.

GET PROPERTY OF adors 'EOF' = eof.     

FUNCTION ZSQL_INSERT_TAB.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     REFERENCE(CATALOG) TYPE  C DEFAULT 'CHMK'
*"     REFERENCE(DATA_SOURCE) TYPE  C DEFAULT 'UK-ECON-150'
*"     REFERENCE(SQL_TABLE) TYPE  C
*"  TABLES
*"      T_OUTTAB
*"  EXCEPTIONS
*"      SQLCMDERROR
*"      SQLNOCONNECT
*"----------------------------------------------------------------------

INCLUDE ole2incl.

Types:
  begin of abap_compdescr,
    lenght   type i,
    decimals type i,
    type_kid type c,
    name(30) type c,
  end of abap_compdescr.

FIELD-SYMBOLS: <l_struct> type abap_compdescr,
               <t_tab>    type any table,
               <val>.

Data:
  len       type i,
  l_line    type ref to cl_abap_structdescr,
  it_struct type table of abap_compdescr,
  wa_fcat   type lvc_s_fcat,
  it_fact   type lvc_t_fcat,
  table     type ref to data.

Data:
  oConn        type ole2_object,
  cmd          type ole2_object,
  conStr(500),
  state        type i,
  field_name(50),
  Value        type string,
  cmdTxt       type string,
  insTxt       type string,
  valTxt       type string.

concatenate 'Provider=SQLNCLI.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=' CATALOG ';Data Source=' DATA_SOURCE into conStr.
*write conStr.
create object oConn 'adodb.connection'.

* Установка соединения с SQL-сервером
set property of oConn 'ConnectionString' = conStr.
call method of oConn 'Open'.
if sy-subrc ne 0.
  raise SQLNoConnect.
endif.

* создение объекта SQL-команда
create object cmd 'adodb.command'.
set property of cmd 'ActiveConnection' = oConn.

*set property of cmd 'CommandText'      = 'INSERT TEST (ID) VALUES (2)'.

* определяем структуру внутренней таблицы и составляем заголовок
l_line ?= cl_abap_typedescr=>describe_by_data( p_data = t_outtab ).
it_struct[] = l_line->components.
insTxt = '('.
loop at it_struct assigning <l_struct>.
  concatenate insTxt <l_struct>-name into insTxt.
  concatenate insTxt ',' into insTxt.
endloop.
*shift insTxt right deleting trailing space.
*shift insTxt.
*shift insTxt right.
*shift insTxt up to '('.
len = strlen( insTxt ) - 1.
insTxt = insTxt+0(len).
concatenate insTxt ')' into insTxt.
* выгружаем таблицу на SQL-сервер
loop at t_outtab.
  cmdTxt = ''.
  valTxt = '('.
  loop at it_struct assigning <l_struct>.
    concatenate 't_outtab-' <l_struct>-name into field_name.
    assign (field_name) to <val>.

    if <l_struct>-TYPE_KID = 'I' or <l_struct>-TYPE_KID = 'P' or <l_struct>-TYPE_KID = 'F'.
      if <val> < 0.
        Value = <val> * -1.
        concatenate '-' Value into Value.
      else.
        Value = <val>.
      endif.
*      shift Value right deleting trailing space.
      concatenate valTxt '''' value ''',' into valTxt.
    elseif <l_struct>-TYPE_KID = 'C' or <l_struct>-TYPE_KID = 'N' or <l_struct>-TYPE_KID = 'D'.
* Удаляем символ ' из строки.
      value = <val>.
      translate value using '''"'.
      concatenate valTxt '''' value ''',' into valTxt.
*      concatenate valTxt '''' <val> ''',' into valTxt.
    else.
      concatenate valTxt '''0'',' into valTxt.
    endif.
  endloop.
*  shift valTxt right deleting trailing space.
*  shift valTxt right.
*  shift valTxt up to '('.
  len = strlen( valTxt ) - 1.
  valTxt = valTxt+0(len).
  concatenate valTxt ')' into valTxt.
*  write valTxt.
  concatenate 'INSERT ' SQL_TABLE insTxt ' VALUES ' valTxt into cmdTxt separated by ' '.
*  write cmdTxt.
  set property of cmd 'CommandText' = cmdTxt.
* выполение SQL команды
  call method of cmd 'Execute'.
  if sy-subrc ne 0.
    write cmdTxt.
    raise SQLCmdError.
  endif.
endloop.
call method of oConn 'Close'.
ENDFUNCTION.