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:

Zitat von Sharky

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

Und mir nicht davon gesagt Du fieser Hai Du! :lol:

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! :bounce2:
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. ;) :lol:

[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;