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...

[Cl@udius]

Salut

Pour le tableau on aurait une exception du type "indice hors llimite' et pas une AV.

On aura bien une AV si on est en présence d'un tableau dynamique dont on a pas encore définit les dimensions avec un SetLength.
Donc...

@+

[Laurent Dardenne]

Donc...

J'ai répondu trop vite

[nerila]

J'ai un peu de mal avec les tableaux.

Pour le moment il resemble à ça.

Code :

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

1
2
3
var
 
  Tab : ARRAY of string ;

Code :

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

1
2
3
 
     li := OraQuery2.RecordCount;
     SetLength(Tab, li);

j'ai remarquer que si je mettais une valeur assez grande à li je n'avais plus d'erreur mais je comprends pas pouquoi.

[Rayek]

J'ai un peu de mal avec les tableaux.

Pour le moment il resemble à ça.

Code :

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

1
2
3
var
 
  Tab : ARRAY of string ;

Code :

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

1
2
3
 
     li := OraQuery2.RecordCount;
     SetLength(Tab, li);

j'ai remarquer que si je mettais une valeur assez grande à li je n'avais plus d'erreur mais je comprends pas pouquoi.

Car le RecordCount doit te renvoyer -1.
Je te conseil de faire un Last avant l'utilisation du REcordCount

Code :

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

1
2
3
4
5
 
  OraQuery2.Last;
  li := OraQuery2.RecordCount;
  OraQuery2.First;
  SetLength(Tab, li);

[nerila]

Merci beaucoup.