Einzelnen Beitrag anzeigen

Albi

Registriert seit: 4. Mai 2003
Ort: Berlin
458 Beiträge
 
Delphi 7 Professional
 
#18

Re: den aktuellen Datensatz auswählen, und ins edit einfügen

  Alt 4. Jan 2005, 12:26
Hallo,

ich habe das ganze mal durchgespielt. Ich habe mir allerdings ne normal CBox genommen. Dann habe ich mit dem Code

Code:
With Query1 Do
Begin
   Close;
   SQL.Clear;
   SQL.ADD('Select * From Fahrzeuge');
   SQL.Open;
   //CBox füllen
   While Not EOF Do
   Begin
      CBox.Items.add('FieldByName('Kennzeichen').asString;
      Next;
   end;
end;
im OnCreate Ereignis die Kennzeichen in die CBox geschrieben.

Zur Auswertung der CBox dann im OnChange-Ereignis den folgenden Code eintragen

Code:
var KZ: String;
begin
  KZ:= ComboBox1.Text;
  With Query2 DO
  Begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From Fahrtenbuch.db WHERE Kennzeichen Like "'+KZ+'"');
    Open;
  end;
  edit1.Text:= Query2.FieldByName('Startkilometer').AsString; //Hier wird der Wert eingetragen
  ShowMessage(Query2.SQL.Text); //Nur zu Testzwecken um den Inhalt der Abfrage zu testen
end;
Bei mir hat es so einwandfrei funktioniert.

Ich hoffe das hilft Dir jetzt weiter.
  Mit Zitat antworten Zitat