Fehler bei Index

[DeddyH]

Sind denn auch passende Datensätze vorhanden?

[hoika]

Hallo,

Breakpoint auf Open setzen. F5
Dann im Einzelschritt weiter F7 / F8.

Was sagt denn dann der Debugger ? Irgend ne Exception ?
Wo genau "geht das Programm dann lang" ?

Findet die Query nichts, oder was ?
Übrigends

1. das .db kannst weglassen.
2. die Suche ist hier exakt, er findet also nur die Artikel,
die genauso heissen.


Heiko

[SaFu]

Achso nur die, die eindeutig sind fand es bei meiner lösung gut das, das nächst liegende gesucht wurde und die suche wollte ich um das felt Art.Nr. erweitern.

[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