Delphi-Quellcode:
procedure TFormMain.Open;
begin
while ADOQuery1.Active do
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select * from TAC8';
ADOQuery1.Open;
While Not ADOQuery1.Eof do begin
// ADOQuery1.FindField('Feld1'):=inttostr(Taco);
ADOQuery1.Locate('Feld1',inttostr(taco),[LoPartialKey]);// zeigt immer den letzten Datensatz
hst:= ADOQuery1.FieldValues['Feld2'];
modell:=ADOQuery1.FieldValues['Feld3'];
zula:=ADOQuery1.FieldValues['Feld4'];
land:=ADOQuery1.FieldValues['Feld5'];
ADOQuery1.Next;
end;
memo1.Lines.add('Manufacturer :'+hst);
memo1.Lines.add('Model :'+modell);
memo1.Lines.add('Reg. :'+zula);
memo1.Lines.add('Country :'+land);
end;
ich versuch damit zum beispiel Im Feld1 nach taco zu suchen gefunden wird aber ein feld mit anderen Inhalt Warum