pb avec un programme vb5

Question

bonjour a tous,

je travaille actuellement sur une application vb5 qui doit permettre de faire le "menage" dans une grosse base de donn&#233;es. Cette base contient une vingtaine de tables qui ont toutes un champ "Date". Sur mon application , on rentre une date limite et tous les enregistrements dont la date est inferieure a la date saisie doivent etre supprim&#233;s pour chaque table. Pour l'instant ca marche mais le traitement de suppression a faire est tellement important que ca bloque carrement le pc pendant l'execution !
 
Quelqun saurait il comment faire pour que le traitement ce fasse tranquillement et sans bloquer l'utilisation du pc ???

Merci davance . Bonne journ&#233;e .

La boucle de suppression pour toutes les tables de la base :

While tabArchives(j) <> ""
   nomTable = tabArchives(j)
   j = j + 1
   rst.Open "SELECT * FROM " & nomTable & " WHERE Date < '" & dateLimite & "'", cnx, adOpenDynamic, adLockOptimistic
   While Not rst.EOF
      rst.Delete
      rst.MoveNext
   Wend
   rst.Close
Wend

BruNews · Answer

Faut pas boucler, c'est beaucoup trop long, utilise une instruction SQL qui sera beaucoup plus rapide.

Execute "DELETE nomTable.* FROM nomTable WHERE dATE < dateLimite"

ciao...
BruNews, MVP VC++

Pb avec un programme vb5

1 réponse

Discussions similaires