[delphi6][interbase]probleme avec tabcontrol et un dbgrid

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:

---

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?

Code:

---

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:

---

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

---

Renvoi tout les records commencant par A

j ai essayer avec

Code:

---

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:

---

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:

---

tabcontrol1.tabs.text

---

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

Citation:

---

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.

merci beaucoup camarche nikel
voici le code

Code:

---

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;

---