Discussion :

[pepito62]

Bonjour tout le monde !

Voilà je suis sous Borland Delphi 6 et j'ai créé un DBGrid (via un datasource et un query).

J'ai également un champ où j'aimerais faire de la recherche incrémentable.

Je m'explique :
J'aimerais que le DBGrid se positionne à la ligne X si il trouve la correspondance avec mon champ.

Exemple
ligne 0, Analyse
ligne ..., ...
ligne 4, Compilation
ligne 5, Developpement
ligne 12, Programmation
ligne ..., ....

J'aimerais que le DBGRID se mette à la ligne 4 lorsque je tape la lettre C dans ma zone de texte.
ATTENTION : Je ne veux pas un filtre car il m'empecherait de voir les mots commençant par la lettre P (par exemple)

Comment puis-je faire ceci ? MERCI BCP

[Fabrice ROUXEL 1]

Bonsoir

Essayes comme cela:

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
43
44
45
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, Grids, DBGrids;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Table1.SetRangeStart;  // fonctionne sur les champs indexés
  Table1.FieldByName('Company').AsString := Edit1.Text;
  Table1.ApplyRange;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Table1.DatabaseName := 'DBDEMOS';
  Table1.TableName := 'customer.db';
  Table1.IndexFieldNames := 'Company';
  Table1.Active := True;
end;

end.

[evarisnea]

essaye aussi ceci:

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
43
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, DBTables;
 
type
  TForm1 = class(TForm)
    Table1: TTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Table1.Locate('Company',Edit1.Text,[loPartialKey,loCaseInsensitive]);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Table1.DatabaseName := 'DBDEMOS';
  Table1.TableName := 'customer.db';
  Table1.IndexFieldNames := 'Company';
  Table1.Active := True;
end;
 
end.

[LadyWasky]

c'est ta query que tu dois "piloter" pour te placer sur le bon enregistrement, pas la DBGrid. En te plaçont sur le bon enregistrement (avec locate/find, etc...), ta dbgrid suivra...

[pepito62]

Effectivement, c'est le query.

Et j'ai utiliser la fonction locate.

Merci pour vos réponses