Bonjour,
J'ai un problème avec ma connexion à la base de données Access depuis VB.net.
J'utilise le code suivant :
et ça l'affiche l'erreur suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Try connexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mod_configuration.bdd_fichier connexion.Open() Catch ex As Exception Debug.Print("Connexion à la base de données impossible." & vbCrLf & vbCrLf & "Erreur : " & ex.Message) End Try
J'ai fait des recherches et cela parlait partout de mot de passe, mais ma base de données n'a pas de mot de passe, elle est préalablement créée avec :
Code : Sélectionner tout - Visualiser dans une fenêtre à part Erreur : Aucune message d'erreur disponible, code de résultat : DB_SEC_E_AUTH_FAILED(0x80040E4D).
Le code de création de la base en fait aucune erreur et le fichier est bien créé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Public Function creer_base_access() As Boolean 'OK Dim mdb_fichier As New ADOX.Catalog Try mdb_fichier.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mod_configuration.bdd_fichier) creer_base_access = True Catch Ex As System.Runtime.InteropServices.COMException creer_base_access = False MsgBox(Ex.Message) Finally bdd_fichier = Nothing End Try End Function
Merci d'avance pour votre aide
Bonne journée
Partager