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
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager