[Zeos / SQLite] NonVisuell + ComboBox füllen

[bembulak]

Schönen guten Morgen euch allen!

Ich komme da bei einer Sache nicht weiter, die mir ganz schön Kopfzerbrechen bereitet:

Ich habe eine SQLite3-Datenbank die ich, wie im Tutorial im Lazarus-Wiki beschrieben, wunderbar in einem TBGrid anzeigen kann (Tutor: Zeos Tutorial/de)

Toll mit den visuellen Komponenten zu arbeiten.

Nun aber meine Frage: ich verbinde im Beispiel oben die Komponenten mit ein paar Mauseklicks und alles wunderbar.
Was aber, wenn ich z.B. eine Combobox mit Werten füllen möchte? Mein SQL-Statement würde z.B. so aussehen:

Code: Alles auswählen

SELECT DISTINCT kategorie FROM tabelle

Aber wie führe ich diese Query aus und wie bekomme ich die Werte zurück und füge sie der Combobox hinzu?

Wäre nett, wenn mir jemand einen Tipp geben könnte. Danke.

[monta]

Ich würde auch das empfehlen:
http://wiki.lazarus.freepascal.org/Laza ... e_Tutorial" onclick="window.open(this.href);return false;

ob da nun SQLDb und MySQL oder Zeos und SQLite dran steht ist eigentlich egal, die Grundlagen und Befehle sind letztlich gleich.

Die Query kannst du mit Query.open öffnen.

Auf die Felder der Query kannst du entweder manuell mit Query.FieldByName('kategorie').AsString zugreifen und sie in einer Schleife der ComboBox zuweisen.
Oder du benutzt eine TDBComboBox, die du über eine TDataSource direkt mit der Query Verbinden kannst, sodass die Werte automatisch eingetragen werden.

[KOBOLD Messring GmbH]

Hier ein kleines Kompakt-Beispiel, so mache ich das gerne, eine kleine Proc die eine Liste füllt:

Code: Alles auswählen

Procedure FuelleListe (lst : TStrings);
Begin
  lst.Clear;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add ('SELECT Bez FROM reagenzklassen ORDER BY ID');
  SQLQuery1.Active := TRUE;
  WHILE NOT SQLQuery1.EOF DO
   Begin
     lst.Add (ConvertEncoding (SQLQuery1.FieldByName('Bez').AsString, 'iso88591', 'utf8'));
     SQLQuery1.Next;
   End; { While }
  SQLQuery1.Active := FALSE;
End; { FuelleListe }

Aufruf z.B. mit FuelleListe (Combo1.Lines); in FormCreate (oder wo man will).
Die SQLQuery1.Komponente wurde bereits im Objekt-Inspector zur Design-Zeit mit der Datenbank (z.B. ODBCConnection1 oder MySQL50Connection1) verbunden (kann man natürlich auch im Programm zur Lauf-Zeit machen).
Was gern in die Hose geht: Der interne Zeichensatz der Lazarus/FPC-Komponenten ist UTF8, viele Datenbanken benutzen intern aber den Westeuropäischen ISO8859-1, deshalb die Konvertierung in meinem Beispiel.

[bembulak]

Danke für die Hinweise.
Ich muss gestehen, dass mir hier viele, viele Sachen noch ordentlich schwer fallen.

Auch wenn Komponenten und Objekte sehr nützlich sein können, so sind deren gekapselte Funktionen und Eigenschaften oftmals "black magick" für den Neuling.
Gerade in Pascal möchte man meinen, dass es einfacher ist, aber hier fällt es mir am schwersten, Sachen aus der DB zu ziehen.

@Kobold:
gerade jetzt wo ich hier tippe, sehe ich in der Vorschau, dass du einen Beitrag geschrieben hast:
Vielen Dank - sowas in der Richtung habe ich gemeint.
Hier wird nicht durch einen Eintrag im Objektinspektor die Abfrage eingeleitet, sondern eben per Code. Das hilft mir schon sehr!

[af0815]

... Wäre nett, wenn mir jemand einen Tipp geben könnte. Danke.

LazInfos ? Vielleich das Beispiel mit der Namensdatenbank nehmen, da hat man dann eine DB/Tabelle mit Daten zum Spielen Läuft eigentlich mit (fast) jedem DB System.

[bembulak]

LazInfos ?

@|

Wie und warum ich darauf nur immer wieder vergessen kann.
Manchmal sieht man den "Code vor lauter Units" nicht.
Danke für den Hinweis. Ich werde mir das jetzt mal ausdrucken und als "Gute-Nacht-Lektüre" zu Gemüte führen!