SQLQuery funtioniert nicht richtig

[Ferber]

Hi !

Zitat von traudl:

Code:

procedure TMainFrm.grdKundenTitleClick(Column: TColumn);
var i: integer;
    s: String;
begin
      for i := 0 to grdKunden.Columns.Count -1 do begin
          if Column.Index = i then begin
            qryKunden.Close;
            qryKunden.SQL.Clear;
            s:= grdKunden.Columns[i].FieldName;
            qryKunden.SQL.Add('SELECT * FROM kunden ORDER BY ' + s);
            qryKunden.Open;
          end;
      end;
end;

Die Spaltenbreite sollte sich eigentlich nicht ändern.
Versuchs mal so: (die Schleife ist nicht notwendig)

SQL-Code:

procedure TMainFrm.grdKundenTitleClick(Column: TColumn);
begin
  qryKunden.Close;
  qryKunden.SQL.Clear;
  qryKunden.SQL.Add('SELECT * FROM kunden ORDER BY ' + Column.FieldName);
  qryKunden.Open;
end

Hast du persistente columns im DBGrid ?

Verwende doch für das Bild ein DBJpeg (aus der Unit DBJpeg)