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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
| Sauvegarde d'une base de données
Public Function backupBase(ByVal baseASauvergarder As String, ByVal fichierSauvegarde As String) As Boolean
' baseASauvergarder : base de données que l'on souhaite sauvegarder '
fichierSauvegarde : chemin complet de la sauvegarde, par exemple: "c:\maSauvegarde.bak"
Dim etatSauvegarde As Boolean Try Dim monServeur As New Server(Environment.MachineName)
monServeur.ConnectionContext.LoginSecure = False
monServeur.ConnectionContext.Login = "login_sqlServer"
monServeur.ConnectionContext.Password = "password_sqlServer"
' Instanciation d'un objet SMO.Backup qui va nous permettre de réaliser notre backup
Dim maSauvegarde As New Backup
' Définition du type d'action de sauvergarde
maSauvegarde.Action = BackupActionType.Database
' Base de données à sauvegarder '
maSauvegarde.Database = nomBaseBackup
maSauvegarde.Database = baseASauvergarder
' Choix du périph et de la destination de la sauvegarde
maSauvegarde.Devices.AddDevice(fichierSauvegarde, DeviceType.File)
' Réalisation de la sauvegarde
maSauvegarde.SqlBackup(monServeur) etatSauvegarde = True
Catch ex As SmoException
etatSauvegarde = False
Response.Write(ex.Message)
End Try
Return etatSauvegarde
End Function |
Partager