Discussion :

[gregb]

Bonjour,

Je vous explique mon probleme :

J'ai une table BG_VOITURE dans ma BDD Oracle.
Elle est remplit de voitures avec diverses informations, immatriculation...

Je souhaite remplir un TdbListbox affichant toutes les voitures :

Voiture 1
Voiture 2
...

et lorsque je clique sur une des voitures, j'affiche son immatriculation...

J'arrive a remplir le TdbListbox par une boucle + une requete SQL.

select immatriculation,numero
from bg_voiture;

Je me dis facil alors, suffit de faire une requete parametrée du style

select marque,type
from bg_voiture
where immatriculation= :imma;

Mais ca ne marche pas :s ou ca marche pour la 1ere selection mais pour les suivante non... ou meme les items du listbox ne sont pas selectionnable...

De meme dans Tdblistbox, malgré la lecture de la DOC, je comprends pas le champs DATAFIELD...

MERCI DE VOTRE AIDE

[Rayek]

Pourrais tu nous fournir ton code ?

[gregb]

Les sources :

http://gregb.no-ip.com/public/delphi/bdd.zip

Merci de ton aide

[Rayek]

Bon pour la listbox, c'est normal tu lui indique aucun datafield.

De plus ton programme ne fonctionnera jamais.
Pour ce que tu veux faire il te faut obligatoirement une dblookuplistbox ca fonctionnera deja mieux.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
begin
 
// Marche nickel...
 
  req_liste.Active := true;
    while not req_liste.Eof do
      begin
        liste.Items.Add('Voiture - '+req_listeVOITURE_NUM.Text);
        req_liste.Next;
      end;
  req_liste.Close;
end;

Ok tu remplis bien ta listbox, donc tu doit avoir
Voiture - 0132130132
Voiture - 013543503
Etc ...

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 TForm1.listeClick(Sender: TObject);
begin
req_infos.Params[0].Value := req_listeVOITURE_IMMA.Value;
req_infos.Active := true;
 
//edit_v_type.Text := req_infosVOITURE_TYPE.text;
 
// Cela ne marche pas, car j'ai une erreur lorsque je souhaite
// ajouter des champs au TQUERY req_infos
// L'erreur : TAB_VOITURE : Le champs matricule est introuvable.
// pourtant TAB_VOITURE contient tous les champs de la table voiture :
// VOITURE_IMMA, VOITURE_TYPE, VOITURE_MARQUE, VOITURE_NUM, VOITURE_ACHAT
 
req_infos.Close;
 
end;

La tu cliques sur ta listbox, mais tu recherches vis a vis de la requete qui n'est liée à rien.
Et si ca marche, tu auras toujours la valeur de resultat où pointe req_liste.

De plus ta requete ne fonctionnera qu'une fois, vu que tu modifies le parametre une fois, il faut recharger la requete donc je te conseil de faire la requete en dynamique.

[gregb]

Tu pourrais me faire un exemple stp sur les requetes dynamiques ?

Comment o ntulise un TdbLookUP ?

[Rayek]

Je vais prendre ton code en exemple pour une requete dynamique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
With req_infos do
begin
  Close; //on ferme la requete pour genere la nouvelle
  SQL.clear; // on efface l'ancienne requete
  SQL.Add('select VOITURE_TYPE'); //
  SQL..Add('from BG_VOITURE'); // on reécrit la requete
  SQL.Add('where VOITURE_IMMA=:matricule'); //
  ParamCheck := True; // (conseillé)
  Params.ParamByName('matricule').value := [La valeur de recherche]
  Open; // on execute la requete.
end;

Concernant le dblookuplistbox, ca fonctionne comme pour le dblookupcombobox et tu pourras voir ca ici

[gregb]

OK merci, je vais voir ce que ca donne...

Par contre, je comprends pas pkoi on utilise un dblookuplistbox car, je travaille sur une seule table....

Je veux afficher toutes les voitures et quand on clique sur l'une, il s'affiche ses caracteristiques... tu vois ?

MON MSN : rosewood_billy@hotmail.com ca serait cool