Problème de connexion base access

Bonjour à tous,

Je réalise un petit soft en VB.net pour mettre à jour une BDD acces.

Il y a une partie création qui permet de créer de nouvelles marques ou types...

Voici le code qui sert à créer une nouvelle marque

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click   TextBox1.Text = UCase$(TextBox1.Text)   create_marque = TextBox1.Text   Connection.Open() cmd.Connection = Connection cmd.CommandText = "Select Id from Marques where Marque='" & create_marque & "'" dtReader = cmd.ExecuteReader()   If dtReader.HasRows = False Then dtReader.Close() cmd.CommandText = "INSERT INTO Marques (Marque) Values ('" & create_marque & "')" cmd.ExecuteNonQuery() MsgBox("La marque " & create_marque & " a bien été créée") cmd.CommandText = "Select Id from Marques where Marque='" & create_marque & "'" dtReader = cmd.ExecuteReader() dtReader.Read() create_marque_id = dtReader.Item("Id") dtReader.Close() Me.Hide() Else MsgBox("La marque " & create_marque & " existe déja") dtReader.Close() create_marque_id = 0 End If   Connection.Close() End Sub

---

La première fois que je l'excecute aucun soucis la marque est créée. Par contre lorsque je le réexécute pour créer une 2ème marque j'ai une erreur au niveau de la ligne :

Code:

---

Connection.Open()

---

L'erreur est la suivante

Citation:

---

L'exception OleDbException n'a pas été gérée
Aucune message d'erreur disponible, code de résultat : DB_SEC_E_AUTH_FAILED(0x80040E4D).

---

Ce qui m'est venu à l'esprit est que la connection n'avais pas étée fermée mais j'ai vérifié et elle est bien fermée à la fin de l'éxcécution...

Quelqu'un aurait une idée?
Merci

Salut,

Essaye un connexion.Dispose() après ton connexion.close().

Cordialement

Merci pour ta réponse mais cela ne marche pas...

Sinon ouvre ta connexion (ton Open) lorsque tu ouvre ta fenetre et pas au clique de ton bouton parfois sa pose quelque problème.

Donc en gros tu poque ton Open dans ton load et tu mets ton Close à la fermeture de l'application.

Citation:

---

Envoyé par jlm22

Sinon ouvre ta connexion (ton Open) lorsque tu ouvre ta fenetre et pas au clique de ton bouton parfois sa pose quelque problème.

Donc en gros tu poque ton Open dans ton load et tu mets ton Close à la fermeture de l'application.

---

Euh ouais, quitte à faire çà autant te faire une classe connexion avec un Singleton...

Merci Jnl22 j'ai voulu faire ca maisje ne trouve pas l'evennement pour la fermeture de la form.
J'ai testé

Code:

---

Private Sub Form5_Unload(ByVal Cancel As Integer)

---

et ca ne marche pas.

Quel évennement dois-je utiliser?

Merci

C'est l'évènement Form_Closing.

En l'utilisant comme cela

Code:

---

1 2 3

Private Sub Form5_Closing() Connection.Close() End Sub

---

Cela ne fonctionne pas.
Peux tu m'aider?

le problème vient de ta chaine de connexion, montre voir à quoi elle ressemble

s'il y a un mot de passe sur ta base, il faut le préciser dans la chaine de connexion

Je ne pense pas que cela vienne de la chaine puisqu'il arrive à se connecter au moins une fois.

Pour moi, il s'agit plutôt d'une connection mal fermer, non ? :?

Ce qui m'intrigue ce sont ces deux lignes là :

Code:

---

1 2 3

Connection.Open() cmd.Connection = Connection

---

Connection et cmd correspondent à quoi exactement dans ton code ?
J'ai l'impression que cmd est une propriété de classe ou une variable globale...
Si tu affectes Connection à cmd.Connection, es-tu sûr d'avoir le comportement attendu ?

le connection est la chaine spécifiant le provider, le user et le mot de passe, place le cmd.connection = connection avant ton Open() :roll: