Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Connecting to database

Former Member
0 Kudos

Hi,

Is it possible to connect to another database from SAP.

Thanks.

1 ACCEPTED SOLUTION

former_member185931
Participant
0 Kudos

Yes, it can be done by setting the enteries in DBCON table

and following is the example

FORM connect_hris_database.

IF p_werks = 'ZDCF'.

SELECT SINGLE * FROM dbcon WHERE con_name = 'SQL_CFMAX2_HRIS_CF'.

IF sy-subrc NE 0.

WRITE:/ 'Create Database connect String in DBCON'.

WRITE: 'SQL_CFMAX2_HRIS_CR'.

EXIT.

ENDIF.

EXEC SQL.

CONNECT TO 'SQL_CFMAX2_HRIS_CF'

ENDEXEC.

ELSEIF p_werks = 'ZDCR'.

SELECT SINGLE * FROM dbcon WHERE con_name = 'SQL_CFMAX2_HRIS_CR'.

IF sy-subrc NE 0.

WRITE:/ 'Create Database connect String in DBCON'.

WRITE: 'SQL_CFMAX2_HRIS_CR'.

EXIT.

ENDIF.

EXEC SQL.

CONNECT TO 'SQL_CFMAX2_HRIS_CR'

ENDEXEC.

ELSEIF p_werks = 'ZDCC'.

SELECT SINGLE * FROM dbcon WHERE con_name = 'SQL_CFMAX2_HRIS_CC'.

IF sy-subrc NE 0.

WRITE:/ 'Create Database connect String in DBCON'.

WRITE: 'SQL_CFMAX2_HRIS_CC'.

EXIT.

ENDIF.

EXEC SQL.

CONNECT TO 'SQL_CFMAX2_HRIS_CC'

ENDEXEC.

ENDIF.

IF sy-subrc <> 0.

WRITE:/ 'CAN NOT OPEN DATABASE'.

EXIT.

ENDIF.

ENDFORM. " connect_hris_database

I hope this helps

Jagraj

1 REPLY 1

former_member185931
Participant
0 Kudos

Yes, it can be done by setting the enteries in DBCON table

and following is the example

FORM connect_hris_database.

IF p_werks = 'ZDCF'.

SELECT SINGLE * FROM dbcon WHERE con_name = 'SQL_CFMAX2_HRIS_CF'.

IF sy-subrc NE 0.

WRITE:/ 'Create Database connect String in DBCON'.

WRITE: 'SQL_CFMAX2_HRIS_CR'.

EXIT.

ENDIF.

EXEC SQL.

CONNECT TO 'SQL_CFMAX2_HRIS_CF'

ENDEXEC.

ELSEIF p_werks = 'ZDCR'.

SELECT SINGLE * FROM dbcon WHERE con_name = 'SQL_CFMAX2_HRIS_CR'.

IF sy-subrc NE 0.

WRITE:/ 'Create Database connect String in DBCON'.

WRITE: 'SQL_CFMAX2_HRIS_CR'.

EXIT.

ENDIF.

EXEC SQL.

CONNECT TO 'SQL_CFMAX2_HRIS_CR'

ENDEXEC.

ELSEIF p_werks = 'ZDCC'.

SELECT SINGLE * FROM dbcon WHERE con_name = 'SQL_CFMAX2_HRIS_CC'.

IF sy-subrc NE 0.

WRITE:/ 'Create Database connect String in DBCON'.

WRITE: 'SQL_CFMAX2_HRIS_CC'.

EXIT.

ENDIF.

EXEC SQL.

CONNECT TO 'SQL_CFMAX2_HRIS_CC'

ENDEXEC.

ENDIF.

IF sy-subrc <> 0.

WRITE:/ 'CAN NOT OPEN DATABASE'.

EXIT.

ENDIF.

ENDFORM. " connect_hris_database

I hope this helps

Jagraj