Inhalte eines Fields in eine ComboBox Laden

[Redeemer]

Eben hieß die Spalte noch Themas, was sich verdammt nach einem Verstoß gegen 1NF anhört, aber egal. Jetzt soll sie aber Thema heißen... Wie denn jetzt?

[freejay]

Zitat von Redeemer:

Eben hieß die Spalte noch Themas, was sich verdammt nach einem Verstoß gegen 1NF anhört, aber egal. Jetzt soll sie aber Thema heißen... Wie denn jetzt?

Soll das ein Beitrag zu diesem Thema sein? Wenn ja verstehe ich ihn nicht...

Nachtrag:

Ooops! Manchmal sieht man den Wald vor lauter Bäumen nicht... Vergiss diesen Post...

[Juergen2020]

Danke für die netten Kommentare. Und ihr habt Recht: In meinem Beispiel "ID Themas Werte" sind die Beschriftungen nicht ganz korrekt. Aber mKinzler hat den Sinn schon durchschaut.

Ich lege, wenn der User Online ist, das komplette Query (Select * From Sammler) per Query.SaveToFile() beim User ab. Beim Offline-Start werden die Daten genauso geladen.

Das funktioniert auch. Beim Starten gehe ich dann durch die Daten und hole die Einträge für die jeweilige ComboBox.

Bleibt zum Schluss eigentlich nur das Thema TDBLookUpComboBox und warum meine Procedure nicht funzt. (obwohl ich sie jetzt hier nicht verwenden werde) Post #5

[Jumpy]

Zu #5: OnDropDown ist mMn das falsche Event, um die ComboBox mit Daten zu füllen. Irgendwo anders, z.B. in einer anderen ComboBox passiert irgendwas, weswegen der auswählbare Inhalt von ComboBox2 sich ändern soll, dann muss dein Code z.B. beim OnChange Event der ersten ComboBox eingebaut werden.

Bzgl. Oflline: Wie sollen da Queries funktionieren?

[Juergen2020]

Also SQL-Abfragen funktionieren dann nicht, aber ich kann per Filter die Datenmengen anpassen und weiter verarbeiten:

Code:

Procedure Offline;
begin with Form1 do
       begin ADOQuery1.Connection := nil; 
          if fileexists(pdir+'Konfig\2020.db') then //pdir = Programmverzeichnis
            ADOQuery1.LoadFromFile(pdir+'Konfig\2020.db');
       end;
end;

[mkinzler]

Wenn AdoQuery1 geöffnet ist. Kannst Du da das DataSet dann ber DataSource als ListSource mit der Lookup-Combo verbinden.

Delphi-Quellcode:

DataSource.DataSet := AdoQuery1;
DBLookupCombo.ListSource := DataSource;
DBLookupCombo.ListField := 'Wert';
DBLookupCombo..KeyField := 'ID';