Discussion :

[misquinetata]

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

[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

[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

[ShaiLeTroll]

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 :

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 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 :

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
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 :

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
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;

[misquinetata]

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

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
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,

[misquinetata]

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

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
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,

[ShaiLeTroll]

C'est toujours la même logique !

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

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
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à ?

[misquinetata]

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

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
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