Discussion :

[Alex35]

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]

[badrel]

Il faut ajouter une active connection, a la fin de votre requete ajouter vrgule puie montionen votre connection, c simple
Badr_Cool@yahoo.fr