ComboBox aus MySQL befüllen

[SKolberg]

Hi,

habe trotz einiger vieler Themen zu Combobox befüllen immer noch Probleme.
Ich möchte aus der besagten MySQL DB Comboboxen befüllen allerdings bekomme ich entweder nur den ersten Eintrag in die CB oder einen BufferOverflow.

Delphi-Quellcode:

 
 begin
    MainForm.ZQuery1.close;
    ComboBox1.clear;
    MainForm.ZQuery1.sql.add('Select MAT from datenblatt');
    MainForm.ZQuery1.open;

 begin
      ComboBox1.Items.Add(MainForm.ZQuery1.fieldbyname('MAT').Text);
      next;
 end;
 end;

Ich möchte alle einträge und zudem ohne Duplikate, ich habe zwar nen Code der die Duplikate löscht allerdings konnte ich ihn noch nicht verwenden da er mir ja nur einen Eintrag "ausspuckt".

Danke im voraus, Steve

[Jelly]

Probiers mal so

Delphi-Quellcode:

begin 
    MainForm.ZQuery1.close; 
    ComboBox1.items.clear; 
    MainForm.ZQuery1.sql.add('Select MAT from datenblatt'); 
    MainForm.ZQuery1.open; 

    while not MainForm.ZQuery1.eof do begin 
      ComboBox1.Items.Add(MainForm.ZQuery1.fieldbyname('MAT').Text); 
      MainForm.ZQuery1.next; 
    end; 
end;

[dfried]

Na dann solltest du schon auch über alle Datensätze laufen:

Delphi-Quellcode:

 
 begin
    MainForm.ZQuery1.close;
    ComboBox1.clear;
    MainForm.ZQuery1.sql.add('Select MAT from datenblatt');
    MainForm.ZQuery1.open;

 begin
   while not MainForm.ZQuery1.eof do begin
     ComboBox1.Items.Add(MainForm.ZQuery1.fieldbyname('MAT').Text);
     MainForm.ZQuery1.next;
   end;
 end;
 end;

Gruß
Daniel

[SKolberg]

Danke euch beiden.
Son kleiner Fehler der so eine grosse auswirkung hat. Wenn blödheit weh täte.

Mfg, Steve