Created
February 2, 2014 17:28
-
-
Save dantesco/8771751 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
&---- | |
*& Report ZYSH01 * | |
*& Developer : Hong young sun (sapkor@yahoo.co.kr * | |
*& Create Date : 2006.02.27 * | |
*& SAP R/3 Version : 4.6C * | |
&---- | |
REPORT ZYSH01. | |
INCLUDE ole2incl. | |
DATA: con TYPE ole2_object, | |
rec TYPE ole2_object. | |
DATA SQL(1023). | |
DATA: BEGIN OF SPL OCCURS 0, | |
VAL(1023), | |
END OF SPL. | |
DATA: BEGIN OF I1 OCCURS 0, | |
F1(10) , | |
F2 TYPE I, | |
END OF I1. | |
IF con-header IS INITIAL OR con-handle = -1. | |
CREATE OBJECT con 'ADODB.Connection'. | |
IF NOT sy-subrc = 0. | |
EXIT. | |
ENDIF. | |
CREATE OBJECT REC 'ADODB.Recordset'. | |
IF NOT sy-subrc = 0. | |
EXIT. | |
ENDIF. | |
ENDIF. | |
MDB connetion infomations .... | |
CONCATENATE 'Provider=' '''Microsoft.Jet.OLEDB.4.0''' ';' | |
INTO SQL. | |
CONCATENATE SQL 'Password=' '''''' ';' | |
INTO SQL. | |
CONCATENATE SQL 'User ID=' '''Admin''' ';' | |
INTO SQL. | |
CONCATENATE SQL 'Data Source=' '''C:\db2.mdb''' ';' | |
INTO SQL. | |
CONCATENATE SQL 'Mode=' '''Share Deny None''' | |
INTO SQL. | |
MDB connection ... | |
CALL METHOD OF CON 'Open' | |
EXPORTING #1 = SQL. | |
* | |
Query (insert) statement ... | |
SQL = 'insert into [test] values('. | |
CONCATENATE SQL '''A''' ',' '''1''' ')' INTO SQL. | |
Query run ... | |
CALL METHOD OF REC 'Open' | |
EXPORTING #1 = SQL | |
#2 = CON | |
#3 = '1'. | |
Query (select) statement ... | |
SQL = 'select * from[test]'. | |
Query run ... | |
CALL METHOD OF REC 'Open' | |
EXPORTING #1 = SQL | |
#2 = CON | |
#3 = '1'. | |
Selecting MDB record into SAP internal table ... | |
DO. | |
CALL METHOD OF REC 'getstring' = SQL | |
EXPORTING #1 = '2' "Do not modify! | |
#2 = 1 "Do not modify! | |
#3 = '|' "Do not modify! | |
#4 = '|'. "Do not modify! | |
IF SUBRC EQ 0. | |
REFRESH SPL. CLEAR SPL. | |
SPLIT SQL AT '|' INTO TABLE SPL. | |
LOOP AT SPL. | |
CASE SY-TABIX. | |
WHEN 1. | |
I1-F1 = SPL-VAL. | |
WHEN OTHERS. | |
I1-F2 = SPL-VAL. | |
ENDCASE. | |
ENDLOOP. | |
APPEND I1. CLEAR I1. | |
ELSE. | |
EXIT. | |
ENDIF. | |
ENDDO. | |
Result writing ... | |
LOOP AT I1. | |
WRITE: AT /1(10) I1-F1, | |
AT (10) I1-F2. | |
ENDLOOP. | |
connetion close & destroy | |
FREE OBJECT con. | |
FREE OBJECT rec. |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment