Backup / Restore of Access Database - Visual Basic 4 / 5 / 6

8,127 Expert 4TB

This is a sample code for taking backup and restore of access database

Expand|Select|Wrap|Line Numbers

 
Dim DBTempSource As Database

Dim DBTempDestination As Database
 
Dim RecTempSource As Recordset

Dim RecTempDestination As Recordset
 
Sub MBackup()
 
Set FSO = CreateObject("Scripting.FileSystemObject")

On Error GoTo Errors

If OptBackup Then

    TxtRemarks = "Backup Started at " & Time

    TxtRemarks = TxtRemarks & vbCrLf & "Closing Connection ...!"

    GCnnGeneral.Close

    TxtRemarks = TxtRemarks & vbCrLf & "Checking Destination ...!"

    If GFileExists(TxtDestination) Then

        Kill TxtDestination

    End If
 
    TxtRemarks = TxtRemarks & vbCrLf & "Compacting Source ..."

    DBEngine.CompactDatabase TxtSource, TxtDestination, , , ";pwd=Debasis"

    TxtRemarks = TxtRemarks & vbCrLf & "Destination Created ...!"

    TxtRemarks = TxtRemarks & vbCrLf & "Connecting Database ...!"

    With GCnnGeneral

       .Provider = "Microsoft.Jet.OLEDB.4.0"

       .Properties("Jet OLEDB:Database Password") = "Debasis"

       .Mode = adModeReadWrite

       .Open App.Path & "\" & Trim(GFileName) & ".MDB"

    End With

    'GFileName = Trim(LstDatabase.Text)

    TxtRemarks = TxtRemarks & vbCrLf & "Backup Created at " & Time

    MsgBox "Backup Created."

    TxtSource = GEmptyStr

    TxtDestination = GEmptyStr

ElseIf OptRestore Then

    'GCnnAccts.Close

    TxtRemarks = "Restoring Data Started at " & Time

    GCnnGeneral.Close

    TxtRemarks = TxtRemarks & vbCrLf & "Connection Closed ...!"

    Kill TxtDestination

    TxtRemarks = TxtRemarks & vbCrLf & "Destination Checked ...!"

    Call FSO.CopyFile(TxtSource, TxtDestination, True)

    TxtRemarks = TxtRemarks & vbCrLf & "Data Restored ...!"

    With GCnnGeneral

       .Provider = "Microsoft.Jet.OLEDB.4.0"

       .Properties("Jet OLEDB:Database Password") = "Debasis"

       .Mode = adModeReadWrite

       .Open App.Path & "\" & Trim(GFileName) & ".MDB"

    End With

    TxtRemarks = TxtRemarks & vbCrLf & "Connection Complete ...!"

    TxtRemarks = TxtRemarks & vbCrLf & "Data Restored at " & Time

    MsgBox "Data Restored."

End If
 
Exit Sub

Errors:

    MsgBox "[ErrNo.: " & Err.Number & "] " & Err.Description

End Sub
 
Private Sub CmdBackup_Click()

If Trim(TxtSource) = GEmptyStr Then

    MsgBox "Source Filename Empty."

    Exit Sub

End If
 
If Trim(TxtDestination) = GEmptyStr Then

    MsgBox "Destination Filename Empty."

    Exit Sub

End If
 
If OptBackup Then

    If Not GFileExists(TxtSource) Then

        MsgBox "Source File Does Not Exist! Please Contact Program Vendor."

        Exit Sub

    End If

    If GFileExists(TxtDestination) Then

        If MsgBox("Destination File Already Exists! Do you Want to Replace the File?", vbYesNo + vbQuestion) = vbNo Then

            Exit Sub

        End If

    End If

ElseIf OptRestore Then

    If Not GFileExists(TxtSource) Then

        MsgBox "Source File Does Not Exist! Check Filename and Path."

        Exit Sub

    End If

End If

Call MBackup

End Sub
 
Private Sub CmdDestinationSearch_Click()

If OptBackup Then

    CDOpen.DefaultExt = "Bak"

    CDOpen.FileName = "Temp.Bak"

    CDOpen.ShowSave

    TxtDestination = CDOpen.FileName

Else

    TxtDestination = Replace(App.Path & "\" & Trim(GFileName) & ".MDB", "\\", "\")  'GFileName

End If

End Sub
 
Private Sub CmdExit_Click()

Unload Me

End Sub
 
Private Sub CmdSourceSearch_Click()

If OptBackup Then

    TxtSource = Replace(App.Path & "\" & Trim(GFileName) & ".MDB", "\\", "\")    'GFileName

Else

    CDOpen.DefaultExt = "Bak"

    CDOpen.FileName = "Temp.Bak"

    CDOpen.ShowOpen

    TxtSource = CDOpen.FileName

End If

End Sub
 
Private Sub Form_Resize()

Me.Left = (FrmBackground.Width - Me.Width) / 2

Me.Top = (FrmBackground.Height - Me.Height) / 2

End Sub
 
Private Sub OptAll_Click()

FraPart.Visible = False

End Sub
 
Private Sub OptBackup_Click()

CmdBackup.Caption = OptBackup.Caption & " &File"

TxtRemarks = GEmptyStr

End Sub
 
Private Sub OptPart_Click()

FraPart.Visible = True

DtpFrom = Format(DateAdd("d", 7, GTransactDate), "dd/MMM/yyyy")

DtpTo = Format(GTransactDate, "dd/MMM/yyyy")

End Sub
 
Private Sub OptRestore_Click()

CmdBackup.Caption = OptRestore.Caption & " &File"

TxtRemarks = GEmptyStr

End Sub

NOTE:--Users can customize the above code by adding / altering / removing the name of the controls and other parts of the code.

Mar 17 '08 #1

Subscribe Post Reply

15255

make me rain

Thanks for replay.
but this code not explaining the main objective of closing the data base
dim dbs of database
set dbs = "c:\dbsmdb"
like dbs.close
that means i trying to close an instance of MS access opened at address at "c:\dbsmdb"
please advise

Nov 5 '08 #2

Similar topics

MYSQL Backup & Restore using PHP ?

by: James | last post by:

HI, I'm looking for a script that will allow users/admins to have a one click backup solution for a MYSQL Database.. 'BACK DATABASE' button, click and its done... The a restore option, that...

PHP

Restore a remote backup

by: emmexx | last post by:

I want to restore a huge database into my workstation. The size of the backup file is more than 6 GB and I don't have enough space on my HD for both the database and the backup file. So I put the...

Microsoft SQL Server

Backup / Restore Question - MSDE

by: Tim Morrison | last post by:

MSDE2000 I have an application in which I am running a TSQL command of BACKUP DATABASE and RESTORE DATABASE for the backup and restore commands for my application. For testing purposes, i did the...

Microsoft SQL Server

[?]Restore and Backup problem

by: Spieg | last post by:

I've a program with VB6 working with SQLServer 2000. I have a Central Station with the program runnin with full prvileges and that can perform all the actions on the DB. There are also some...

Microsoft SQL Server

SQL Backup procedures...

by: gcetti | last post by:

Can anyone recommend backup procedures for a SQL Server/MSDE product? We have upgraded our program from Access to SQL & before we could just tell our customers what .mdb files to include on their...

Microsoft SQL Server

db2 backup, StorageManager

by: Eric Herber | last post by:

I've a question regarding db2 (V8.1) and database backups going to a storage manager like TSM for example. As I can see in the storage manager if I backup the complete database over the TSM API...

DB2 Database

backup/restore nTs data

by: Hardy | last post by:

hi gurus, now I have to backup and restore a 8 T size db2 database. from two s85 to two 670. the partitions,tablespaces of the db should be redesigned then I plan to use redirected restore. but...

DB2 Database

FILEGROUP BACKUP/RESTORE

by: raj.raghavan | last post by:

Hi, I have a database were all the indexes are in a seperate filegroup a few large tables are in a seperate filegroup. We take backup at different times and I have backup of primary, two filegroup...

Microsoft SQL Server

What is ONLINE BACKUP intended for ? Is it fake feature ?

by: Konstantin Andreev | last post by:

Hello. Some time ago I asked in this conference, - How to use an ONLINE BACKUP to restore database onto another system? - but got no answers. Therefore I can conclude it is not possible. But......

DB2 Database

Media Error - while restoring backup from Tape

by: Divakar | last post by:

Hi All, We are trying to restore a backup that we took last night on a fresh new Tape. The backup was successful but the restore is failing with the following error: db2 =restore db gpiecuk...

DB2 Database

Looking to do Android software development, any suggestions? Is flutter better?

by: nemocccc | last post by:

hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?

General

How to build RAID in BIOS?

by: Hystou | last post by:

There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...

Computer Hardware

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...

General

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...

General

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...

Microsoft Access / VBA