Develop automatic backup database applications using ASP. NET or VB. NET

'Back Up the database

'Absolute path of backupdataname database storage

Function backupdata (byval backupdataname as string) as string

Dim conn as new sqlclient. sqlconnection (modconn. getconn)

Dim myselectquery as string = "backup database popcrm to disk = '" & backupdataname &"'"

Dim myreader as sqlclient. sqldatareader

Dim cmd as new sqlcommand (myselectquery, Conn)

If conn. State = connectionstate. Closed then conn. open ()

Try

Cmd. executenonquery ()

Backupdata = ""

Catch exsql as sqlexception

If exsql. Number = 3201 then

Backupdata = "Enter the storage path of the backup file correctly! "

Else

Backupdata = exsql. Message

End if

Catch ex as exception

Backupdata = ex. Message

End try

Cmd. Connection. Close ()

Cmd. Dispose ()

Conn. Dispose ()

End Function