Progressbar sur requette.

Question

dison qu'on a une requette qui doit suprimmer toute la base des donees. L'affaire est que la base des donnees et imense 300.000 enregistrements.
'*******************************************************************************

    Dim db As Database
    Dim strSql As String
    DBPath = App.Path & "Nom_Dbase.mdb"
    Set db = DBEngine.Workspaces(0).OpenDatabase(DBPath)

    strSql = "DELETE NomTableau.Field1, NomTableau.Field2 FROM NomTableau;"
    DoEvents

    db.Execute (strSql)
'*******************************************************************************

S-il - y a 300.000 des records la supression va prendre 10 secondes.Est ce que qqn. a une idee comment faire pour evidentier le progress de la supression sur une progressbar? Merci.

olixelle · Answer

ca veut dire koi &#233;videntier ???

bon sinon a mon avis ta pas de solution si ce n'est que tu peux suypprimer disons 10 000 enregistrement par 10 000 enregistrement et faire &#233;voluer ta progress bar comme ca.... (en ayant pris connaissance du nb d'enregistrement total avant)

Rollerman

cs_hassen · Answer

bonjour,
pour supprimer tous les enregistrement d'une table. tu peut supprimer la table et la recreer
DROP TABLE ma_table
CREAT TABLE ma_table
...

Hassen TUNISIE

ccir · Answer

evdentier = mettre en evidence. Oui fractionner et effacer plusieurs fois ca peut etre une solution desespere, je vais essayer comme meme voir ce que ca donne. Merci Emile.

Progressbar sur requette.

3 réponses

Discussions similaires