Sort by...

Bruger du Querys ellet Tabel component ?

Hvis du bruger querrys så

with myADOQuerry do
begin
  Close;
  SQL.Text:= 'SELECT * FROM DinTabel ORDER BY navn
  Open;
end;

Hvis du bruger Tabel skal du sætte dit index til navn, det virker kun hvis den database du interfacer til har funktionen

Jeg bruger tabel, det er en access database. hvordan gir jeg den den funktion?

Jeg har ikke den store erfaring med Access databasen, men har du prøvet at sætte indexFieldName ?

with myTable do
begin
  close;
  IndexFieldName:= 'navn';
  open;
end;

Hvis funktionen er supporteret vil tabelen bliver sorteret efter kolonen med dit navn, hvis det ikke sorteres må du anvende et Query som jeg har vist dig ovenover.

Det virker nu. Hvis du vil kan du så ikke lige svare på hvordan man så laver en søge funktion. I ADO. Den skal bare kunne søge i alle kollonner. Du får 30 point mere for den funktion også.

/fun22

så skal du bruge en Query med SQL fx sådan:

SQL.Text := 'SELECT * FROM DinTabel WHERE felt1 LIKE ''%'+SearchText+'%'' OR felt2 LIKE ''%'+SearchText+'%'' OR felt3 LIKE ''%'+SearchText+'%'' ORDER BY navn'

Kan jeg få den forklaret lidt nærmere?

Hvis jeg nu har et edit felt og en knap.

Normalt hvis jeg laver en søgning gidder jeg ikke at lukke databases og lave ny command string.

Så jeg plejer at bruge:

var
  i: integer;
begin
  D1.CommandText := 'SELECT * FROM Virksomheder';
  D1.Open;
  d1.First;
  for I := 0 to d1.RecordCount do
  begin
    if pos('Searchtext', d1.FieldByName('ID').AsString) <>0 then
      Showmessage('Found in row: '+inttostr(I));
  d1.Next;
  end;
end;