Bonjour,

J'ai un problème avec ma connexion à la base de données Access depuis VB.net.

J'utilise le code suivant :
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
et ça l'affiche l'erreur suivante :
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).
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
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
Le code de création de la base en fait aucune erreur et le fichier est bien créé.

Merci d'avance pour votre aide

Bonne journée