Accessing MS SQL Server without DBCON

[naveenvishal]

i am trying to access the SQL Server database using the following code (which was successfully implemented for MS Access) but was not able to execute the TABLE query (kindly mark the changes in THIS CODE itself, no DBCON needed) :

TYPE-POOLS OLE2.

DATA: CONN TYPE OLE2_OBJECT,

RSDB TYPE OLE2_OBJECT,

SQL TYPE C LENGTH 1024.

DATA: BEGIN OF WA_TEMP,

VALUE TYPE C LENGTH 1024,

END OF WA_TEMP,

IT_TEMP LIKE STANDARD TABLE OF WA_TEMP.

DATA: BEGIN OF WA_PA0001,

PERNR TYPE PERSNO ,

ENAME TYPE EMNAM,

END OF WA_PA0001,

IT_PA0001 LIKE TABLE OF WA_PA0001.

START-OF-SELECTION.

CREATE OBJECT CONN 'ADODB.Connection'.

CREATE OBJECT RSDB 'ADODB.Recordset'.

CONCATENATE 'Provider=sqloledb;' 'Data Source=10.10.XX.XXX,1433;'

'Network Library=DBMSSOCN;' 'Initial Catalog=Data_con;' 'User ID=sa;'

'Password=sa;' INTO SQL.

CALL METHOD OF CONN 'Open' EXPORTING #1 = SQL.

IF SY-SUBRC EQ 0.

write 'aaa'.

endif.

• Query Statement ...

SQL = 'SELECT * FROM PAOOO1'.

• Run Query

CALL METHOD OF RSDB 'OPEN' EXPORTING #1 = SQL #2 = CONN #3 = '1'.

IF SY-SUBRC EQ 0.

write 'aaa'.

endif.

DO.

CALL METHOD OF RSDB 'getstring' = SQL

EXPORTING #1 = '2' "Do not modify!

#2 = 1 "Do not modify!

#3 = '|' "Do not modify!

#4 = '|'. "Do not modify!

IF SY-SUBRC EQ 0.

REFRESH IT_TEMP.

SPLIT SQL AT '|' INTO TABLE IT_TEMP.

LOOP AT IT_TEMP INTO WA_TEMP.

CASE SY-TABIX.

WHEN 1.

WA_PA0001-PERNR = WA_TEMP-VALUE.

WHEN OTHERS.

WA_PA0001-ENAME = WA_TEMP-VALUE.

ENDCASE.

ENDLOOP.

APPEND WA_PA0001 TO IT_PA0001.

CLEAR WA_PA0001.

ELSE.

EXIT.

ENDIF.

ENDDO.

ULINE AT (55).

WRITE: / '|' NO-GAP, (010) 'N I K' LEFT-JUSTIFIED,

'|' NO-GAP, (040) 'N A M E' LEFT-JUSTIFIED,

'|'.

ULINE AT /(55).

LOOP AT IT_PA0001 INTO WA_PA0001.

WRITE: / '|' NO-GAP, (010) WA_PA0001-PERNR LEFT-JUSTIFIED,

'|' NO-GAP, (040) WA_PA0001-ENAME LEFT-JUSTIFIED,

'|'.

ENDLOOP.

ULINE AT /(55).

[naveenvishal]

not able to connnect to the SQL server database, so i exported the database to a text file and read that text file...

THanx,

NAveen VIshal