Backup an access database

[S.R.SENTHUJAN]

hi i want to sql database backup through the vb.net code.

[Saikalyankumar]

You, refer to this coding. which is written in VB.net for database backup

Dim bkpDBFull As New Backup()
' Specify whether you want to back up database or files or log 

bkpDBFull.Action = BackupActionType.Database
' Specify the name of the database to back up 

bkpDBFull.Database = myDatabase.Name
' You can take backup on several media type (disk or tape), here I am
' * using File type and storing backup on the file system 

bkpDBFull.Devices.AddDevice("D:\AdventureWorksFull.bak", DeviceType.File)
bkpDBFull.BackupSetName = "Adventureworks database Backup"
bkpDBFull.BackupSetDescription = "Adventureworks database - Full Backup"
' You can specify the expiration date for your backup data
' * after that date backup data would not be relevant 

bkpDBFull.ExpirationDate = DateTime.Today.AddDays(10)

' You can specify Initialize = false (default) to create a new 
' * backup set which will be appended as last backup set on the media. You
' * can specify Initialize = true to make the backup as first set on the
' * medium and to overwrite any other existing backup sets if the all the
' * backup sets have expired and specified backup set name matches with
' * the name on the medium 

bkpDBFull.Initialize = False

' Wiring up events for progress monitoring 

bkpDBFull.PercentComplete += CompletionStatusInPercent
bkpDBFull.Complete += Backup_Completed

' SqlBackup method starts to take back up
' * You can also use SqlBackupAsync method to perform the backup 
' * operation asynchronously 

bkpDBFull.SqlBackup(myServer)

and the code for some methods used in the above coding is

Private Shared Sub CompletionStatusInPercent(sender As Object, args As PercentCompleteEventArgs)
	Console.Clear()
	Console.WriteLine("Percent completed: {0}%.", args.Percent)
End Sub
Private Shared Sub Backup_Completed(sender As Object, args As ServerMessageEventArgs)
	Console.WriteLine("Hurray...Backup completed.")
	Console.WriteLine(args.[Error].Message)
End Sub
Private Shared Sub Restore_Completed(sender As Object, args As ServerMessageEventArgs)
	Console.WriteLine("Hurray...Restore completed.")
	Console.WriteLine(args.[Error].Message)
End Sub

[sandeepparekh9]

may be this will help

http://www.daniweb.com/software-development/vbnet/threads/127621

and if above doesnt help then check the below one

http://social.msdn.microsoft.com/Forums/en/vbgeneral/thread/0dacf318-24fa-4962-91b5-69a246c6684d