Discussion :

[MélanieS]

Bonjour !

J'ai un petit problème avec mon programme..
Je m'explique.

J'ai un DataBase lié à une base nommée "Gestion"
J'ai un TTable lié à une table nommée "Services", elle même liée à mon DataBase
J'ai un DataSource lié à mon TTable

Sur un TDBLookupListBox, j'affiche tous les enregistrements du champ "LibelleService" de mon TTable

ListSource : DS_Services
ListField : LibelleService
KeyField : idService

Sur l'évènement OnClick d'un simple bouton, j'aimerais que l'enregistrement sélectionné sur TDBLookupListBox soit reporté sur un listBox simple.

Pour cela, j'ai écris une requête SQL qui récupère toutes les informations de ce qui a été sélectionné.
Requête qui fonctionne sur PhpMyAdmin mais qui ne fonctionne pas sur DELPHI.

Voici mon petit bout de code (J'ai remplacé le listbox par des labels) :

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
17
procedure Tpage_facturation.requete(Id_Service : string);
begin
 QueryRecupInfos.SQL.Clear;
 QueryRecupInfos.SQL.Add('SELECT LibelleService, PrixService FROM services WHERE idService = :id');
 QueryRecupInfos.ParamByName('id').value := Id_Service;
 Libelle_service := QueryRecupInfos.FieldbyName('LibelleService').AsString;
 Prix_Service := QueryRecupInfos.FieldByName('PrixService').AsInteger;
 QueryRecupInfos.Open;
end;
 
procedure Tpage_facturation.BtInsererClick(Sender: TObject);
begin
   Id_Service := DBLookupservices.keyValue; // Je récupère l'id
   requete(Id_Service); // J'exécute la requête
   Label2.Caption := Libelle_service;
   Label3.Caption := IntToStr(Prix_Service);
end;

L'erreur que j'ai est :

QueryRecupInfos: Champ 'LibelleService' non trouvé.

Évidemment, mon premier réflexe a été de vérifier sur ma base de données.
Mais la requête est fonctionnelle sur SQL.

Cela fait plusieurs heures que je suis dessus...C'est peut-être un petit truc tout bête, mais je ne parviens pas à trouver.

Si quelqu'un peut m'éclairer, merci d'avance !

[Papy214]

est-ce qu'il ne faudrait pas faire le

QueryRecupInfos.Open;

avant la lecture des valeurs par

Libelle_service := QueryRecupInfos.FieldbyName('LibelleService').AsString;

??

[MélanieS]

Ah punaise !

Merci !
J'ai honte de ma bêtise, là !

Merci beaucoup papy214..
Je savais que c'était un truc bête

Voici donc le petit bout de code corrigé et qui fonctionne.

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
17
18
procedure Tpage_facturation.requete(Id_Service : string);
begin
 QueryRecupInfos.SQL.Clear;
 QueryRecupInfos.SQL.Add('SELECT LibelleService, PrixService FROM services WHERE idService = :id');
 QueryRecupInfos.ParamByName('id').value := Id_Service;
 QueryRecupInfos.Open;
 Libelle_service := QueryRecupInfos.FieldbyName('LibelleService').AsString;
 Prix_Service := QueryRecupInfos.FieldByName('PrixService').AsInteger;
 
end;
 
procedure Tpage_facturation.BtInsererClick(Sender: TObject);
begin
   Id_Service := DBLookupservices.keyValue;
   requete(Id_Service);
   Label2.Caption := Libelle_service;
   Label3.Caption := IntToStr(Prix_Service);
end;

[Papy214]

Ah punaise !

Merci !
J'ai honte de ma bêtise, là !

Merci beaucoup papy214..
Je savais que c'était un truc bête

Faut pas avoir honte, on est tous passés par là.