combobox et listbox avec plusieurs tables

Version imprimable

15/12/2011, 13h25
misquinetata

combobox et listbox avec plusieurs tables

Bonjour a vous tous
voila j'ai une base access qui contiend 3 tables comme suit
table 1 nommée readers avec items : id , reader
table2 nommée radios avec items: ref, idreader, chaine,adress
table3 nommée tv avec items: ref,idreader,chaine,adress
je rempli le combobox avec les items de la table readers puis je veux que lorsque je click sur l'tems du combobox affiche l'tem 'chaine' d'une des autres tables

merci de m'aider sachand que je suis debutant
si c'ést possible un exemple:ccool:
15/12/2011, 13h33
ShaiLeTroll

Dans le OnChange, tu dois pouvoir faire un SELECT, un Filter ou un Locate en utilisant soit le libellé sélectionné soit en utilisant la propriété Objects pour stocker des Identifiants !
Tu fais le filtre sur les deux tables qui je suppose sont affichés par des TDBListBox
Il serait même possible avec une UNION d'afficher Radio+TV dans la même TDBListBox

Il n'y a pas de grande différence avec le sujet : comment relier combobox et listbox en delphi
15/12/2011, 14h22
misquinetata

merci mon professeur mais j'ai essayer et je ne suis pas arriver de faire un union ou un select peut tu me donner un exemple et merci une autre fois

Ne m'appelle pas Professeur, c'est un vrai titre qui se mérite, ne l'utilise pas n'importe comment tout simplement parce que mon ton péremptoire te déplait !

En reprenant les sources du sujet : comment relier combobox et listbox en delphi
Puisque c'est EXACTEMENT la même chose !

Avec deux TDBListBox, chacune connecté à leur proprose DataSource
1 DataSource connecté sur TableRadios
1 DataSource connecté sur TableTV

TableRadios et TableTV sont TADOTable ouvert sur Radio et TV, ils contiennent tous les enregistrements des tables
Tu auras un volume de données très faible et avec ACCESS, le SQL n'est pas très performant, je t'encourage tout de même à lire :

LE SQL de A à Z : 2eme partie - le simple (?) SELECT et les fonctions SQL
LE SQL de A à Z : 3e partie - les jointures
LE SQL de A à Z : 4e partie - groupage et ensembles
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 procedure TForm1.ComboBox1Change(Sender: TObject); begin if combobox1.ItemIndex > -1 then begin if TableReaders.Locate('reader', combobox1.Items[combobox1.ItemIndex], []) then begin TableRadios.Filtered := False; TableRadios.Filter := 'idreader = ' + TableReaders.FieldByName('id').AsString; TableRadios.Filtered := True; TableTV.Filtered := False; TableTV.Filter := 'idreader = ' + TableReaders.FieldByName('id').AsString; TableTV.Filtered := True; end; end; end;
Si tu ne veux pas utiliser de TDBListBox et de TDataSource, tu peux utiliser la TListBox et remplir avec une boucle
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 ListBoxRadios.Items.Clear; with TableRadios do begin First; While Not EOF do begin ListBoxRadios.Items.Add(FieldByName('chaine').AsString); Next; end; end; ListBoxTV.Clear; with TableTV do begin First; While Not EOF do begin ListBoxTV.Items.Add(FieldByName('chaine').AsString); Next; end; end;
Si tu veux une seule ListBox qui regroupent tout
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 ListBoxRadiosTV.Items.Clear(); with TableRadios do begin First; While Not EOF do begin ListBoxRadiosTV.Items.Add(FieldByName('chaine').AsString); Next; end; end; with TableTV do begin First; While Not EOF do begin ListBoxRadiosTV.Items.Add(FieldByName('chaine').AsString); Next; end; end;

merci bien voila j'ai un peux combiner vos codes comme cela et pour le moment ca marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if combobox1.ItemIndex > -1 then
  begin
    if adoTable1.Locate('reader', combobox1.Items[combobox1.ItemIndex], []) then
    begin
       adoTable2.Filtered := False;
       adoTable2.Filter := 'idreader = ' + adoTable1.FieldByName('id').AsString;
       adoTable2.Filtered := True;
       ListBox1.Items.Clear;
 
      with adoTable2 do
      begin
        First;
        While Not EOF do
        begin
          ListBox1.Items.Add(FieldByName('chaine').AsString);
          Next;
        end;
      end;
 
      adoTable3.Filtered := False;
      adoTable3.Filter := 'idreader = ' + adoTable1.FieldByName('id').AsString;
      adoTable3.Filtered := True;
 
      with adoTable3 do
      begin
        First;
        While Not EOF do
        begin
          ListBox1.Items.Add(FieldByName('chaine').AsString);
          Next;
        end;
      end;
    end;
  end;
end;

maintenant je veut lorsque je click sur la chaine du lisbox mon mediaplayer
play l'adress,

merci bien voila j'ai un peux combiner vos codes comme cela et pour le moment ca marche
code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
 
procedure TForm1.ComboBox1Change(Sender: TObject);
 
 
    begin
     if combobox1.ItemIndex > -1 then
  begin
    if adoTable1.Locate('reader', combobox1.Items[combobox1.ItemIndex], []) then
    begin
 
       adoTable2.Filtered := False;
       adoTable2.Filter := 'idreader = ' + adoTable1.FieldByName('id').AsString;
       adoTable2.Filtered := True;
               ListBox1.Items.Clear;
      with adoTable2 do
      begin
        First;
        While Not EOF do
        begin
          ListBox1.Items.Add(FieldByName('chaine').AsString);
          Next;
        end;
      end;
 
 
      adoTable3.Filtered := False;
       adoTable3.Filter := 'idreader = ' + adoTable1.FieldByName('id').AsString;
      adoTable3.Filtered := True;
 
      with adoTable3 do
      begin
        First;
        While Not EOF do
        begin
          ListBox1.Items.Add(FieldByName('chaine').AsString);
          Next;
        end;
      end;
    end;
  end;
end;

maintenant je veut lorsque je click sur la chaine du lisbox mon mediaplayer
play l'adress,

C'est toujours la même logique !

Essaye de mieux comprendre les objets de la VCL comme le TComboBox et TListBox !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure TForm1.ListBox1Click(Sender: TObject); begin if ListBox1.ItemIndex > -1 then begin if adoTable2.Locate('chaine', ListBox.Items[ListBox1.ItemIndex], []) then begin MediaPlayer.FileName := adoTable2.FieldByName('address').AsString; MediaPlayerPlay(); end else begin if adoTable3.Locate('chaine', ListBox.Items[ListBox1.ItemIndex], []) then begin MediaPlayer.FileName := adoTable3.FieldByName('address').AsString; MediaPlayerPlay(); end; end; end; end;
Je suppose que tu as testé le TMediaPlayer avec une adresse d'exemple !
Je ne l'ai toujours utilisé que via FileName avec des fichiers en local, tes adresses sont des URL ?

Je croyais que tu voulais apprendre à programmer ?
Tu n'as pas l'impresssion que l'on te fait tout là ?

voila mon professeur j'ai un peux modifier ton code pour le lisbox avec ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
 if ListBox1.ItemIndex > -1 then
  begin
    if adoTable2.Locate('chaine', ListBox1.Items[ListBox1.ItemIndex], [])   then
    begin
      edit1.text := adoTable2.FieldByName('adress').AsString;
      MediaPlayer.url:= edit1.text;
    end
    else
    begin
      if adoTable3.Locate('chaine', ListBox1.Items[ListBox1.ItemIndex], [])   then
      begin
        edit1.text := adoTable3.FieldByName('adress').AsString;
      MediaPlayer.url:=edit1.text;
      end;
    end;
  end;
end;

un peut moche mais sa fonctionne merci bien une autre fois

15/12/2011, 16h23
ShaiLeTroll

Heureusement que je t'ai demandé de ne pas m'appeler "Professeur" :roll:

URL dans TMediaPlayer ?
Tu utilises une version importée du composant WindowsMediaPlayer de la DLL "wmp.dll" et non celle de l'unité MPlayer fournie avec Delphi ?

Ce sujet est donc :resolu: ?
15/12/2011, 16h57
misquinetata

oui vous avez raison j'ai utiliser windowsmediaplayer je vous remercie