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.

zusammenfalten · markieren

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

Probiers mal so

zusammenfalten · markieren

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;

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

zusammenfalten · markieren

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

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

Mfg, Steve