Problème lors de lecture d'une Base de DonnéesRésolu

Question

Bonjour.

J'ai un petit soucis lors d'une lecture de Base de Données.
J'ai une appli de gestion de client, avec une table Paradox. En voulant faire une fiche de publipostage, l'application me positionne sur l'avant dernier élément de ma table, et ce malgré l'utilisation de "First". Toute suggestion est la bienvenue ;-)
(PS : la valeur de RecordCount est bonne)

Voici la boucle où le code ne marche pas : 

With MainForm.Clients do
     begin
          Close;
          Filtered:=False;
          Filter:='';
          Filter:='NOM='#39+ComboBox1.Text+'*'#39;
          Filtered:=True;
          QRMailingPrintempsForm:=TQRMailingPrintempsForm.Create(Application);
          Open;
          For i:=0 to RecordCount-1 do
          begin
               QRMailingPrintempsForm.QRMailingPrintemps.Print;
               Next;
          end;
          QRMailingPrintempsForm.Destroy;
     end;

yoghourt · Accepted Answer

Finalement, j'ai utilisé une autre méthode : 

J'ai placé un objet Query sur ma fiche.
Je fait une requête SQL à la place du filtre que je faisais directement sur la table.
Puis j'utilise la propriété RecNo, qui me place sur l'élément de mon choix.
Globalement, ça donne ça :

     MailingQuery.ParamByName('lettre').AsString:=ComboBox1.Text+'%';
     MailingQuery.Active:=True;
     MailingQuery.First;
     i:=1;
     WHile i<=MailingQuery.RecordCount do
     begin
          MailingQuery.RecNo:=i;
          QRMailingPrintempsForm.QRMailingPrintemps.Print;
          i:=i+1;
     end;

Le code de ma requête SQL : 
SELECT *
FROM CLIENTS
WHERE NOM LIKE :lettre
ORDER BY NOM ASC

Par contre, je ne sais toujours pas pourquoi la méthode Next n'a pas marché dans ce cas là, mais bon, ça marche ;-)

jmp77 · Answer

Pkoi n'essaye tu pas plutot une boucle comme celle ci :

var
MaVar : Boolean;

begin
...

MaVar := Table.First;

   While MaVar do
   begin
   //Ici tu executes tes requetes
   MaVar := Table.FindNext;
   end;

Cela ne focntionnerai t'il pas mieux?

Bonne prog,
JMP.

yoghourt · Answer

Je vais tester ça, merci du coup de main, je te tiens au courant
A plus tard

jmp77 · Answer

Ok ben heureux que tu es pu toruver une solution a ton problème. Pense à cliquer sur réponse acceptée afin de cloturer ta demande.

Bonne prog,
JMP.

Problème lors de lecture d'une Base de Données

4 réponses

Votre réponse

Discussions similaires