sql-server - SQL Serverテーブルをitabにインポートするには?

Question

SQL Server テーブルのデータを内部テーブル (itab) に直接インポートすることは可能ですか?

この itab を SE37 関数で使用したいと考えています。前もって感謝します

Answer 1

タスクには、汎用モジュール (SE37) を使用するか、モジュール プールまたはレポート (SE38、SE80) を使用できます。このレポートを確認してください:

report zinsertdb.

data: oref   type ref to cx_root,
      p_conex type dbcon_name value 'YOUR_DB_CONNECTION_STRING', " Ask the basis for this
      lv_sw type c,
      errormessage type string.

data it_mydata type standard table of mara.

start-of-selection.

  perform connect.
  perform insert_into_db.
  perform disconnect.

form connect.
  try.
      EXEC SQL.
        CONNECT TO :p_conex
      ENDEXEC.
      lv_sw = 'X'.
    catch cx_sy_native_sql_error into oref.
      lv_sw = space.
      errormessage = oref->get_text( ).
  endtry.
endform.

form disconnect.
  clear errormessage.
  if lv_sw = 'X'.
    try.
        EXEC SQL.
          COMMIT
        ENDEXEC.
      catch cx_sy_native_sql_error into oref.
        errormessage = oref->get_text( ).     
    endtry.
  endif.
endform.

form insert_into_db.

   data wa_mydata like line of it_mydata.
   data zcount type i.

   select * from mara into corresponding fields of table it_mydata.

   if sy-subrc EQ 0.

     loop at it_mydata into wa_mydata.

        try .

            exec sql. 
              EXECUTE PROCEDURE sp_get_data ( IN :wa_mydata-EAN11, IN :wa_mydata-MEINS, OUT :zcount ) 
            endexec.

            if zcount eq 0.
              exec sql.
                INSERT INTO "Your_Database".dbo.[Your_table]
                (Field1, Field2, Field3, FieldN)
                 VALUES (:wa_mydata-matnr,
                         :wa_mydata-ean11,
                         :wa_mydata-matkl,
                         :wa_mydata-meins)
              endexec.
              lv_sw = 'X'.
            endif.

          catch cx_sy_native_sql_error into oref.
            lv_sw = space.
            errormessage = oref->get_text( ).   
        endtry.

     endloop.

   endif.

endform.

それが役に立てば幸い。