Fehler bei Index

[hoika]

Hallo,

Feld Artikelnummer solltest du doch selber können.

Delphi-Quellcode:

procedure TForm1.Edit2Change(Sender: TObject);
var  sFoundName: String;
begin
with Query1 do
begin
  SQL.Clear;
  SQL.Add('Select * From Artikel.db');
  SQL.Add('Where ArtikelNr=:ArtikelNr');
  ParamByName('Artikel').AsString:= Edit_Nr.Text;  /// normaler TEdit
  Open;
  try
   if not Query1.EOF  then
    begin
      sFoundName:= FieldByName('Artikel').AsString;
      showmessage(sFoundName);

     // bei mehreren Suchergebnissen folgendes
      while not EOF do
      begin
        sFoundName:= FieldByName('Artikel').AsString;
       // mache was mit sFoundName

        Next;
      end;
    end;
  finally
    Close;
  end;
end;
end;

Heiko