DBCO连接外部数据库的笔记
事务代码dbco连接外部数据库，连接外部数据库的数据库
参考链接：http://scnblogs.techweb.com.cn/qiangsheng/archives/95.html
我现在连接的是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://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
DBCO连接外部数据
2019年3月14日 星期四
15:54
DBCO连接外部数据库的笔记
事务代码dbco连接外部数据库，连接外部数据库的数据库
参考链接：http://scnblogs.techweb.com.cn/qiangsheng/archives/95.html
我现在连接的是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://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