réutilisation des données

Question

Bonjours a tous, 
voila j'ai un petit pb :
dans une fenetre j'ajoute des donnée a une base de donnée 
ces données on toute comme points commun le champs Ndp
ces donnée son ajouter a partire de Fenetre 1 de la manierre suivantes :

    RS.AddNew
    RS("Ndp") = Label1.Caption
    RS("nom") = nom(i)
    RS("prenom") = prenom(i)
    RS("Ddn") = naissance(i).Caption
    
    RS.Update
    End If
    Next
    Unload ajcarr
    Load ajcarr
    ajcarr.Label1.Caption = Label1.Caption
    ajcarr.Visible = True
    Unload Me
    
    voila l'orsque je vais dans la fenetre ajcarr et que je compte le nombre d'enregistrement en fonction de  Ndp 
sa me met un chiffre erroner ( en général -1)
hors quand j'exécute le programme pas a pas pas de problem 

( extréais du code de la fenetre ajcarr: )
Private Sub Label1_Change()
....
  Set RS = New Recordset
  
   sqlstr = "select * from enfants where [Ndp]= " & Label1.Caption
  sqlstr = sqlstr & " ;"
   RS.Open sqlstr, db, adOpenStatic, adLockOptimistic
  ' RS.Update

Label13.Caption = Label13.Caption & RS.RecordCount

...

end sub

et c'est sa: RS.RecordCount qui pause pb
je me suis dit que vue que au pas a pas sa fonctionner peut etre devraije ajouter une pause ( vous pouvais voir que j'ai essayer de faire un update mais sa ne fonctionne pas non plus )

enfin si vous avez des solution ce serait simpat de m'expliquer pourquoi mon RS.record count ne fonctionne pas 

a oui cette procedure ce trouve dans

conucius diait : "On ne tue pas une mouche avec un canon"
moi je dit " ON EN TUE DIX "

cs_EBArtSoft · Answer

RecordCount ne fonctionne que si le pointeur d'enregistrement pointe sur la fin de la table ex:

Rs.MoveLast
Msgbox Rs.RecordCount

@+

E.B.

cs_liquide · Answer

salut,
Non, le RecordCount peut renvoyer le nombre voulu même si il n'y a pas de MoveLast, if faut juste paramétrer correctement la connection.


RS.Open sqlstr, db, adOpenKeyset, adLockBatchOptimistic, -1
Label1.caption = RS.RecordCount


Bonne prog, poele_a_frire@hotmail.com
liquide

Réutilisation des données

2 réponses

Discussions similaires