ACC: How to Import Several dBASE Databases at Once (1.x/2.0)
Many new Microsoft Access users want to import data immediately from thesystems they are currently using. The Import dialog box in MicrosoftAccess enables you to import one table at a time, which usually issufficient. However, if you have numerous tables to import, or if you wantto import multiple tables regularly, this process enables you to do somore quickly.
This article assumes that you are familiar with Access Basic and withcreating Microsoft Access applications using the programming toolsprovided with Microsoft Access. For more information about Access Basic,please refer to the "Introduction to Programming" manual in MicrosoftAccess version 1.x, or the "Building Applications" manual, Chapter 3,"Introducing Access Basic" in version 2.0.
The batch table lists the tables that you want to import. The Access Basicprocedure reads the table and imports each foreign table listed there. Tocreate the table and the Access Basic procedure, follow these steps:
- Create a table called Batch Import with the following structure:
Field name Type Length -------------------------------- Source Directory Text 50 Source Database Text 50 Imported Name Text 50 Type of Table Text 50
- Enter information in the new Batch Import table about the tables you want to import. You should fill out the fields in the Batch Import table 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 after 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.
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
- Create a new module, and type the following code.
NOTE: In the following example, an underscore (_) at the end of a line is used as a line-continuation character. Remove the underscore from the end of the line when re-creating this example.
Sub BatchImport () Dim B_DB As Database, B_TBL As Table Set B_DB = CurrentDB() Set B_TBL = B_DB.OpenTable("Batch Import") DoCmd Hourglass True B_TBL.MoveFirst Do Until B_TBL.EOF DoCmd TransferDatabase A_IMPORT, B_TBL![Type of Table], _ B_TBL![Source Directory], A_TABLE, B_TBL![Source Database], _ B_TBL![Imported Name], False B_TBL.MoveNext Loop DoCmd Hourglass False End Sub
- Import the foreign databases as follows:
- Open a module.
- From the View menu, choose Immediate Window.
- Type the following command, and then press ENTER:
dBASE III, dBASE III PLUS, and dBASE IV are manufactured by BorlandInternational, Inc., a vendor independent of Microsoft; we make nowarranty, implied or otherwise, regarding the performance or reliabilityof these products.
Article ID: 88764 - Last Review: 10/14/2013 17:49:27 - Revision: 2.0
- kbnosurvey kbarchive kb3rdparty kbhowto KB88764