Refresh DbGrid trop lent ?

Version imprimable

Je suis en train de développer une application (sous VB5 =/ ) de gestion des besoins de formation pour mon entreprise, mais je me heurte à un problème vraiment pénible.

J'utilise une dbgrid qui affiche deux champs (de deux tables différentes) connectée à un contrôle data.

J'arrive sans problèmes à mettre à jour les données dans la base de données mais ces modifications ne s'affichent dans la dbgrid que si je change de page et reviens dessus.
Le système fonctionne également lorsque j'éxecute le compilateur en mode pas-à-pas ... ce qui indique bien que mon code marche, pourtant la mise à jour du dbgrid ne se fait pas en éxecution normale... ce qui me pousse à me demander si ces refresh ne prennent pas une certaine durée car je trouve extrêmement bizzare le fait que tout fonctionne normalement en pas-à-pas.

J'ai tenté avec les propriétés et méthodes : .refresh, .recordset.requery, .updaterecords... mais rien n'y fit

un petit aperçu du code :.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 (Dbg_NvoRang <= dbGrid) (DonneesRang <= Data) SQL2 = "Select Agents.NomAgent,Rangs.NomRang From Agents,Rangs Where Agents.NumRang=Rangs.NumRang And Agents.NumNiveau=" + Str(Me.Txt_NumNiveau.Text) + " And Agents.NumSecteur=" + Str(Me.Txt_NumGroupe.Text) + ";" parametre_data SQL2 'appele la procédure initialisant le contrôle data mais normalement inutile puisque le data a déjà été initialisé Me.Dbg_NvoRang.Refresh Me.DonneesRang.UpdateControls Me.DonneesRang.Refresh Me.Cbx_NvoRang.Text = "" Me.Dbg_NvoRang.ClearFields Me.Dbg_NvoRang.ReBind
Si quelqu'un peut me prêter main forte ça ne sera pas de refus =)

19/06/2006, 15h11
zazaraignée

Salut

La propriété AutoRedraw de la Form est-elle à True ?
19/06/2006, 15h16
vincent magnin
Non elle ne l'étais pas, mais en changeant ça ne change rien.
De plus, je me suis aperçu d'une chose, la dbGrid se met donc à jour quand je change de page, quand j'execute le projet en pas à pas, mais également quand je tente de faire les modifications plusieurs fois de suite.
J'ai crée un évènement sur clic sur le formulaire, et la dbgrid se met à jour après plusieurs (voire de nombreux clics).

J'ai même mis une boucle "while" qui boucle tant que le champ que j'ai voulu modifier n'est pas changé par le refresh de la dbgrid ...
Je trouve cette partie un peu "bourrine" mais ça fonctionne à peu près puisque la dbgrid se refresh à peu près au 5eme passage dans la boucle, mais continue de boucler sans arrêt ce qui pose un lèger souci
Code:

1 2 3 4 5 6 Me.Dbg_NvoRang.Col = 1 While Me.Dbg_NvoRang.Text <> nomrang 'qui est le nouveau nom du rang Me.DonneesRang.Refresh DoEvents Wend
Grosso modo la dbGrid se met à jour normalement qu'une fois sur quatre lorsque je lance un quelconque évènement ... je suis complètement perdu =(
19/06/2006, 15h26
zazaraignée

Désolée, je travaille peu avec les DataGrid (ou DBGrid... ), alors je n'ai pas d'idées pour le moment. Je passe la main.

Bonne chance.
19/06/2006, 15h29
jmfmarques

Je ne vois que 2 raisons possibles :
- la 1ère est que tu ne laisses pas au système le temps dont il a besoin (un doevents serait le bienvenu juste après l'exécution d'une requête)
- la 2ème est que ton code comporte des erreurs et que tu les a "sautées" par un "on Error Resume Next"...sans réelle gestion d'erreur... moyennant quoi ton code continue... mais sans données !
19/06/2006, 15h41
vincent magnin

La seconde possibilité n'est pas en cause puisque je n'ai pas sauté d'erreurs.
Par contre, j'envisageai déjà que ce soit une lenteur systeme qui cause le problème, j'ai donc, grâce à tes conseils, posé des "DoEvents" toutes les deux lignes (enfin, celles qui sont utiles au data) mais malheureusement ça ne change rien.

Je me demande donc si ce n'est pas une lenteur d'accès à la base de données (ou de mise à jour) dûe au protocole lui-même (il doit bien y avoir un temps de latence, si oui me reseigner me permettrait de pourvoir gérer le problème) ou à la vitesse du réseau (car la bdd est à distance) ... et dans ce cas j'ai peur que mon problème soit insoluble sauf avec mon dépannage à la Mac Gyver (cf while).