Discussion :

[macadam314]

bonjour,
j ai créé un formulaire avec 1 tabcontrol qui a 26 onglet qui sont les lettres de l alphabet.
j ai placé un dbgrid sur le tabcontrol et je voudrais que quand je clicke sur un onglet j ai les données (de la table patient) commencant par la lettre de l onglet qui s affichent dans le dbgrid

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm24.TabControl1Change(Sender: TObject);
begin
ibquery1.Close;
ibquery1.SQL.Clear;
ibquery1.SQL.Add('SELECT * FROM patient WHERE nom LIKE  '+(tabcontrol1.tabs.text));
ibquery1.Open;
end;

maia ca ne fonctionne pas,quelqu un voit il ou j ai fait une erreur?

[portu]

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm24.TabControl1Change(Sender: TObject); 
begin 
ibquery1.Close; 
ibquery1.SQL.Clear; 
ibquery1.SQL.Add('SELECT * FROM patient WHERE nom LIKE " '+tabcontrol1.tabs.text)+'%"'; 
ibquery1.Open; 
end;

Peut être comme cela, il faut mettre entre guillemets la chaîne à rechercher et rajouter % à la chaîne pour lui dire de prendre tout les records commencant par la chaine sans le %.
Exemple :

Code :

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

1
2
 
'SELECT * FROM patient WHERE nom LIKE "A%" ;

Renvoi tout les records commencant par A

[macadam314]

j ai essayer avec

Code :

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

1
2
3
4
5
6
7
procedure TForm24.TabControl1Change(Sender: TObject); 
begin 
ibquery1.Close; 
ibquery1.SQL.Clear; 
ibquery1.SQL.Add('SELECT * FROM patient WHERE nom LIKE " '+tabcontrol1.tabs.text)+'%"'); 
ibquery1.Open; 
end;

et avec

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm24.TabControl1Change(Sender: TObject);
begin
ibquery1.Close;
ibquery1.SQL.Clear;
ibquery1.SQL.Add('SELECT * FROM patient WHERE nom LIKE  '+quotedstr(tabcontrol1.tabs.text+'%'));
ibquery1.Open;
end;

et ca ne marche toujours pas avec la premiere il me met une erreur sql et avec le deuxieme ca compile mais il n y a rien dans le dbgrid
Est ce que c'est bien

Code :

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

tabcontrol1.tabs.text

que je dois mettre pour avoir le texte(lettre de l alphabet) de l onglet?

[portu]

Est ce que c'est bien Code:
tabcontrol1.tabs.text

Heu non, TabControl1.Tabs[TabControl1.TabIndex]
Faites aussi attention à la casse de vos noms de la base de données.

[macadam314]

merci beaucoup camarche nikel
voici le code

Code :

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

1
2
3
4
5
6
7
procedure TForm24.TabControl1Change(Sender: TObject);
begin
ibquery1.Close;
ibquery1.SQL.Clear;
 ibquery1.SQL.Add('SELECT * FROM patient WHERE nom LIKE  '+quotedStr(TabControl1.Tabs[TabControl1.TabIndex]+'%'));
ibquery1.Open;
end;