Abfrage Prob

[marabu]

Hallo,

vielleicht hast du die Spaltenüberschriften vom Grid nicht berücksichtigt?

Delphi-Quellcode:

with Form4.qrMain do begin
  Sql.Text := Format('SELECT * FROM kunden WHERE UPPER(Nachname) LIKE ''%s%''', [Uppercase(k)]);
  ShowMessage(Sql.Text);
  Open;

  sg.RowCount := RecordCount + sg.FixedRows;
  iRow := 0;
  while not Eof do begin
    sg.Cells[1, iRow] := FieldByName('ID').AsString;
    sg.Cells[2, iRow] := FieldByName('Vorname').AsString;
    sg.Cells[3, iRow] := FieldByName('Nachname').AsString;
    Inc(iRow);
    Next;
  end; 
  Close;
end;

Grüße vom marabu