ACC: How to Import Several dBASE Databases at Once 95/97

MORE INFORMATION

1. Create a table called Batch Import with the following structure:

         Table: Batch Import
         ----------------------------
         Field Name: Source Directory
            Data Type : Text
            Field Size: 50
         Field Name: Source Database
            Data Type : Text
            Field Size: 50
         Field Name: Imported Name
            Data Type : Text
            Field Size: 50
         Field Name: Type of Table
            Data Type : Text
            Field Size: 50
   						

2. Enter information in the new Batch Import table about the tables that you want to import. The fields in the Batch Import table should be filled out as follows:
   
   
   • Source Directory: This is the full path for the location of the foreign database file (for example, C:\dBase).
   • Source Database: This is the name and extension of the dBASE database you want to import (for example, Customer.dbf).
   • Imported Name: This is the name you want the table to have once it is imported into Microsoft Access (for example, Customers).
   • Table Type: This can be either dBASE III or dBASE IV. Specify dBASE III for both dBASE III and dBASE III PLUS databases.
   For example, to import a dBASE IV database called Employee.dbf from the C:\dBase4 directory and a dBASE III database called Orders.dbf from the D:\dBase3\Data directory, you would fill out the fields in the Batch Import table as follows:

         Source Directory   Source Database  Imported Name   Table Type
         --------------------------------------------------------------
         C:\dBase4          Employee.dbf     Employee Table  dBASE IV
         D:\dBase3\data     Orders.dbf       Orders Table    dBASE III
   						

3. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit

4. Type the following procedure:

         Function BatchImport() As Boolean
            On Local Error GoTo BatchImport_Err
            Dim MyDB As DATABASE, MyTbl As Recordset
            Set MyDB = CurrentDb()
            Set MyTbl = MyDB.OpenRecordset("Batch Import", dbOpenTable)
            DoCmd.Hourglass True
            MyTbl.MoveFirst
            Do Until MyTbl.EOF
               DoCmd.TransferDatabase acImport, _
                MyTbl("Type of Table"), _
                MyTbl("Source Directory"), _
                acTable, _
                MyTbl("Source Database"), _
                MyTbl("Imported Name"), _
                False
               MyTbl.MoveNext
            Loop
            MyTbl.Close
         BatchImport_End:
            DoCmd.Hourglass False
            Exit Function
         BatchImport_Err:
            MsgBox Err.Description
            Resume BatchImport_End
         End Function
   						

5. To test this function, type the following line in the Debug window, and then press ENTER.

   ?BatchImport()

   Note that the pointer becomes an hourglass and remains so until all of your databases are imported. This process may take several minutes, depending on the size of the databases.