Bonjour,

J'attaque une DB db2:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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