Bonjour à tous,

J'arrive à lire une Table Access mais je n'arrive pas à insérer un nouvel enregistrement.

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
   Dim cn As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\BaseAccess.accdb")
 
    Function Insérer(ByVal val As String)
 
        Dim Requete As String = "Insert into T_Test(NOM) values (bb)"
        Dim Commande As New OleDbCommand(Requete, cn)
        Try
            Commande.ExecuteNonQuery()
            MsgBox("Fiche correctement crée", vbOKOnly, "Confirmation")
        Catch ex As Exception
            Console.WriteLine(ex.Message)
            MessageBox.Show(ex.ToString & "Erreur...", "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 
 
    End Function
Voici le message d'erreur que j'ai :
ExecuteNonQuery nécessite une Connection ouverte et disponible. La connexion est actuellement fermée.
Savez vous pourquoi il me dit que la connexion est fermée?

Merci pour votre aide