Test création base ACCESS
Bonjour
Je désire créer une base de données au 1er lancement de l'appli, je test donc si l'appli existe ou pas mais le code reconnait quand l'appli n'est pas crée mais pas l'inverse :cry:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
| Try
If (("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Application.Info.DirectoryPath & "\Film.accdb") Is Nothing) Then
MsgBox("Base existante")
Else
MsgBox("Base inexistante")
MsgBox("Création de la base de données : FILM", MessageBoxIcon.Information, MessageBoxButtons.OK)
db.Create("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Application.Info.DirectoryPath & "\Film.accdb")
MsgBox("Base créer")
End If
Catch
End Try |
Merci