Discussion :

[Brain3D]

Salut,

J'ai une procedure qui fait une recheche dans une base de donnée access et qui affiche seulement les résultats de la recheche dans le Dbgrid,

Voici ma procédure de recherche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TProgCNS.FindClick(Sender: TObject);
begin
if Recherche.text <> '' then
begin
Sqlsearch := 'SELECT * FROM '+ Ter +' WHERE (Villes LIKE :Search)';
Adoquery.Close;
  with ADOQuery.SQL do begin
  Clear;
  Add(SqlSearch);
  end;
Adoquery.Parameters.ParamByName('Search').value :='%'+Recherche.Text+'%';
Adoquery.Open;
end;
end;

Mon problème survient quand le résultat de la recheche ne donne aucun ou seulement 1 résultat. dans ce cas la scrollbar vertical du Dbgrid disparait complètement. Si j'ai plus de 2 résultat je n'ai aucun problème.

Est-ce possible que même si j'ai 0 ou 1 résultat la scrollbar reste apparente même si elle n'est pas utile ?

Merci

[ShaiLeTroll]

Est-ce utile ? non ?
Pour les ScrollBars, tu peux y accèder via TCustomGrid (voir l'astuce d'accès au méthode protegée dans la FAQ) mais, la DBGrid ayant une étrange façon de gérer sa barre de défilement, cela risque d'amener des effets de bord !