Discussion :

[Invité]

Bonjour,

Pour rechercher un article dans une table, j'utilise le code suivant:

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
    'Ouverture de la Base Nationale
    Set objBaseNationale = OpenBDD(strFichierBase, "LS")
    Set objRecordset = CreateObject("ADODB.recordset")
 
    Const adUseClient = 3
    objBaseNationale.CursorLocation = adUseClient
    objRecordset.Open "SELECT * FROM Articles", objBaseNationale
 
    'Recherche de l'Article
    objRecordset.Find ("[Reference]='RBS 015'")
    If Not objRecordset.EOF Then
        Debug.Print ("Article trouvé dans la base")
    Else
        Debug.Print ("Article non trouvé dans la base")
    End If
 
    Call CloseBDD(objRecordset)
    Call CloseBDD(objBaseNationale)

Etant amené à réaliser de nombreuses opérations de recherche dans cette table, je voudrais savoir si cette manière de faire est la bonne ou optimisable.

Par avance merci.

(La base est créée avec le moteur "Microsoft.ACE.OLEDB.12.0")

[Invité]

Tu peux faire comme ça, mais au niveau optimisation il y a mieux car ça revient à faire une requête (plus rapide serte) pour chaque condition.

Code :

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

1
2
3
4
5
6
7
8
9
While objRecordset.EOF = False
    Select Case Trim("" & objRecordset("Reference"))
        Case "RBS 015"
            Debug.Print ("Article trouvé dans la base")
        Case Else
            Debug.Print ("Article non trouvé dans la base")
    End Select
    objRecordset.movenext
Wend

petite erreur je regarde

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
Dim I As Long
Dim txt()
txt() = Array(Array("RBS 015", 0), Array("RBS 012", 0))
While objRecordset.EOF = False
 
   For I = 0 To UBound(txt)
      If Trim("" & objRecordset("Reference")) = Trim("" & txt(I)(0)) Then txt(I)(1) = 1
   Next
 
    objRecordset.movenext
Wend
For I = 0 To UBound(txt)
   If CInt(txt(I)(1)) = 1 Then
    Debug.Print txt(I)(0) & " : Article non trouvé dans la base"
   Else
     Debug.Print txt(I)(0) & " : Article trouvé dans la base"
   End If
 
Next

[Invité]

Merci pour la méthode.

Comme ça je peux rechercher l'ensemble des articles qui m’intéressent en une seule fois.

Il est possible de transformer un peu le code pour faire des recherches multicritères par le même procédé.

[Invité]

oui tu peux faire un tableau array a 3 ou 4 dimention ou fare le même test avec un autre champ dans la foulée!