Discussion :

[skaraa]

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

[François DORIN]

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

[skaraa]

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.