combobox füllen

[yoshie]

hi leute,

uund zwar würde ich gerne eine combobox mit einer datenspalte meiner mysql datenbank füllen. dh. ich habe eine spalte "haus" daruunter stehen datensätze also haus1 haus2 etc. Diese möchte ich gerne über eine combobox ausgegeben haben wollen. Ist dies möglich und wenn ja wie?

würde mich über hilfe freuen.

[Luckie]

Sollte mit einer DBCombobox gehen.

[yoshie]

nein geht nicht, weil ich keine datasource verwende, ich arbeite mit den zeoskomponenten und möchte nicht mit odbc oder so was anfangen.

[Robert_G]

Ich habe mal schnell Code aus einem meiner Projekte kopiert & kommentiert.
Ein paar der Methoden der Zeos-kompos werden sich von DOA unterscheiden, aber anhand der OH solltest du es übersetzen können.

ProtocolCmb ist eine Combobox in deren OnChange-Event dieser Code steht
PanelCmb ist die Combobox, die mit Daten gefüllt wird.

Delphi-Quellcode:

  // gibt eine Meldung incl. Unit & Codezeile, wenn die Session nicht angemeldet ist
  Assert(MainSession.Connected, 'ProtocolCMBChange: Mainsession not connected');

  With Query Do
  Begin
    SQL.Text :=
      'SELECT DISTINCT PANEL' + #10 +
      'FROM   CTSdd.PANEL' + #10 +
      'WHERE  PROTOCOL = :i_Protocol';

    // die 2 Zeilen werden sich von den Zeos unterscheiden...
     // suche in der OH nach "Parametern", "Bind-Variablen" oder "SQL-Variablen" in Verbindung mit einer ZeosQuery
    DeclareVariable('i_Protocol', otString);
    SetVariable('i_Protocol', ProtocolCMB.Text);

    Execute;

    PanelCmb.Items.Clear;
    While Not (Eof) Do
    Begin
      PanelCmb.Items.Add(Field('Panel'));
      Next;
    End;

    If RowCount > 0 Then
      PanelCmb.ItemIndex := 0;

    Close;
  End;

Ich hoffe du kannst es soweit abwandeln, dass es bei dir läuft...

[yoshie]

ielen dank ich werde es mir mal anschauen ich melde mich nochmal.

greetz yosh