Discussion :

[garciajulien]

Bonjour, j'ai un probleme d'optimisation.
J'ai une liste d'objet (A) et une liste d'Objet (B). Chaque object A possedent un champ d'un objet de la liste d'objet (B) (une cle etrangere).

Actuellement, lorsque je veux recuperer l'objet B correspondant au lien de l'objet A, j'ai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
FOR EACH objb in listOfB
         if objb.monchamp = obja.monchamp then
              return objb
         end if
NEXT

Le probleme c'est que j'ai 450000 objet A et 32000 objet B
La requete est vraiment longue

Comment puis-faire pour amelirorer cette requete?

Merci d'avance

[cougarg]

Bonjour,

Si ta liste est triée, tu peux faire une recherche dichotomique.

Sinon, tu parles de requête. Tes objets sont en base de données ?
Si c'est le cas, il faut mieux que la base de données te retourne directement le bon résultat. Ce sera plus rapide.

[Vld44]

monchamp est de quel type ?

[garciajulien]

Monchamp est une string (lettre et chiffre).
En ce qui concerne l'acces BD, j'y ai pense mais je me demandais si il n'y avait pas moyem de le faire en memoire puisque de toute facon les objet y sont

[Vld44]

essaye avec .equals()

[cougarg]

Il est possible de le faire sans passer par une nouvelle requête, mais ce sera très dur de faire plus rapide que celle-ci. Les bases de données sont optimisées pour les recherches.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"Select * from TableObjB WHERE TableObjB.monChamp = " & obja.monchamp

Sinon, comment récupères-tu tes objets au départ. Si c'est par une requête qui récupère tous les objets, tu peux les trier par ordre de monChamp, ta liste sera alors triés par ordre alphabétique sur ce champ. Tu pourras alors utilisé la recherche dichotomique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private function rechercherObject(byval objectA as Object, listOfB as list(object), byval indexDep as Integer, byval indexFin as Integer) as Object
' tester objet du milieu
Dim taille as integer = indexFin + 1 - indexDep
if taille <= 0 then
return Nothing
end if
 
Dim milieu as integer
if taille mod 2 = 1
milieu =(taille  - 1) / 2
else
milieu = (taille  / 2)
End if
Dim objectB as Object = listOfB.item(milieu)
 
If objectB .monChamp < objectA.monChamp Then
return rechercherObject(objectA, listOfB, indexDep, milieu -1)
Elseif objectB .monChamp = objectA.monChamp Then
return objectB
Else
return rechercherObject(objectA, listOfB, milieu + 1, indexFin)
End if
 
End Function

Ton appel initial sera :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rechercherObject(objectA, listOfB, 0, listOfB.count - 1)

Autre point, si ton but est de seulement de récupérer tes objectA et de tous les relier avec les objectsB correspondants, pourquoi ne pas faire une jonction dans ta requête initiale, afin de récupérer en même temps les objets A et B.