ADOQuery erwartet SQL ich hab aber keins

[Sharky]

Ich wollte dir halt alle Komponenten zeigen.

ICH habe in deinem DemoCode schon gestern abend ein ADOQuery eingebaut *gg*

[Daniel B]

Zitat von Sharky:

ICH habe in deinem DemoCode schon gestern abend ein ADOQuery eingebaut *gg*

Und mir nicht davon gesagt Du fieser Hai Du!

Na gut, ich geh jetzt mal schnell Duschen und dann gehts weiter. Dann mach ich das mal nur mit dem Query und ich hoffe das ich bald kreuz und quer(y) sortieren kann.

[Jens Schumann]

Hallo Daniel,
das Dataset würde ich nicht entfernen. Entferne lieber die Query.
Die "richtige" Komponente für ADO ist das TADODataset. TADOTable und TADOQuery sind lediglich
Kompatibilitätskomponenten für TTable und TQuery.

[Daniel B]

Hallo Jens,

das geht ja Klasse damit, einfach nur die Komponente gewechselt und schon gehts. Danke Dir!
Und ne Zeile weniger isses auch noch, da es das Clear anscheinend nicht braucht. *gg*

Delphi-Quellcode:

  case SLAdress.iSortIndex of
    0:
      begin
        if SLAdress.bSortOrder then
        begin
          ADODataSet1.Close;
          ADODataSet1.CommandText := 'SELECT * FROM Person ORDER BY ID ASC';
          ADODataSet1.Open;
//          ADOQuery1.Close;
//          ADOQuery1.SQL.Clear;
//          ADOQuery1.SQL.Add('SELECT * FROM Person ORDER BY ID ASC');
//          ADOQuery1.Open;
        end
        else if not SLAdress.bSortOrder then
        begin
          ADODataSet1.Close;
          ADODataSet1.CommandText := 'SELECT * FROM Person ORDER BY ID DESC';
          ADODataSet1.Open;
//          ADOQuery1.Close;
//          ADOQuery1.SQL.Clear;
//          ADOQuery1.SQL.Add('SELECT * FROM Person ORDER BY ID DESC');
//          ADOQuery1.Open;
        end; //if
      end;

Also wieder raus mit dem Query, wer braucht das schon.

[Sharky]

Bei mir geht es auch mit einem Query.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ADOQuery1.Close;
 if (bSortOrder) then
  begin
   ADOQuery1.SQL.Text := 'SELECT * FROM person ORDER BY ID DESC';
  end
 else
  begin
   ADOQuery1.SQL.Text := 'SELECT * FROM person ORDER BY ID';
  end;
 ADOQuery1.Open;
 bSortOrder := not (bSortOrder);
end;