MS Access DB ändern

Code: Alles auswählen.

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.


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:\Mm.Mdb' ';'
INTO SQL.
CONCATENATE SQL 'Mode=' 'Share Deny None'
INTO SQL.

* MDB Connection …
CALL METHOD OF
    CON
    'Open'

  EXPORTING
    #1     = SQL.
*
*
* Query (delete) Statement …
SQL = 'DELETE FROM [Test] WHERE Test.[1] = "3"'.
* Query Run …
CALL METHOD OF
    REC
    'Open'

  EXPORTING
    #1     = SQL
    #2     = CON
    #3     = '1'.
write: sy-subrc.

* Query (Insert) Statement …
SQL = 'Insert Into [Test] Values('.
CONCATENATE SQL '"8"' ',' '"1"' ')' INTO SQL.
CALL METHOD OF
    REC
    'Open'

  EXPORTING
    #1     = SQL
    #2     = CON
    #3     = '1'.
write: sy-subrc.

* Query (Update) Statement …
SQL = 'UPDATE TEST SET Test.[1] = "3"'.
* Query Run …
CALL METHOD OF
    REC
    'Open'

  EXPORTING
    #1     = SQL
    #2     = CON
    #3     = '1'.
write: sy-subrc.

* Query (Select) Statement …
SQL = 'Select * From [Test] WHERE Test.[1] = "8"'.
* Query Run …
CALL METHOD OF
    REC
    'Open'

  EXPORTING
    #1     = SQL
    #2     = CON
    #3     = '1'.
write: sy-subrc.

FREE REC.
FREE CON.