Passage de vb à delphi

Version imprimable

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

Code:

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:

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

06/05/2014, 15h52
SergioMaster

Bonjour,

ma première réaction a lire le code c'est de dire que je serais passé par une query paramétrée
genre UPDATE LATABLED1 SET REP=(SELECT REP FROM LATABLED2 WHERE ...) WHERE ....

mais bien sur cela dépende de la SGBD , des composants etc ....

un peu plus de renseignements (description des tables , conditions) permettrait certainement d'affiner le tout ;)
07/05/2014, 08h10
reuqnas

Merci de votre réponse,
j'utilise wreport avec mysql, je dois récupérer des informations dans plusieurs tables afin de remplir des champs ce trouvant dans une table
07/05/2014, 09h22
SergioMaster

WReport , je connais pas , au nom cela ressemble plus a un générateur d'état qu'un composant d'accès base de données

MySQL permet de faire des requêtes du style que j'avais indiqué dans mon précédent post

Citation:

je dois récupérer des informations dans plusieurs tables afin de remplir des champs ce trouvant dans une table

ça nous fait "une belle jambe" (c'est à dire que cela ne nous mène pas à grand chose) d'avoir ce genre de renseignement