ABAP访问外部SQL （转）

source is as follows[@more@]

这是一个ABAP访问外部SQL的你可以参照一下： 首先： 　　下面将ABAP访问外部SQL Server的做法完整贴出（已经测试通过） 首先在dbco中建立一个连接。 Connection name：Z_CONN DBMS ：MSS User name ：sa DB password : sa密码 Conn. info ：MSSQL_SERVER=服务器名称或IP地址 MSSQL_DBNAME=数据库名称 然后这是一个ABAP的测试例子： REPORT ZRPPTEST . DATA F1(40). TABLES dbcon. PARAMETERS: conexion LIKE dbcon-con_name. try. EXEC SQL. CONNECT TO :conexion ENDEXEC. EXEC SQL. SET CONNECTION :conexion ENDEXEC. CATCH cx_sy_native_sql_error. WRITE 'FALLUSE'. endtry. *DATA: BEGIN OF WA, * ContainerName(40), * END OF WA. *EXEC SQL. * SELECT ContainerName INTO :WA FROM Container *ENDEXEC. * try. * EXEC SQL. * CONNECT TO :p_dbconname * ENDEXEC. * EXEC SQL. * SET CONNECTION :p_dbconname * ENDEXEC. * * CATCH cx_sy_native_sql_error. * p_subrc = '99'. * ENDTRY. * IF sy-subrc = 0. WRITE 'ok'. ELSE. WRITE 'FALLUSE'. ENDIF. EXEC SQL. OPEN C1 FOR SELECT ContainerName FROM Container ENDEXEC. DO. EXEC SQL. FETCH NEXT C1 INTO :F1 ENDEXEC. IF SY-SUBRC <> 0. EXIT. ENDIF. WRITE: / F1. ENDDO. EXEC SQL. CLOSE C1 ENDEXEC. *EXEC SQL. *DO. * FETCH NEXT CURSOR C1 INTO wa. * IF SY-SUBRC <> 0. * CLOSE CURSOR C1. * EXIT. * ENDIF. * WRITE: / wa-ContainerName. * *ENDDO. *ENDEXEC.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8214011/viewspace-910684/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8214011/viewspace-910684/