Requête SQL incorrecte sur DELPHI : champ non trouvé
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:
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 :
Citation:
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 !
