CodeItBetter Programming Another VB Programming Blog

How to export data from the current database to a back-up database using Access Application

Posted on January 5, 2009
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
'Database - How to export data from the current database to a back-up database using Access Application
Option Explicit
 
Dim appAccess As Access.Application
Dim dat As String
 
Sub BackUpDatabase()
    Set appAccess = New Access.Application
    dat = App.Path & "\BackUpDb.mdb"
 
    'Open and set the path for the current database
    appAccess.OpenCurrentDatabase App.Path & "\CurrentDb.mdb"
 
    'Creates a new table in the current database
    appAccess.DoCmd.RunSQL ("CREATE TABLE new_table (column1_name varchar, column2_name varchar)")
 
    'Populate the new table with the data selected from the old table in the same database
    appAccess.DoCmd.RunSQL ("INSERT INTO new_table SELECT column1_name, column2_name FROM old_table")
 
    'Export the new table from current database to Arhi table in the back-up database
    appAccess.DoCmd.TransferDatabase acExport, "Microsoft Access", dat, acTable, "new_table", "Test"
 
    MsgBox "Database created !"
 
    'Close the current database
    appAccess.CloseCurrentDatabase
 
    appAccess.Quit
End Sub
Filed under: Database Leave a comment
Comments (0) Trackbacks (0)

No comments yet.


Leave a comment


 

No trackbacks yet.