While virker ikke

din next er kommet et hak for langt ned :)

Prøv med nedenstående:

with DataSource3.DataSet do begin
  First;
  While not Eof do begin
    memo1.Lines.Add(FieldByName(\'besked\').AsString);
    Next;
  end;
mysqlquery3.Active := false;

Snowball

with DataSource3.DataSet do
begin
  First;
  while not Eof do
  begin
    memo1.Lines.Add(FieldByName(\'besked\').AsString);
    Next;
  end;
  mysqlquery3.Active := false;
end;

with DataSource3.DataSet do
begin
  First;
  while not Eof do
  begin
    memo1.Lines.Add(FieldByName(\'besked\').AsString);
    Next;
  end;
  mysqlquery3.Active := false;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
mysqlquery3.SQL.Text := \'select * from CU where til = \'\'\'+form1.DataSource1.DataSet.FieldByName(\'user_id\').AsString+\'\'\' order by msg_id\';
mysqlquery3.Active := true;
with DataSource3.DataSet do
begin
First;
  while not Eof do
  begin
    memo1.Lines.Add(FieldByName(\'besked\').AsString);
    Next;
      end;
    end;
mysqlquery3.Active := false;
Timer1.Interval := 500000;


det er den hele kode og det virker stadig ikke

Der er det galt at dit dataset er TOMT og derfor er EOF TRUE og du kommer aldrig ind i din WHILE løkke, hvis du kom det ville du få den første record en million/milliard gange da din next som sagt står det forkerte sted.

/Martin

Og du er sikker på der er noget data at skrive ud !?

Prøv og lav et breakpoint på linien

memo1.Lines.Add(FieldByName(\'besked\').AsString);

og kør programmet igen. Prøv så og hold musen hen over .AsString og se om der står noget data i hinten der kommer frem !

Snowball

Og hvis du ikke kommer ned til breakpoint\'et, så er det fordi at der som sagt ikke er noget data at skrive ud ;)

Snowball

hmmm der kommer sq ikke data....

Timer1.Interval := 100; hvor langtid er det ?!

10 gange i sekundet !

Snowball

Hvis nu du var lidt smart så testede du dit SQL statement i SQLExploren, så ved du hvad du får af resultat

ok hvordan beder jeg den om at starte en

Timer1.Enabled := true;

når et vindu poper frem

du sætter linen ind i formen\'s OnShow eller OnCreate eller OnActivate event\'s, men hvis det er for at fylde en combobox, hvorfor så bruge en timer ??

nej nej det er til at opdater meno1 som er i en database....

kan man lave en while i en while

Ja, sagtens

VAR
  Stop1, Stop2 : Boolean;


Stop1 := FALSE;
Stop2 := FALSE;

while not stop1 do
while not stop2 do
  begin
    Stop1 := TRUE;
    Stop2 := TRUE;
  end;

ok.... vent jeg opretter en ny...så lav det lig der inde... eller du kan bare lave det her...så sætter jeg flere point på

Ok jeg skal først skal jeg hente

mysqlquery3.SQL.Text := \'select * from CU where til = \'\'\'+form1.DataSource1.DataSet.FieldByName(\'user_id\').AsString+\'\'\' order by msg_id\';
mysqlquery3.Active := true;
with DataSource3.DataSet do
begin
First;
  while not Eof do
  begin
    memo1.Lines.Add(FieldByName(\'besked\').AsString);
    Next;
      end;
    end;


og det der står i FieldByName(\'fra\').AsString skal være en trigger til

mysqlquery5.sql.text := \'select * from chat_user where user_id = \'\'\'+FieldByName(\'besked\').AsString+\'\'\';

også skal den skrive det user_name den har fundet i mysqlquery5 (datasource4) og texten der hedder besked fra datasource3 

så det kommertil at se sådan ud...

user_name -> besked (på samme linie)

Det hedder Master/Detail

Og med mindre du skal bruge DataAware comp. såsom DBMemo og DBEdit behøver du ikke bruge Datasource comp. du kan bruge din Query direkte

/Martin

ok hvordan ???!

mysqlquery5.First
mysqlquery5.FieldByName()
mysqlquery5.Open;
mysqlquery5.Close;
mysqlquery5.Next


osv.

procedure TForm2.Timer1Timer(Sender: TObject);
begin
mysqlquery3.SQL.Text := \'select * from CU where til = \'\'\'+form1.DataSource1.DataSet.FieldByName(\'user_id\').AsString+\'\'\' order by msg_id\';
mysqlquery3.Active := true;
memo1.Lines.Clear;
with DataSource3.DataSet do
begin
First;
  while not Eof do
  begin
  mysqlquery5.sql.text := \'select * from tinychat_user where user_id = \'\'\'+FieldByName(\'fra\').AsString+\'\'\'\';
  mysqlquery5.Active := true;
  with Mysqlquery5.DataSetField do
begin
mysqlquery5.First;
  while not Eof do
  begin
    memo1.Lines.Add(\'Fra\'+mysqlquery5.FieldByName(\'user_name\').AsString+\'->\'+ FieldByName(\'besked\').AsString);
    Next;
    mysqlquery5.Next;
    mysqlquery5.Open;
mysqlquery5.Close;
      end;
      end;
      end;
    end;
mysqlquery3.Active := false;
Timer1.Interval := 4000;

mysqlquery4.SQL.Text := \'select * from CU where fra = \'\'\'+form1.DataSource1.DataSet.FieldByName(\'user_id\').AsString+\'\'\' order by msg_id\';
mysqlquery4.Active := true;
memo2.Lines.Clear;
with DataSource2.DataSet do
begin
First;
  while not Eof do
  begin
    memo2.Lines.Add(FieldByName(\'besked\').AsString);
    Next;
      end;
    end;
Timer1.Interval := 4000;



end;

+mysqlquery5.FieldByName(\'user_name\').AsString+\'->\'+ FieldByName

den mener der er fejl her men jeg er SIKKER på at row user_name findes

fandt fejlen

hmmmtak for hjælpen

.. opretter lig en til ang mysql