Back up

[mclueless]

I am using vb6 and access and making an accounting software. How to code for back up...Pleae give me some idea

[jagged]

I am using vb6 and access and making an accounting software. How to code for back up...Pleae give me some idea

Just copy the file to another directory or with another when your program exits, after you've closed all connections to the database...

FileCopy app.path & "\mydb.mdb", app.path & "\mydb_backup.mdb"

or use the FileSystemObject

[Killer42]

We often have questions here asking "how do I do a backup?". But the question is not as simple as it seems.

The first thing to do is work out what sort of backup strategy you want to follow. Things like what sort of backup (copy a whole database, copy selected records, incremental backup, etc etc), how often, where from, where to, how many copies, and so on. The technical details of how to do it are a comparitively minor consideration. The "where, why, how often" and so on will depend on the business, the type of data, the frequency of updates, and all sorts of factors.

[debasisdas]

A couple of months back i have posted a reply to such a question with VB code . Try to find that .

[vinodkumarrao]

Hi,

The above code will show an error if the mdb you are trying to copy is opened ... You can try the below code which allows copying the mdb file though it is open...

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
 
 
Private Sub Command1_Click()
Dim lngResult As Long
    Dim lngError As Long
    Dim strSource As String
    Dim strTarget As String
 
    strSource = "C:\test\1\Emp.mdb"
    strTarget = "C:\test\1\2\Emp.mdb"
    lngResult = CopyFile(strSource, strTarget, lngError)
    MsgBox "Succesfully Copied to - C:\test\1\2"
If Err Then
MsgBox "Cannot copy", vbCritical
 
End If
End Sub