Bonjour, voila j'aimerais a partir d'un formulaire pouvoir ajouter un nouvel enregistrement a ma base, au clic sur enregistrer je fais:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim rstenf As New ADODB.Recordset
Dim cmdAjoutEnf As New ADODB.Command
Call seconnecter
rstenf.Open "SELECT * FROM Enfant", cnx
cmdAjoutEnf.CommandText = "INSER INTO Enfant VALUES strmatecol, strmatvil, strmaten, strdatnais, strenfsex, strnom, strpre, stradresse, strcp, strville, strdatarr, strlieuarr, strdatdep, strlieudep, cla, niv "
cmdAjoutEnf.Execute , rstenf
rstenf.Update
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Public Sub seconnecter()
        cnx.ConnectionString = "C:\Documents and Settings\alee rou\Mes documents\action vb access\EcoleMDC.mdb"
        cnx.Provider = "Microsoft.Jet.Oledb.4.0"
        cnx.Open
End Sub
et la il me dit que Impossible d'utiliser cette connection pour cette operation, elle est fermée ou non valide dans ce contexte...

et ca plante a cette ligne :
cmdAjoutEnf.Execute , rstenf


Si quelqu'un connaissait la cause de ce pb...
Merci d'avance!
[/code]