| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 
 |  
 
 
'Détermintaion du fichier de sauvegarde en fonction de son emplacement et de la date actuelle.
fichierSauvegardeBDD = pathFichier & "\backup_" & Now.Date.ToString("yyyy-MM-dd") & ".sql"
 
'Vérification de l'existence du fichier. Si il existe, suppression.
If IO.File.Exists(fichierSauvegardeBDD) Then
	IO.File.Delete(fichierSauvegardeBDD)
End If
 
 
'Sauvegarde de la base en cours
Try
	Dim con As String = "server=LeNomDeTonServeur ;user=TonPseudoDeConnexion ;pwd=TonMotDePasse;database=TonNomDeBaseDeDonnées"
	Dim mb As New MySqlBackup(con)
 
	mb.ExportInfo.FileName = fichierSauvegardeBDD
	mb.Export()
Catch ex As Exception
	msgbox(ex.Message)
End Try | 
Partager