[AC-2000] Optimisation de VBA pour la recherche de valeurs dans une table [Résolu]

[Tydher]

Bonjour à tous,

Voila j'ai mon code VBA qui m'importe des données Excel vers ma BDD Access.
J'ai différents tests de ce code qui se base sur une boucle.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Set rs = db.OpenRecordset("Equipment", dbOpenDynaset)
    With rs
        If .RecordCount <> 0 Then
            .MoveFirst
            trouve = False
            TrouveStatut = False
            Do While Not .EOF And Not trouve
'If the fields IDEQUIPMENT = Cells(ID) in Excel File
                If .Fields("IDEQUIPMENT") = Cells(i, ID) Then
                    trouve = True
                    IdEqOld = .Fields("IDEQUIPMENT")
'Use this conditions to see if the equipment statut is achieved or not
                    If .Fields("Statut") = "X" Then
                        TrouveStatut = True
                    Else
                        TrouveStatut = False
                    End If
                End If
                .MoveNext
            Loop
        End If
    End With

Cependant j'aimerai savoir si il y a une autre solution pour parcourir et récupéré ces valeurs.
En effet, avec la taille des fichiers Excel et le nombre d'enregistrements de la table "Equipment", il me faut presque 30min d'éxécution.

Merci d'avance

[koluche]

Hello! As-tu entendu parler de "recherche dichotomique"?
Voici un lien qui en parle: http://www.developpez.com/recherche/...eloppez.com%2F

[Tydher]

Oui justement j'étais en train de me poser la question quand j'ai posté ici.
Merci pour les liens, je reposterai demain dans la matinée pour dire ce que j'ai fait !

Merci

[Philippe JOCHMANS]

Bonjour

Pourquoi ne pas passer par une requête au lieu de parcourir la table Equipement

Le critère (Clause Where de la requête) sera la valeur de la cellule (Cells(i, ID)) ainsi que les données du champ Statut.

Ce serait beaucoup plus rapide (à moins que je n'ai pas compris ce que tu souhaites).

Philippe

[Tydher]

Envoyé par Philippe JOCHMANS

Bonjour

Pourquoi ne pas passer par une requête au lieu de parcourir la table Equipement

Le critère (Clause Where de la requête) sera la valeur de la cellule (Cells(i, ID)) ainsi que les données du champ Statut.

Ce serait beaucoup plus rapide (à moins que je n'ai pas compris ce que tu souhaites).

Philippe

Si tu as bien compris, c'est vrai que je ne sais pas pourquoi je n'ai pas utilisé de requete SQL pour recherché une valeur. Je test cela et je repost un message.

[Tydher]

Bon j'ai testé mon code avec la recherche dichotomique du lien envoyé par Koluche (et adapté à ma situation), et l'utilisation de requete SQL proposé par Phillipe.

Cette derniere est un peu plus rapide dans mon cas.
Voila ce que ça me donne :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Trouve = False
TrouveStatut = False
RechercheEq = ("Select Equipment.IDEQUIPMENT, Equipment.Statut From Equipment where Equipment.IDEQUIPMENT = '" & safeString(IdEq) & "'")
Set RechercheE = CurrentDb.OpenRecordset(RechercheEq)
If Not RechercheE.EOF Then
  RecEq = RechercheE.Fields("IDEQUIPMENT").Value
  RecStatut = RechercheE.Fields("Statut").Value
  If RecEq <> "" Then
    Trouve = True
  End If
  If RecStatut <> "" Then
    TrouveStatut = True
    IdEqOld = RecEq
  End If
Else
  Trouve = False
  TrouveStatut = False
End If

Merci beaucoup pour vos réponses.