Code de l'ajout
Résolu
sariiiita
Messages postés
5
Date d'inscription
dimanche 25 mai 2008
Statut
Membre
Dernière intervention
4 juin 2008
-
26 mai 2008 à 12:40
sariiiita Messages postés 5 Date d'inscription dimanche 25 mai 2008 Statut Membre Dernière intervention 4 juin 2008 - 26 mai 2008 à 12:48
sariiiita Messages postés 5 Date d'inscription dimanche 25 mai 2008 Statut Membre Dernière intervention 4 juin 2008 - 26 mai 2008 à 12:48
1 réponse
sariiiita
Messages postés
5
Date d'inscription
dimanche 25 mai 2008
Statut
Membre
Dernière intervention
4 juin 2008
26 mai 2008 à 12:48
26 mai 2008 à 12:48
voila mon code d'ajout mais ca marche pas ssvp qlq un m aide pour le corriger
Private Sub cmdajouter_Click()
Set cnx = New Connection
cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
cnx.ConnectionString = "Releve_Decisions.mdb"
cnx.Open
Set rs = New Recordset
rs.Open "Releve_des_decisions", cnx, adOpenDynamic
rs.AddNew
rs(1) = Cmbc.Text
rs(2) = txtdate.Text
rs(3) = txtdomain.Text
rs(4) = txtprojet.Text
rs(5) = txtaction.Text
rs(6) = txtqui.Text
rs(7) = txtquand.Text
rs(8) = txtsituation.Text
rs.Update
rs.Clear
rsc.MoveNext
End Sub
Private Sub cmdajouter_Click()
Set cnx = New Connection
cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
cnx.ConnectionString = "Releve_Decisions.mdb"
cnx.Open
Set rs = New Recordset
rs.Open "Releve_des_decisions", cnx, adOpenDynamic
rs.AddNew
rs(1) = Cmbc.Text
rs(2) = txtdate.Text
rs(3) = txtdomain.Text
rs(4) = txtprojet.Text
rs(5) = txtaction.Text
rs(6) = txtqui.Text
rs(7) = txtquand.Text
rs(8) = txtsituation.Text
rs.Update
rs.Clear
rsc.MoveNext
End Sub
