MOISE2000
Messages postés18Date d'inscriptionjeudi 3 mai 2007StatutMembreDernière intervention 5 avril 2008
-
12 sept. 2007 à 18:22
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
12 sept. 2007 à 18:31
Bonsoir
je vous demande m'aider parce que depuis deux semaines je fait le bouton ajouter .
Merci de votre réponse sur le null j'ai plus ce message mais je vous demande de me corriger ce code parce que le bouton ajouter ne marche pas , je fait une recherche :
numero, prenom, nom, date que j'avais enregistré sur des textbox dans la fiche patient pour prescrire l'ordonnance.
j'ai un groupe de controle de listbox donc je fait cliqué glissé sur le listbox odonnance pour prescrire l'ordonnance.
et cliquer glisser le nombre de boite pour prescrire nombre de boites sur un autre listbox.
et je clique sur le bouton ajouter pour ajouter les données dans la base de donnée access, j'utilise VB 6.0.
je voudrais enregistré dans la base access les données qui sont dans le listbox ordonnance et listbox nombre de boites.
Private Sub ajouter_Click()
Set recordsetEC = rsadh
On Error GoTo AddErr
rsadh.AddNew
Set bndadh.DataSource = rsadh
With bndadh
While Not rsadh.EOF
Set recordsetEC = rsadh
Set cn = New ADODB.Connection
Set bndadh = New BindingCollection
If Not rsadh.Fields("ordonnance") = vbNullString Then List1(0).AddItem rsadh.Fields("ordonnance")
If Not rsadh.Fields("boites") = vbNullString Then List2(0).AddItem rsadh.Fields("boites")
recordsetEC.MoveNext
Wend
AddErr:
MsgBox "Ajouter avec succés"
End With
End Sub