Skip to main content

[archive] Access 2007

  • February 6, 2009
  • 7 replies
  • 0 views
D

[Migrated content. Thread originally posted on 05 February 2009]

Hello
Is there a .def file that will allow us to import records to an Access 2007 .accdb database?

Thanks

    7 replies

    D

    [Migrated content. Thread originally posted on 05 February 2009]

    Hello
    Is there a .def file that will allow us to import records to an Access 2007 .accdb database?

    Thanks
    The .def file you make yourself using axdefgen, launch it, go to the library tab, scroll down until you find Microsoft ActiveX Data Objects, there is likely to be multiple of them, pick anyone you want.

    As for how to import, I am not sure there is a specific import example, but I am pretty sure I once posted an example here of how to read records using MS ADO. Look around.
    D

    [Migrated content. Thread originally posted on 05 February 2009]

    Hello
    Is there a .def file that will allow us to import records to an Access 2007 .accdb database?

    Thanks
    The .def file you make yourself using axdefgen, launch it, go to the library tab, scroll down until you find Microsoft ActiveX Data Objects, there is likely to be multiple of them, pick anyone you want.

    As for how to import, I am not sure there is a specific import example, but I am pretty sure I once posted an example here of how to read records using MS ADO. Look around.
    D

    [Migrated content. Thread originally posted on 05 February 2009]

    Hello
    Is there a .def file that will allow us to import records to an Access 2007 .accdb database?

    Thanks
    Here is an example on accessing MS Access from ACUCOBOL-GT:

           IDENTIFICATION DIVISION.
           PROGRAM-ID. ExReadADO.
          *====================
          *
          * Copyright (c) 1996-2006 by Acucorp, Inc.  Users of ACUCOBOL
          * may freely modify and redistribute this program.
          *
          * The purpose of this application is to illustrate use of the MSADO
          * technology for database access
          *
           ENVIRONMENT DIVISION.
           CONFIGURATION                SECTION.
           SPECIAL-NAMES.
               COPY    "MSADO.def".
                       .
           DATA        DIVISION.
           WORKING-STORAGE              SECTION.
           
           77 hConnection               HANDLE OF Connection.
           77 hRecordset                HANDLE OF Recordset.
           77 ConnStr                   PIC X(256).
           77 WS-ConnStat               PIC S9(9).
           77 WS-RecCount               PIC 9(9).
           77 WS-String                 PIC X(1024).
           77 WS-Last                   PIC X(30).
           77 WS-First                  PIC X(30).
           PROCEDURE DIVISION.
           Main section.
           Main-001.
          *Create an instance of the Excel Application object.
               CREATE  Connection       OF ADODB
                       HANDLE           IN hConnection.
               Create  Recordset        OF ADODB
                       HANDLE           IN hRecordset.
               STRING  "Driver={Microsoft Access Driver (*.mdb)};"
                       "Dbq=apiv2db.mdb;"
                       "DefaultDir=F:\\APIV2\\DocExamples\\MSADO;"
                       "ReadOnly=False"
                       DELIMITED        BY SIZE INTO ConnStr.
               MODIFY  hConnection      @Open(ConnStr).
               INQUIRE hConnection      State IN WS-ConnStat.
               IF      WS-ConnStat      NOT = adStateOpen
                       GO TO            MAIN-900
                       END-IF.
          * This variant uses the connection as a basis for the selection
          *    MODIFY  hConnection      Execute("Select * from Contacts",
          *            WS-RecCount,     adCmdText)
          *            GIVING           hRecordset.
         
       
               MODIFY  hRecordset       MaxRecords = 100.
               MODIFY  hRecordset       @Open(
                       BY NAME Source   
                       "Select * FROM Contacts ORDER BY LastName",
                       BY NAME ActiveConnection hConnection,
                       BY NAME Options adCmdText).
               MODIFY  hRecordset       MoveFirst().
               INQUIRE hRecordset       EOF IN WS-ConnStat.
               PERFORM UNTIL            WS-ConnStat = -1
                                       
                       INQUIRE          hRecordSet
                                        fields::item("FirstName")::value
                                        IN WS-First
                                        fields::item("LastName")::value
                                        IN WS-Last
                       INITIALIZE       WS-String
                       STRING           WS-Last DELIMITED BY SPACE
                                        ", " DELIMITED BY SIZE
                                        WS-First DELIMITED BY SPACE
                                        INTO WS-String
                       DISPLAY          WS-String(1:62)
                       IF               WS-ConnStat NOT = -1
                                        MODIFY  hRecordset MoveNext()
                                        END-IF
                       INQUIRE          hRecordset EOF IN WS-ConnStat
               END-PERFORM.
               ACCEPT  OMITTED.
               MODIFY  hRecordset       @Close().
               MODIFY  hConnection      @Close().
           MAIN-900.   
          *Finish up.
        DESTROY hRecordset.
        DESTROY hConnection.
               GOBACK.
    D

    [Migrated content. Thread originally posted on 05 February 2009]

    Hello
    Is there a .def file that will allow us to import records to an Access 2007 .accdb database?

    Thanks
    Here is an example on accessing MS Access from ACUCOBOL-GT:

           IDENTIFICATION DIVISION.
           PROGRAM-ID. ExReadADO.
          *====================
          *
          * Copyright (c) 1996-2006 by Acucorp, Inc.  Users of ACUCOBOL
          * may freely modify and redistribute this program.
          *
          * The purpose of this application is to illustrate use of the MSADO
          * technology for database access
          *
           ENVIRONMENT DIVISION.
           CONFIGURATION                SECTION.
           SPECIAL-NAMES.
               COPY    "MSADO.def".
                       .
           DATA        DIVISION.
           WORKING-STORAGE              SECTION.
           
           77 hConnection               HANDLE OF Connection.
           77 hRecordset                HANDLE OF Recordset.
           77 ConnStr                   PIC X(256).
           77 WS-ConnStat               PIC S9(9).
           77 WS-RecCount               PIC 9(9).
           77 WS-String                 PIC X(1024).
           77 WS-Last                   PIC X(30).
           77 WS-First                  PIC X(30).
           PROCEDURE DIVISION.
           Main section.
           Main-001.
          *Create an instance of the Excel Application object.
               CREATE  Connection       OF ADODB
                       HANDLE           IN hConnection.
               Create  Recordset        OF ADODB
                       HANDLE           IN hRecordset.
               STRING  "Driver={Microsoft Access Driver (*.mdb)};"
                       "Dbq=apiv2db.mdb;"
                       "DefaultDir=F:\\APIV2\\DocExamples\\MSADO;"
                       "ReadOnly=False"
                       DELIMITED        BY SIZE INTO ConnStr.
               MODIFY  hConnection      @Open(ConnStr).
               INQUIRE hConnection      State IN WS-ConnStat.
               IF      WS-ConnStat      NOT = adStateOpen
                       GO TO            MAIN-900
                       END-IF.
          * This variant uses the connection as a basis for the selection
          *    MODIFY  hConnection      Execute("Select * from Contacts",
          *            WS-RecCount,     adCmdText)
          *            GIVING           hRecordset.
         
       
               MODIFY  hRecordset       MaxRecords = 100.
               MODIFY  hRecordset       @Open(
                       BY NAME Source   
                       "Select * FROM Contacts ORDER BY LastName",
                       BY NAME ActiveConnection hConnection,
                       BY NAME Options adCmdText).
               MODIFY  hRecordset       MoveFirst().
               INQUIRE hRecordset       EOF IN WS-ConnStat.
               PERFORM UNTIL            WS-ConnStat = -1
                                       
                       INQUIRE          hRecordSet
                                        fields::item("FirstName")::value
                                        IN WS-First
                                        fields::item("LastName")::value
                                        IN WS-Last
                       INITIALIZE       WS-String
                       STRING           WS-Last DELIMITED BY SPACE
                                        ", " DELIMITED BY SIZE
                                        WS-First DELIMITED BY SPACE
                                        INTO WS-String
                       DISPLAY          WS-String(1:62)
                       IF               WS-ConnStat NOT = -1
                                        MODIFY  hRecordset MoveNext()
                                        END-IF
                       INQUIRE          hRecordset EOF IN WS-ConnStat
               END-PERFORM.
               ACCEPT  OMITTED.
               MODIFY  hRecordset       @Close().
               MODIFY  hConnection      @Close().
           MAIN-900.   
          *Finish up.
        DESTROY hRecordset.
        DESTROY hConnection.
               GOBACK.
    D

    [Migrated content. Thread originally posted on 05 February 2009]

    Hello
    Is there a .def file that will allow us to import records to an Access 2007 .accdb database?

    Thanks
    Thanks for your help.
    My program works for Access 2003, but when I change my string command:

    STRING "Driver={Microsoft Access Driver (*.accdb)};"
    "Dbq=Pool Tables.accdb;"
    "DefaultDir=U:\\WorkingFiles;"
    "ReadOnly=False"
    DELIMITED BY SIZE INTO ConnStr.

    from .mdb to .accdb for Access 2007 my program no longer works
    D

    [Migrated content. Thread originally posted on 05 February 2009]

    Hello
    Is there a .def file that will allow us to import records to an Access 2007 .accdb database?

    Thanks
    Never mind. I figured it out. I had to download and run AccessDatabaseEngine.exe for Access 2007 from microsoft to set up the driver.
    D

    [Migrated content. Thread originally posted on 05 February 2009]

    Hello
    Is there a .def file that will allow us to import records to an Access 2007 .accdb database?

    Thanks
    Never mind. I figured it out. I had to download and run AccessDatabaseEngine.exe for Access 2007 from microsoft to set up the driver.

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement