| 12
 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