DBLoopupCombobox-Eintrag auswählen

[Stonyyy]

Hallo

Ist echt superinformativ und echt nett hier, also willkommen zu meiner ersten Frage. Ich hab eine DBLoopupCombobox mit Werten (z.B Eintrag1,Eintrag2,Eintrag3,Eintrag4,usw) aus einer Datenbank. Und ich möchte nun zum Beispiel das der Eintrag "Eintrag3" auswählt wird. Versteht Ihr was ich meine & wie kann man das anstellen?

Danke

Euer Stonyyy

[abi]

Hallo
bin hier zwar auch noch ziemlich neu, aber vielleicht kann ich dir helfen.

Aber leider verstehe ich deine Frage nicht.

Sind deine Einträge denn schon in der ComboBox und was willst du genau auswählen.

gruß
abi

[Stonyyy]

Achtung, es geht hier um DBLoopupCombobox nicht um Combobox. Ich will das also ein Eintrag makiert ist, wie als hätte man in angeklickt. Jetzt verständlicher?

Danke

Euer Stonyyy

[abi]

kann des sein das du zwar deine Werte siehst aber nicht anklicken kannst, meinst du das.

[Stonyyy]

Nein, ein Eintrag so einfach bei Funktionsaufruf makiert werden

[Sharky]

Hai Stonyyy,

dafür musst Du einfach der Eigenschaft .KeyValue der DBLookUpCobmoBox einen passenden Wert zuweisen.

Hier mal ein einfaches Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Query1 do
  begin
    Close;
    SQL.Text := 'SELECT * FROM meintest';
    Open;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 tmpquery : TZQuery;
begin
  tmpquery := TZQuery.Create(self);
  try
    with tmpquery do
    begin
      Connection := ZConnection1;
      Close;
      SQl.Text := 'SELECT id FROM meintest WHERE name = :name';
      ParamCheck := True;
      with Params do
      begin
        ParamByName('name').AsString := Edit1.Text;
      end;
      Open;
      DBLookupComboBox1.KeyValue := FieldByName ('id').AsInteger;
      Close;
    end;
  finally
    FreeAndNil (tmpquery);
  end;
end;

Query1 ist das TDataSet das die Daten für meine TDBLookUpComboBox hat.
In der "Click-Funktion" ermittele ich mit einem zweien Query einfach die ID (Ist bei mir das KeyFeld der DBLoCoBo) und weise diesen Wert dann .KeyValue zu.

[Stonyyy]

Danke für die gute Erklärung. Funktioniert prima

Danke

Euer Stonyyy