Discussion :

[bubu1905]

Salut,

Je suis un petit nouveau !

J'ai besoin d'aide. Je programme une appli sous delphi7 et Oracle8 et j'ai un souci:

Je voudrai charger ma reque "insert nom from employe" dans une combobox afin d'avoir tous les noms disponibles.
Je sais pas quelle doit etre la propriété nécessaire (j'ai essayé le fields mais c pour les champs et pas pour un enregistrment(ligne))

De plus, mon insert dans ma base de données ne marche pas .

Mais, je m'inkiete concernant la premiere question.

Merci d'avance;

[alexmorel]

euh un combobox sert a afficher les résultats plutot Select * from ta_table.
Pourquoi mettre un insert into dedans..

Tu peux me donner plus d'info et une partie du code, merci...

[bubu1905]

Je te remerci de ta réponse.

Je me suis mal exprimé. Mon insert n'a rien a voir avec ma combobox.
Je voudrais juste avoir une "liste" des informations de mon select.

Il s'agit d'une procedure "click bouton"

Code :

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

1
2
3
4
5
6
7
8
9
10
var i : integer;
 
begin
OraQuery.SQL.Text := 'Select nom_employe from employe';
OraQuery.Active := true; 
 
for i := 0 to OraQuery1.Fields.Count-1
do
   ComboBox1.Items.Add(OraQuery1.Fields.Fields[i].AsString);
end;

Mais comme t'as pu le remarquer, ça marche pas car il s'agit d'un élément et non d'une ligne qui est sélectionné.


Et là, je m'inkiète beaucoup.

[Nono40]

Bienvenue parmis nous, mais n'oublie pas les balises Code STP.

Avec ta bouble tu balayes les champs et non pas les lignes. Il faut faire un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
begin
  With OraQuery Do
  Begin
    SQL.Text := 'Select nom_employe from employe';
    Active := true; 
    First;
    While Not EOF Do
      ComboBox1.Items.Add(OraQuery1.Fields[0].AsString);
    Active:=False;
  End;
end;

[bubu1905]

Désolé pour le STp.

Mais je tiens à vous remercier vivement pour ce précieux conseil, c super sympa.

[bubu1905]

Mais, svp, j'ai une dernière petite question qui est ptet très bête mais je veux etre sure:

- With OraQuery Do, ça correspond à quoi très exactement?

Et lorsque je fais un "OraQuery1.Fields.Fields[...].AsString"
Le premier correspond à la ligne, c bien ça?

Merci d'avance!

[bubu1905]

C'est re-moi,

J'ai de nouveau un petit souci avec la fonction que l'on m'a donné.
Ca s'est compilé, mai la procédure s'est déclenché mais m'a fait une erreur fatale: "Impossible de créer le fichier de sortie".

Donc, svp, aidez-moi si c'est possible en me détaillant le code ou en me l'expilquant.

Merci.

[xwigny]

Salut,

Je ne connais pas le TORAQuery mais avec un TADOQuery il faut ajouter un next à la fin de la boucle while.

[qi130]

+1

Et moi qui travaille avec des TIBQuery, je mets systématiquement un FetchAll...

[Rayek]

Ne serait il pas plus simple de lier un datasource au OraQuery
puis d'utiliser un composant DbLookupcombobox avec les paramètres qui vont bien ?

sinon oui il manque un next dans la boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
begin 
  With OraQuery Do 
  Begin 
    SQL.Text := 'Select nom_employe from employe'; 
    Active := true; 
    First; 
    While Not EOF Do 
    begin
      ComboBox1.Items.Add(OraQuery1.Fields[0].AsString); 
      next; 
    end;
    Active:=False; 
  End; 
end;