Bonjour,
Dans mon programme je créé un fichier mdb grâceau code suivant :
Et lorsque cela se fait, il y a un fichier .ldb qui est là et qui ne s'en va pas. Quelqu'un pourrait me dire comment résoudre ce problème ???
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Public Function creer_base_access() As Boolean 'OK Dim mdb_fichier As New ADOX.Catalog Try If Not System.IO.Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & mod_configuration.application_nom & "\") Then System.IO.Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & mod_configuration.application_nom & "\") End If mdb_fichier.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mod_configuration.bdd_repertoire & mod_configuration.bdd_fichier) creer_base_access = True Catch Ex As System.Runtime.InteropServices.COMException creer_base_access = False 'MsgBox(Ex.Message) Finally mdb_fichier = Nothing End Try End Function
merci d'avance
Partager