Exécuter une requête SQL avec un timer sans utiliser de next

Bonjour à tous,
J'aurais besoin de votre aide concernant un problème que je n'arrive pas à résoudre.. en effet je réalise grâce à une requête SQL une boucle while pour me permettre de retrouver des enregistrements dans une table ensuite grâce à 1 next je passe aux enregistrements suivants jusque là tout est ok par contre j'aimerais que ma requête avance seule grâce à un timer et non un next mais je n'arrive pas à générer le code ... voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); begin query1.SQL.Clear; query1.SQL.Add('select * from affichdynamique order by Date;'); if not query1.Active then query1.Active:=True else query1.Execute; if query1.RecordCount<>0 then begin query1.First; while not query1.Eof do begin label1.Caption:=query1.Fields[0].AsString; query1.Next; end; end; end;

---

A l'heure actuelle mon next fonctionne avec l'appui sur le bouton mais je voudrais supprimer le bouton et que cela se fasse avec un timer au bout de 10s est ce possible comment faire ?

Merci par avance

Tu peux par exemple activer ton timer au moment où tu lances le open de ta query. Et dans le OnTimer (de ton timer) tu fais ton query.next et la lecture de ta donnée. Sans oublier de vérifier que tu n'es pas arrivé à la fin des enregistrements.

Bonjour et bienvenue puisqu'il s'agit de votre premier message.

Citation:

---

j'aimerais que ma requête avance seule grâce à un timer et non un next

---

Quelle idée étrange mais, bon pourquoi pas pour par exemple une sorte de "TIP OF THE DAY".

Citation:

---

A l'heure actuelle mon next fonctionne avec l'appui sur le bouton mais je voudrais supprimer le bouton et que cela se fasse avec un timer au bout de 10s est ce possible comment faire ?

---

La solution proposée par blonde est certainement la meilleure.
Toutefois j'aimerais me pencher sur votre code, car là j'ai quelques doutes

Code:

---

1 2	Query1.SQL.Clear;

---

dans un Query1.Close; avant cela va poser un premier problème.
query1.SQL.Add('select * from affichdynamique order by Date;'); Je suis perplexe, Date est souvent un mot réservé par les SGBD sinon rien à dire sauf, peut être, que le ; n'est pas nécessaire et qu'il vaut mieux prendre l'habitude d'indiquer la liste des colonnes souhaitées que d'utiliser *
if not query1.Active then query1.Active:=True else query1.Execute; Là, c'est beaucoup plus erroné. Déjà, puisque pour changer le SQL il faut faire un Close le test n'est plus nécessaire ensuite, toute requête renvoyant un résultat devrait être utilisée avec un Open (ou active:=true) donc seul Query1.Active suffit.
Le

Code:

---

Query.Execute

---

me fait douter comme vous n'avez pas indiqué le type de composant de Query1 je suis parti sur du TQuery (BDE) basique, TQuery.Execute n'existe pas dans ce cas . Il aurait été bon de nous indiquer la version de Delphi, le set de composant utilisé pour se connecter aux tables et, tant qu'à faire le SGBD (certains permettant d'accéder directement à une ligne de table selon son rang)

Code:

---

1 2 3 4 5

if query1.RecordCount<>0 then begin query1.First; ... end;

---

inutile, la portion de code suffit, nous en arrivons au code d'affichage

Code:

---

1 2 3 4 5

while not query1.Eof do begin label1.Caption:=query1.Fields[0].AsString; query1.Next; end;

---

Donc quand vous écrivez

Citation:

---

A l'heure actuelle mon next fonctionne avec l'appui sur le bouton

---

cela me laisse perplexe pour moi, ce code vous affiche la dernière ligne de la table (dernière date).

En admettant qu'il y ait un timer de déposé sur votre forme je propose ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

// je choisi le OnActivate pour ouvrir la table ce qui permet en cas de forme "indépendante" de repartir à la première ligne procedure TForm1.FormActivate(Sender: TObject); begin Query1.Active:=False; Query1.SQL.Text:='select * from affichdynamique order by Date'; Query1.Active:=True; Label1.Caption:=Query1.Fields[0].AsString; Timer1.Enabled; end;   procedure TForm1.Timer1Timer(Sender: TObject); begin Query1.Next; if Query1.EOF then begin Label1.Caption:='Fin de table'; // pour une boucle je ferai // Query1.First; // Label1.Caption:=Query1.Fields[0].AsString; end else Label1.Caption:=Query1.Fields[0].AsString; end;

---

Citation:

---

Envoyé par SergioMaster

..

En admettant qu'il y ait un timer de déposé sur votre forme je propose ceci

---

je ferais plutôt.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

// je choisi le OnActivate pour ouvrir la table ce qui permet en cas de forme "indépendante" de repartir à la première ligne procedure TForm1.FormActivate(Sender: TObject); begin Query1.Active:=False; Query1.SQL.Text:='select * from affichdynamique order by Date'; Query1.Active:=True; Label1.Caption:=Query1.Fields[0].AsString; if Query1.EOF then ShowMessage('aucun enregistrement trouvé') else Timer1.Enabled; end;   procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption:=Query1.Fields[0].AsString; Query1.Next; if Query1.EOF then begin ShowMEssage('Terminé'); Timer1.Enabled := False; end; end;

---

Bonjour à tous et merci beaucoup pour votre aide ça fonctionne et j'ai ainsi pu corriger mes erreurs récurrentes sur le code SQL (au passage)

Citation:

---

Envoyé par Paul TOTH

je ferais plutôt.

---

Effectivement, j'avais écrit le code online sans en tester l'exécution. J'avais un doute sur le déclenchement du timer : le Ontimer se déclenchait-il lors de l'instruction Timer1.Enabled; ou pas ? Tu m'évites d'avoir à faire le test ;)