WDForge.org - Forums

Re: Probleme de vitesse - SQL

Sujet: Re: Probleme de vitesse - SQL
par JeromeR sur 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.