Recherche d'enregistrement

Question

Voila, je souhaite trouver tous les enregistrement d'une table r&#233;pondant &#224; un crtit&#232;re pr&#233;cis (le crit&#232;re ne porte pas sur la cl&#233; primaire de la table).
Pour cela, j'utilise les m&#233;thode FindFirst et FindNext (j'utilise des objet DAO en VB6)
Voila le code que j'ai produit :

Set rst = dbDroit.OpenRecordset("droit", dbOpenDynaset)


With rst
    .FindFirst (![C001] & " = " & num)
   While .NoMatch = False
        t = rst.GetRows(1)
        Debug.Print t(0, 0)
        Debug.Print t(1, 0)
        Debug.Print t(2, 0)
        Debug.Print t(3, 0)
        Debug.Print t(4, 0)
         .FindNext (![C001] & " = " & num)
   Wend
End With

Ca ne marche pas tr&#233;s bien (sinon je serai pas la  ) mais je ne sais pas quels peuvent &#234;tre les probleme. 
Si quelqu'un maitrise l'utilisation de ces m&#233;thodes il est le bienvenu...
Merci &#224; tous

bmikl59 · Answer

Bon j'ai modifi&#233; mon code ca va un peu mieux
Mais j'ai toujours le meme probleme : si les enrg recherche se suive dans la table il en saute un sur deux. Pourquoi?

Voici le code utilis&#233; :
Set rst = dbDroit.OpenRecordset("droit", dbOpenDynaset)
Dim str As String
Dim more As Booleanstr "C001'" & num & "'"
more = True
With rst
.MoveFirst


While more = True
    .FindNext str
   
   If .NoMatch = False Then
         t = rst.GetRows(1)
        Debug.Print t(0, 0)
        Debug.Print t(1, 0)
        Debug.Print t(2, 0)
        Debug.Print t(3, 0)
        Debug.Print t(4, 0)
        more = True
    Else
        more = False
    End If
        
Wend
End With

cs_CanisLupus · Answer

Salut,

J'aurais plut&#244;t cod&#233; comme &#231;a :
Set rst dbDroit.OpenRecordset("select * from droit where C001 '" & num & "'", dbOpenDynaset)


Do While Not rst.EOF
    Debug.Print rst.Fields(0)
    Debug.Print rst.Fields(1)
    Debug.Print rst.Fields(2)
    Debug.Print rst.Fields(3)
    Debug.Print rst.Fields(4)
    rst.MoveNext
Loop

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

bmikl59 · Answer

Ben ca je sais que ca marche mais j'aurai bien voulu eviter l'utilisation du SQL (lui etre tres lent quand bcp d'enrg)
Enfin bon, en attendant de trouver une meilleure m&#233;thode je vais rester la dessus.

Merci

cs_CanisLupus · Answer

C'est pourtant plus rapide et moins bouffeur de ram que de charger toute la table en m&#233;moire. Mais bon, c'est toi qui vois.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Recherche d'enregistrement

4 réponses

Discussions similaires