[Delphi] Sort AdoTable

[Verwijderd]

Als ik gesorteerde waarden van een adotable in een ListBox wil plaatsen en doe dat met dit stukje code:

code:

procedure ListFiller;
var
  LastValue, I : Integer;
begin
  Form1.ListBox1.Clear;
  With DataModule2.ADOTable1 do begin
    Last;
    LastValue := FieldByName('id').Value
    First;
    Sort := FieldByName('Naam').Value;
      for I := 0 to LastValue - 1 do begin
        Form1.ListBox1.Items.Append(FieldByName('Naam').Value);
        Next;
      End;
  End;
End;

dan krijg ik de melding dat het verkeerde typen zijn. Dat klopt ook wel want de ene is widestring en de andere in variant. Maar hoe doe ik het nou zo dat ik netjes een gesorteerde listbox krijg?

[EfBe]

Ik ken delphi verder niet maar wellicht moet je kijken naar:
1) de ADO recordset objects hebben een sort property, die maakt dat de recordset gesorteerd wordt
2) alle listboxes gebaseerd op de win32 listbox kunnen ook sorten middels een message. Wellicht heeft delphi in haar library ook een sortproperty op de listbox?

[Just_a_Gamer]

Verwijderd schreef op 12 June 2003 @ 17:16:
Als ik gesorteerde waarden van een adotable in een ListBox wil plaatsen en doe dat met dit stukje code:

code:

procedure ListFiller;
var
  LastValue, I : Integer;
begin
  Form1.ListBox1.Clear;
  With DataModule2.ADOTable1 do begin
    Last;
    LastValue := FieldByName('id').Value
    First;
    Sort := FieldByName('Naam').Value;
      for I := 0 to LastValue - 1 do begin
        Form1.ListBox1.Items.Append(FieldByName('Naam').Value);
        Next;
      End;
  End;
End;

dan krijg ik de melding dat het verkeerde typen zijn. Dat klopt ook wel want de ene is widestring en de andere in variant. Maar hoe doe ik het nou zo dat ik netjes een gesorteerde listbox krijg?

Die melding kan je oplossen door FieldByName('Naam').AsString te doen ipv .Value

Als je de naam netjes gesorteerd wilt hebben op alfabet kijk naar de property Sorted van TListBox.

Ook doe je iets raars imo in je code. Je pakt van de laatste record de id maar kan je ook garanderen dat de ID - 1 evenveel records in zit als in de datasource. Het kan dus gebeuren dat je te vaak door de for-loop heen loopt terwijl dat niet hoeft. Gebruik dan dit:

code:

  With DataModule2.ADOTable1 do begin
    First;
      while not EOF do 
      begin
        Form1.ListBox1.Items.Append(FieldByName('Naam').Value);
        Next;
      End;
  End;

PS Ik weet dus niet wat die id doet maar volgens mi is dit iets beter

[LordLarry]

Een variant kan ook leeg zijn en dan kan het niet omgezet worden naar een string. Probeer het eens met AsString. En over welke regel praten we hier eigenlijk? Zoals EfBe al zegt, je kan ook een query gebruiken of het de TListView laten doen.

[Verwijderd]

Jongens! Jullie worden allemaal ontzettend bedankt! Ik ben er uit! Wheew!