Discussion :

[Pentos60]

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 :

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Connection.Open()

L'erreur est la suivante

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

[jlm22]

Salut,

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

Cordialement

[Pentos60]

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

[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.

[Gurdil le nain]

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...

[Pentos60]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Form5_Unload(ByVal Cancel As Integer)

et ca ne marche pas.

Quel évennement dois-je utiliser?

Merci