Re: Probleme de vitesse - SQL

Posté par JeromeR le 27/9/2006 11:27:41
Juste une proposition ... je ne sais pas si ça sera plus rapide ou non !

Moi au lieu de ça : 

sql est une chaîne
r est une Source de Données()
ind est un entier

sql = "SELECT * FROM Client"
  IF NOT HExécuteRequêteSQL(r,sql) THEN msg(2,sql)
    IF HNbEnr(r) > 0 THEN
      HLitPremier(r)
      WHILE NOT HEnDehors(r)
        ind = tableajouteligne(table,"")
        table.nom[ind] = r.nom
        table.Prenom[ind] = r.prenom
        HLitSuivant(r)
      END
    END


Je ferai ça :

sql est une chaîne
r est une Source de Données()
ind est un entier

sql = "SELECT * FROM Client"
SI HExécuteRequêteSQL(r,hRequêteDéfaut,sql) ALORS
    FichierVersTableMémoire(table,r)
FIN


Bon cela reste a tester pour voir la différence de temps d'affichage.

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=4600&post_id=19105