Datenbank Abfragen

[shmia]

Zitat von Gehstock:

Taco ist zb 351708

Bist du sicher ??

Delphi-Quellcode:

procedure TFormMain.Open; 
begin 
     ADOQuery1.Close; // einmal schliesen reicht !
     ADOQuery1.SQL.Text := 'select * from TAC8'; 
     ADOQuery1.Open; 

     memo1.lines.Add(Format('Taco=%d', [Taco]));  // *** Neu
     memo1.lines.Add(Format('Durchsuche %d Datensätze', [ADOQuery1.RecordCount])); // *** Neu
     While Not ADOQuery1.Eof do 
     begin 
        if ADOQuery1.FieldByName('Feld1').AsInteger = Taco then
        begin
           hst:= ADOQuery1.FieldValues['Feld2']; 
           modell:=ADOQuery1.FieldValues['Feld3']; 
           zula:=ADOQuery1.FieldValues['Feld4']; 
           land:=ADOQuery1.FieldValues['Feld5']; 
           memo1.Lines.add('Manufacturer :'+hst); 
           memo1.Lines.add('Model :'+modell); 
           memo1.Lines.add('Reg. :'+zula); 
           memo1.Lines.add('Country :'+land); 
           memo1.Lines.add('==============');
        end
        else // *** Neu
          Memo1.Lines.Add('überspringe '+ADOQuery1.FieldByName('Feld1').AsString); // *** Neu
        ADOQuery1.Next; 
     end; 
end;