Bonjour,
J'attaque une DB db2:
Set RsASHos = DBAS400.OpenResultset("select * from HOSPITA00L", rdOpenDynamic, rdConcurRowVer)
J'arrive a lire tous les champs sauf mon nouveau champs que j'ai ajouté récemment : HOVISI.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Dim RsASHos As rdoResultset
Set RsASHos = DBAS400.OpenResultset("select * from HOSPITA00L", rdOpenDynamic, rdConcurRowVer)
Do While Not RsASHos.EOF And Not FinProgramme And DansLesHeures
LastTimeExecute = Now
Set ClObj = New Cls_Objet
With ClObj 'DataHospi
.Reference = Trim(TestNULL(RsASHos!hosequ))
.Patient.NumNat = Trim(RsASHos!hodoss)
.Patient.Nom = Trim(TestNULL(RsASHos!honom))
.Patient.Prenom = Trim(TestNULL(RsASHos!hopren))
.Patient.DteNai = Trim(TestNULL(RsASHos!hodnai))
MsgBox CStr(RsASHos(41)) |
Je récupère bien toutes les données sauf MsgBox CStr(RsASHos(41)) ou RsASHos!HOVISI j'ai une erreur (ligne 21)
Erreur d'éxécution 40041
Collection object: impossible de trouver l’élément indiqué par le texte
Mais si je fais Set RsASHos = DBAS400.OpenResultset("select hovisi from HOSPITA00L", rdOpenDynamic, rdConcurRowVer) je retrouve bien ma donnée.
Est-ce qu'il y a une limitation au niveau des champs avec le rdoResultset ?
D'avance merci
Partager