hent fra datasource til ComboBox1

Datasource3.dataset.open
Datasource3.dataset.first
combobox1.items.Clear;
while not Datasource3.dataset.eof
begin
  combobox1.items.add(Datasource3.dataset.fieldbyname(\'ven_navn\').AsString);
  Datasource3.dataset.next;
end;
Datasource3.dataset.close;

virker ikke.... jeg skal dog bemærke jeg henter datasource3 fra form1 men jeg har husket at skrive form1. før ....se min kode nu har lavet lidt om på den

Timer1.Enabled :=  true;
Form1.Datasource3.dataset.open;
Form1.Datasource3.dataset.first;
combobox1.items.Clear;
while not Form1.Datasource3.dataset.eof do
begin
  combobox1.items.add(Form1.Datasource3.dataset.fieldbyname(\'ven_id\').AsString);
  Form1.Datasource3.dataset.next;
end;
Form1.Datasource3.dataset.close;
Timer1.Interval := 100000;

hvis du har data i dit dataset kommer de ind i din combobox, men hvad bruger du en timer til ???

Til at opdater.... den henter fra Mysql til datasource ....

noget kunne tyde på at dit dataset er tomt, ellers ville det virke

Nop... det er den ikke da jeg laver en omgang knappe i en while med den.. men ser lige lide nemmer på det... skriver hvis der kommer noget nyt

du kan jo sætte et breakpoint i while lykken

ok hvordan... jeg er lidt af en newbie.... jeg har arbejdet med delphi for 4 år siden har glemt ALT

begin
Timer1.Enabled :=  true;
with form1.DataSource3.DataSet do
begin
first;
while not Eof do
  begin
Form1.Datasource3.dataset.first;
  combobox1.items.add(Form1.Datasource3.dataset.fieldbyname(\'ven_id\').AsString);
  Form1.Datasource3.dataset.next;
end;
next;
end;
Form1.Datasource3.dataset.close;
Timer1.Interval := 100000;
end;

end.


bør det her ikke virke

combobox1.items.add(Form1.Datasource3.dataset.fieldbyname(\'ven_id\').AsString);


  er du sikkeri den her sag ??!

JA, helt sikker.

prøv lige denne kode :

begin
//Timer1.Enabled :=  true;
with form1.DataSource3.DataSet do
begin
first;
while not Eof do
  begin
    ShowMessage(fieldbyname(\'ven_id\').AsString);
//Form1.Datasource3.dataset.first; //du skal IKKE First\'e her
  combobox1.items.add(fieldbyname(\'ven_id\').AsString);
  next;
end;
//next;
end;
Form1.Datasource3.dataset.close;
//Timer1.Interval := 100000;
end;

end.

OK.... når form2 popper op sker der ikke en skid men når jeg LUKKER den popper alle de der ven_id frem MEN de kommer ikke en gang de bliver ved med at komme og når jeg har sagt ok 100 gang peger den bare på denne linie

  combobox1.items.add(fieldbyname(\'ven_id\').AsString);

Men er det ikke pga

first;
while not Eof do
  begin
    ShowMessage(fieldbyname(\'ven_id\').AsString);
//Form1.Datasource3.dataset.first; //du skal IKKE First\'e her
  combobox1.items.add(fieldbyname(\'ven_id\').AsString);
  next;


se du first uden for whiler også vil den jo blive ved med at while fordi next sender den jo hen til first ik\' ?!

eller er det bare mig der har fættede minus

Du har nok sat koden i den forkerte event, og nej Next flytter en record frem indtil EOF ( end of file, dvs sidste record );

/Martin

Har fået det til at virke.... sætter den bare til at tilføje der hvor jeg laver knapperne på form1 ... tak for hjælpen .....