Database Search

TechHome

• Access 2000 Advanced DML Transactions
• Access Recordset to CSV File UDF
• Access RunCommand Constants
• ACCESS Table or Query Exists
• Access to Excel via SQL
• Access Visible Problem
• Adding Fields to an Existing Access Table
• Advanced DML Transactions
• Advanced SQL in the Jet 4.0 Provider Example
• Another OLE with Access Example
• Automating Access Tutorial
• Check if Access Table Exists
• Commit Rollback Begin Trans Updatebatch
• Control Access Forms
• Count Access Records
• Csv to Access
• Dealing with ACCESS 97 Field Types
• execute a macro in Access
• Execute a Public function in Access
• Export Access Report in Choice of Formats
• Export MDB to Flat File
• Find Read and Insert Data in Access
• Gather ACCESS Table and Column Information Into Excel
• Get Access Version That Created MDB File
• Get Column Data From an Access Database
• Get Record Count
• How to Use the OpenTable method
• Launch Access Macro from Commandline
• Loop thru a recordset in Access
• Office 2003 Macro Security Issue
• OLE and Access
• OLE Import a table into Access
• OLE Import Table into Access
• Open Access DB with DAO
• Pack an Access Database
• Query and Export Data from Microsoft Access
• Read Write Delete Tables from Access DB
• Repair MDB
• Retrieve Data in Access
• SQL UPDATE Fails with Access
• UDF to Return Record Count
• Updating Table From Filtered Recordset
• Ways to Get Data from and Access file without Access installed

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

OLE Import Table into Access

;   setup constants...

acTable = 0  
acImport = 0

SourceMDBName        = "C:\Data\Access\LogFile.mdb"
DestinationMDBName   = "C:\Data\Access\Naruni.mdb"

SourceTableName      = "Log Table"
DestinationTableName = "New Log Table"

;   open access...
accessDB = ObjectOpen("Access.Application")
ADB = accessDB.Application
dbname = DestinationMDBName
ADB.OpenCurrentDatabase(dbname)
ADB.Visible = @FALSE
ADB.UserControl = @FALSE
;   reference the DOCmd method...
ADBCmd = ADB.docmd

;   set up the ref to tabledefs collection...
db = accessDB.currentdb
tdefs = db.tabledefs
tlist = @FALSE
;   loop thru the table defs...
For t = 0 To tdefs.count-1
   ; setup the ref for this table in the collection...
   table = db.tabledefs(t)
   ;   check to see if the table already exists...
   If table.name == DestinationTableName
      tlist = @TRUE
      Break
   EndIf
   ObjectClose(table)
Next

;   if table exists delete it...
If tlist Then ADBCmd.DeleteObject(acTable, DestinationTableName)
;   this will copy the whole table from the source to the destination...
ADBCmd.TransferDatabase (acImport, "Microsoft Access", SourceMDBName, acTable, SourceTableName, DestinationTableName)

Drop(tlist)
ObjectClose(tdefs)
ObjectClose(db)
ObjectClose(ADBCmd)
ObjectClose(ADB)
ObjectClose(accessDB)

Message("Debug", "All Done")

Exit

Article ID:   W16100

File Created: 2004:03:30:15:42:52

Last Updated: 2004:03:30:15:42:52