Bonjour j'ai un petit souci, je dois passer un programme ecrit a vb6 en delphi,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Do While Data1.Recordset.AbsolutePosition <> -1
    Select Case Data1.Recordset.Fields("toto").Value
      Case 1
        Data2.Recordset.FindFirst "[c]='" & Data1.Recordset.Fields("c").Value & "' and [p]='" & Data1.Recordset.Fields("p").Value 
        If Data2.Recordset.NoMatch = False Then
          Data1.Recordset.Edit
          Data1.Recordset.Fields("rep").Value = Data2.Recordset.Fields("rep").Value
          Data1.Recordset.Update
Data1 et Data2 correspondent a deux tables, j'ai donc deux requetes qui me permettent d'avoir ces memes données req1 et req2 je voulais savoir comment en delphi je pouvais ecrire cela car je fais ma boucle en ecrivant cela :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
firstrecord('req1');                                                         
  While not QueryEOF('req1') do
    begin                                                      
        case (<req1."toto">)  of
            // cas 1           
            '1' :
                begin
mais apres je ne vois pas comment utiliser avec ma requete findfirst ...

Merci de votre aide