(VB 6) Mettre a jour un data report

Question

Comment faire pour mettre a jour un état créé sous data report, en liaison avec une base de donnée qui elle est correctement mise a jour.
Actuellement, lors de l'execution du programme, l'on a beau mettre a jour le contenu de la base de donnée (en supprimant l'enregistrement precedent et en mettant un nouveau) l'état n'est pas mis a jour, et ce jusqu'a la prochaine éxécution d'un programme.

Je précise que le data report est lié a la base de donnée par un data environement.

Merci de votre aide

ApprentiEnDetresse · Answer

Le datareport utilise les infos déjà chargé en mémoire et ne réexcute pas la connexion via le data environement donc il faut forcer cette connection pour charger les données en mémoire vive. Voila l'explication physique.

En ce qui concerne le code il faut intégrer la ligne suivante dans la procédure ou tu lance ton datareport:

DataEnvironnement1.rsMonRecordset.Requery
DoEvents
si ca marche toujours pas essaye:

Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)
While DRMonRecordset.AsyncCount > 0 
DoEvents 
Wend

ps: merci à sebcfun pour cette partie de code qui fonctionne à merveille.
Je ne l'ai pas trouvé toute seule.

Voila et bon developpement

mssahrani · Answer

Cela est du que vous travaillez toujours avec la m&#234;me image de votre base. ADO ne voit pas la n&#233;cessit&#233; de r&#233;interroger la base de donn&#233;es afin d'optimiser les &#233;changes. Il faut donc le forcer. Pour cela, dans la proc&#233;dure qui appele votre DataReport, ajoutez la ligne suivante :

****************************************************


DataEnvironnement1.rsMonRecordset.Requery
DoEvents
*************************************************


Ca devrait marcher maintenant. Dans certains cas toutefois, si deux interrogations sont trop rapproch&#233;s, il faut attendre qu'ADO ai fini son travail &#224; la fermeture du DataReport. Pour &#233;viter cela, dans l'&#233;v&#232;nement QueryClose de vtre DataReport, ajoutez le code suivant :


Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)
While DRMonRecordset.AsyncCount > 0 
     DoEvents 
Wend
End Sub 


Et maintenant, ca devrait marcher &#224; tous les coups !
repond moi

elmagnifica22 · Answer

data environement /vB6????

(VB 6) Mettre a jour un data report

3 réponses

Discussions similaires