SAP 如何实现跨系统取数 SAP读取ORACLE或者SQL server数据库

如何实现SAP跨系统取数 SAP读取ORACLE或者SQL server数据库

创建连接参数

公司在实施SAP后,可能会与其他业务系统进行集成。这样,就需要不同系统间进行同步数据,下面介绍SAP如何从其他数据库读取数据。以SQL为例。

第一步:创建数据库连接参数,键入DBCO(或使用SM30维护表DBCON的内容),进入数据库连接总览界面。添加一个新的连接参数,输入连接名,DBS是指连接数据库的类型,SQL的为MSS,用户名,需在数据库系统中存在的,密码,连接信息:MSSQL_SERVER=IP adress MSSQL_DBNAME=dbname OBJECT_SOURCE=dbname

 

ABAP编码

然后键入se38,新建一个报表程序。以下是代码内容。

 

report ZCMH0026.

*--------------------------------------------------------------------*
*------- DBCO 里的连接信息   -------------------------------*
*--MSSQL_SERVER=10.1.7.7 MSSQL_DBNAME=saptest OBJECT_SOURCE=saptest   ------------*
*----连接名称: YANGTEST   ----------------------------------------*
*-----------------------------------------------------------------*

DATA g_conexion LIKE dbcon-con_name VALUE 'YANGTEST'.

DATAexec_ref TYPE REF TO cx_sy_native_sql_error,
      error_text 
TYPE string.

DATAg_errorstr(250TYPE c.

DATABEGIN OF WA_TRANS ,
  NAME
(30TYPE C,
  LIST
(30TYPE C,
  
END OF WA_TRANS.

DATAdbcur TYPE CURSOR.

  
START-OF-SELECTION.

*首先建立数据库连接
PERFORM sub_conndb USING g_conexion.
PERFORM getdata.
"PERFORM updatedata.
"PERFORM INSERTDATA.

END-OF-SELECTION.

FORM sub_conndb USING conn LIKE dbcon-con_name.
  
CLEAR g_errorstr.
  g_conexion 
conn.
TRY.
"--  连接SQL SERVER
 
EXEC SQL.
        CONNECT 
TO :G_CONEXION
      
ENDEXEC.
      
EXEC SQL.
        
SET CONNECTION :G_CONEXION
      
ENDEXEC.
    
CATCH cx_sy_native_sql_error INTO exec_ref.
      
CONCATENATE '无法连接至SQL数据库   连接名:' g_conexion INTO g_errorstr.

ENDTRY.
ENDFORM.
"-- 获取 SQL SERVER 里的表数据 方法一
FORM getdata.

*-- 表  TABLE_2 是SQL 数据库 saptest  里存在的表

TRY.
      
EXEC SQL.
         
OPEN dbcur FOR  SELECT *  FROM  TABLE_2
      
ENDEXEC.
      
WRITE:'NAME' ,  'LIST'.

      
DO.
        
EXEC SQL.
          
FETCH NEXT dbcur INTO :wa_trans.
        
ENDEXEC.
        
IF sy-subrc <> 0.
          
EXIT.
        
ELSE.
          
WRITE:/ WA_TRANS-NAME ,  WA_TRANS-LIST.
        
ENDIF.
      
ENDDO.

      
EXEC SQL.
        
CLOSE dbcur
      
ENDEXEC.

    
CATCH cx_sy_native_sql_error INTO exec_ref.
      g_errorstr 
exec_ref->get_text( ).
      
CONCATENATE '读取数据出错,'  g_errorstr INTO g_errorstr.

      
WRITE:/ g_errorstr.
      
ENDTRY.

  
ENDFORM.
"-- 获取 SQL SERVER 里的表数据 方法二 : 不使用游标
FORM getdata2.

TRY.
  
EXEC SQL PERFORMING LOOP_OUTPUT.
  
SELECT *
    
INTO :WA_TRANS
    
FROM TABLE_2
  
ENDEXEC.

CATCH cx_sy_native_sql_error INTO exec_ref.
      g_errorstr 
exec_ref->get_text( ).
      
CONCATENATE '读取数据出错,'  g_errorstr INTO g_errorstr.

      
WRITE:/ g_errorstr.
ENDTRY.

ENDFORM.
FORM LOOP_OUTPUT.
  
WRITE :/ WA_TRANS-NAME,' ',WA_TRANS-LIST.
ENDFORM.
FORM updatedata.

TRY.
  
EXEC SQL .
  
update TABLE_2 set list 11 where name 1
  
ENDEXEC.

CATCH cx_sy_native_sql_error INTO exec_ref.
      g_errorstr 
exec_ref->get_text( ).
      
CONCATENATE '更新数据出错,'  g_errorstr INTO g_errorstr.

      
WRITE:/ g_errorstr.
ENDTRY.

PERFORM getdata2.

ENDFORM.
FORM INSERTDATA.

TRY.
  
EXEC SQL .
  
insert TABLE_2(name,listvalues(5,55)
  
ENDEXEC.

CATCH cx_sy_native_sql_error INTO exec_ref.
      g_errorstr 
exec_ref->get_text( ).
      
CONCATENATE '插入数据出错,'  g_errorstr INTO g_errorstr.

      
WRITE:/ g_errorstr.
ENDTRY.

PERFORM getdata2.

ENDFORM.

 

你可能感兴趣的:(SAP访问SQL,跨数据库连接)