GesFine

Code : Tout sélectionner

 Private Sub TSI_ReinitDB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSI_ReinitDB.Click

        If InitialiseDB() Then
            'la fonction vérifie que le chemin d'emplacement de la Bdd existe dans le registre et qu'un fichier existe à ce chemin.
            ' si False, la fonction crée la clé de registre et crée une Bdd vierge
            If Not IsDBValid(AppDBVersion:=VERSION_BDD) Then
                ' Vérifie si la Bdd de l'utilisateur est valide.
                ' Sinon, importe la Bdd de l'utilisateur dans la nouvelle structure
                ImportUserDB()
            End If
        End If
 End Sub