Ecrire dans une base de données Access (2010)

Bonjour à tous,

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

Code:

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 :

Citation:

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

Bonjour,

Il faut ouvrir la connexion via cn.Open avant de l'utiliser, et surtout à la fin, il faut penser à la fermer avec cn.Close (sans cela, tu peux vite te retrouver avec l'impossibilité d'ouvrir de nouvelles connexions).

Super Merci

En fait a force de chercher le pourquoi de mon souci le cn.open avait disparu.
J'avais un problème de quote également.