ABAP_DBCO连接外部数据（abp连接多个数据库）

DBCO连接外部数据库的笔记

事务代码dbco连接外部数据库，连接外部数据库的数据库

我现在连接的是oracle数据库

dbco配置（自己测试的）

连接名，自己定义；dbms，数据库连接的类型，不同数据库对应的不一样的；

用户名称，连接的数据库的用户名称；数据库可令，连接的数据库的密码，后面是确定密码；

连接信息，这里的比较重要，一般是通过basis那里获得的，这个是要自己配置的，

在TNSNAMES.ORA这个文件下找到的，TESTOA.WORLD和我们上面的连接信息一样

在sap应用服务器端修改TNSNAMES.ORA文件，路径：$ORACLE_HOME\NETWORK\ADMIN

先在SAP底层ORACLE数据库编辑TNS文件,一般由BASIS配置完成.配置完成后我们可以用事务码:AL11查看配置是否正确,路径:DIR_ORAHOME->network->admin->tnsnames.ora查看对应的TNS是否配置正确

TNSNAMES.ORA这个文件的详细信息

# tnsnames.ora Network Configuration File: E:\usr\sap\IDE\SYS\profile\oracle\tnsnames.ora

# Generated by Oracle configuration tools.

################

# Filename......: tnsnames.ora

# Created.......: created by SAP AG, R/3 Rel. >= 6.10

# Name..........:

# Date..........:

# @(#) $Id: //bc/700-1_REL/src/ins/SAPINST/impl/tpls/ora/ind/TNSNAMES.ORA#4 $

################

####红色部分为手工加上去的，外部数据库的ip地址和端口号，黑色系统默认产生的

TESTOA.WORLD =

(DESCRIPTION =

(ADDRESS_LIST =

(ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.4.120)(PORT = 1521))

)

(CONNECT_DATA =

(SERVICE_NAME = TESTOA)

)

)

IDE.WORLD =

(DESCRIPTION =

(ADDRESS_LIST =

(ADDRESS = (COMMUNITY = SAP.WORLD)(PROTOCOL = TCP)(HOST = tbides)(PORT = 1527))

)

(CONNECT_DATA =

(SID = IDE)

(GLOBAL_NAME = IDE.WORLD)

)

)

EXTPROC_CONNECTION_DATA =

(DESCRIPTION =

(ADDRESS_LIST =

(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC0))

)

(CONNECT_DATA =

(SID = PLSExtProc)

(PRESENTATION = RO)

)

)

基本上dbco的配置已经算完成了，剩下的就是我们abap拿手的写代码连接测试和访问外部数据库了！测试连接是否成功的事务代码：st04m，测试连接的程序：ADBC_TEST_CONNECTION

自己写的测试代码，读取外部数据表的数据

*&---------------------------------------------------------------------*

*& Report ZTEST_CONN

*&

*&---------------------------------------------------------------------*

*&create by augus 2012.06.29

*&test dbco

*&---------------------------------------------------------------------*

REPORT ztest_conn.

PARAMETERS:

con_name TYPE dbcon-con_name.

DATA: dbn(255) type c.

DATA: BEGIN OF wa, "结构的字段名称可以和表的不一样

whir$fyzb_km(50) TYPE c,

whir$fyzb_je TYPE i,

whir$fyzb_zx(50) type c,

END OF wa.

data: c1 type i.

c1 = 200.

** 根据连接条件名，打开数据库的连接

EXEC SQL.

CONNECT TO :con_name

ENDEXEC.

check sy-subrc = 0.

**执行本地化sql语句,whir$fyzb外部数据的表名和对应的字段

EXEC SQL PERFORMING loop_output.

SELECT whir$fyzb_km, whir$fyzb_je, whir$fyzb_zx

INTO :wa

FROM whir$fyzb

WHERE whir$fyzb_je = :c1

ENDEXEC.

**关闭数据库连接

EXEC SQL.

DISCONNECT :con_name

ENDEXEC.

uline.

write: / 'over'.

FORM loop_output.

WRITE: / wa-whir$fyzb_km, wa-whir$fyzb_je, wa-whir$fyzb_zx.

uline.

ENDFORM.

连接sqlserver数据库

MSSQL_SERVER=192.168.8.92之间不能有空格，数据库端服务器的ip地址或者是名称

MSSQL_DBNAME=tb ，不能有空格，数据库的名称

中文乱码

http://cache.baidu.com/c?m=9f65cb4a8c8507ed4fece763105c8c3a4c07db3c678b85027fa3c215cc795b434465feb9233f515791d27c1156e50f0baaac6865377576e78cc8fe1d81eacf7e74d472296459db0144dc58fc895125b07dd009b8f14ef0bb8025e2ddc5a7a94323bd44730c97f1fb4d7060dd18f0033093b1ef4d022914ad9d35728b296028ef3430c7508a94&p=c4759a46d7c352ec0fbe9b74570dc6&user=baidu&fm=sc&query=SAP+oracle%CA%FD%BE%DD%BF%E2%D7%D6%B7%FB%BC%AF&qid=9bb5edf4041de375&p1=2

http://www.erp100.com/thread-237906-1-1.html

代码示例：

*&---------------------------------------------------------------------*

*& Report ZMS_GET_GYLX

*&

*&---------------------------------------------------------------------*

*&create by augus 2012.07.02

*&获取mes系统工艺路线表的数据

*&连接的是oracle数据库

*&后台执行

*&---------------------------------------------------------------------*

report zms_get_gylx.

parameters:

con_name type dbcon-con_name.

data: dbn(255) type c.

data: ztab like table of zmes_gylx with header line.

data: wa_zmes_gylx type zmes_gylx.

data: zgyms type xstring."十六进制工艺路线描述

data: zh_zgyms(200) type c."中文工艺路线描述

data: c1 type i.

c1 = 200.

** 根据连接条件名，打开数据库的连接

EXEC SQL.

CONNECT TO :con_name

ENDEXEC.

check sy-subrc = 0.

**执行本地化sql语句,ZMES_GYLX外部数据的表名和对应的字段

********************调用子程序读取数据库********************

***utl_raw.cast_to_raw，oracle的一个函数，通过转化为十六进制，为了解决中文乱码的问题

EXEC SQL PERFORMING loop_output.

SELECT ZGYLX, utl_raw.cast_to_raw(ZGYMS)

INTO :wa_ZMES_GYLX-ZGYLX, :zgyms

FROM ZMES_GYLX

ENDEXEC.

*************************************************************

**关闭数据库连接

EXEC SQL.

DISCONNECT :con_name

ENDEXEC.

uline.

write: / 'over'.

*&---------------------------------------------------------------------*

*& Form loop_output

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

form loop_output.

perform hex_to_utf8 using zgyms changing zh_zgyms.

* WRITE: / wa-whir$fyzb_km, wa-whir$fyzb_je, wa-whir$fyzb_zx.

* ULINE.

wa_zmes_gylx-zgyms = zh_zgyms.

insert into zmes_gylx values wa_zmes_gylx.

commit work.

endform. "loop_output

*&---------------------------------------------------------------------*

*& Form hex_to_utf8

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->P_HEX_SOURCE text

* -->P_RESULT text

*----------------------------------------------------------------------*

*****解决中文乱码的问题，16进制编码转换

form hex_to_utf8 using p_hex_source type xsequence

changing p_result type simple.

data: cv type ref to cl_abap_conv_in_ce.

*****连接的数据的字符集是什么，就得用对应的字符集来转换

IF con_name = 'ZMES'."连接mes测试机数据库

cv = cl_abap_conv_in_ce=>create( encoding = 'UTF-8' ).

ELSEIF con_name = 'ZMES01'."连接mes正式机数据库

cv = cl_abap_conv_in_ce=>create( encoding = '4102' )."endcoding可以在表TCP00里查看uft-16对应4102

ENDIF.

TRY.

CALL METHOD cv->convert

EXPORTING

input = p_hex_source

IMPORTING

data = p_result.

CATCH cx_sy_conversion_codepage CX_SY_CODEPAGE_CONVERTER_INIT CX_PARAMETER_INVALID_TYPE."捕获下异常

ENDTRY.

endform. "hex_to_utf8

8