adodc.recordset.addnew

Question

Salut

j'ai un probleme de creation d'enregistrement

je valide par un bouton pour enregistrer
non seulemeni il cree l'enregistrement saisie mais aussi un enregistrement a blanc et supprime un enregistrement   VOICI le CODE

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key


Case "A"


If Text1.Text "" Or Text2.Text "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then


MsgBox "Veuillez Remplir toutes les cases!"


Exit Sub
End If


Adodc1.Recordset.AddNew


       
                
         Adodc1.Recordset.Update
         Adodc1.Recordset.MoveLast

end select
end sub

NHenry · Answer

Bonjour

Où tu fais l'enregistrement de tes valuers, car dans ton code, tu mets,  seulement un enregistrement vide.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

losc_cartouche · Answer

Deja tu n'as pas besoin de mettre :Adodc1.Recordset.MoveLast.
Et puis tu ne renseigne pas les champs à ajouter dans ta base..
genre: Adodc1.Recordset![Nom de ton champs] = text1.text

losc_cartouche · Answer

Deja tu n'as pas besoin de mettre :Adodc1.Recordset.MoveLast.
Et puis tu ne renseigne pas les champs à ajouter dans ta base..
genre: Adodc1.Recordset![Nom de ton champs] = text1.text

cs_zaatout · Answer

salut 

ca n'a pas marche

il cree l'enregistrement en ecrasant un autre

NHenry · Answer

Bonjour

Code VB utilisé ?

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

cs_zaatout · Answer

Bonjour
c regle : a l'ouverture de la forme j'ai fais un adodc1.recordset.addnew et les champs a blanc
 qd je valide (bouton valider) j'affecte les contenues des champs and Adodc1.Recordset.Fields(Xxxx).Value = TextXxx.Text
Adodc1.Recordset.Update
bye

Adodc.recordset.addnew

6 réponses

Votre réponse