Discussion :

[nerila]

Bonjour,

Je voudrais reucpérer le resultat de cette requete dans un tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

select et_nom from etudiant

J'ai essayer de faire comme cela mais le programme ne s'arrete pas, je dois avoir fait une ou plusieurs erreurs, si vouz pouviez m'eclairer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.FormCreate(Sender: TObject);
begin
 
    OraQuery2.Open;
     n := 0;
      while (not(oraquery2.Eof)) do
      begin
       Tab[n] := oraquery2.FieldValues['ET_NOM'];
      end;
      n := n+1;
      oraquery2.Next;
 
 
 
end;

Merci

[Cl@udius]

Salut

Il faut mettre le Next dans la boucle pour éviter qu'elle soit sans fin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
  OraQuery2.Open;
  n := 0;
  while (not(oraquery2.Eof)) do
  begin
    Tab[n] := oraquery2.FieldValues['ET_NOM'];
     n := n+1;  
     oraquery2.Next; // Ligne à inclure dans la boucle !!
  end;
 
end;
 
@+ Claudius

[Morfus]

c'est le oraquery2.next qu'il faut mettre dans la boucle while
ton while il ne s'arrete pas

[nerila]

Merci, mais maintenant j'ai un autre problème.
J'ai cette erreur à chaque fois que je lance le programme:
image
Merci pour votre aide.

[cjo]

Cela ne viendrait-il pas de la taille du tableau. Dans le petit bout de code, il n'y a pas d'information à ce sujet.

Si c'est le cas, il faut ajuster la taille du tableau à chaque ajout.

cjo

[Laurent Dardenne]

Ton objet TADOQuery est bien créé ?
Pour le tableau on aurait une exception du type "indice hors llimite' et pas une AV.
Et il te reste la touche F7...

[nerila]

Merci beaucoup.