1 2 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