🚀 go-pugleaf

hi all

as title I create recordset through TADOConnection.

No Error, Warning.

But wow there is Stack overflow problem.

problem code is following this.

  objConn->CursorLocation = clUseClient;
  objRsTitles->Recordset  = objConn->Execute(WideString("select * from
titles"),
                                             cmdText,
                                             TExecuteOptions() <<
eoAsyncExecute);

  while (!objRsTitles->Eof)
  {
    Ls->Items->Add(objRsTitles->FieldByName("title_id")->AsString);
    objRsTitles->Next();
  }

I don't know what problem is. help me.

And then

if above code is

while (!objRsTitles->Recordset->Eof)
  {
    Ls->Items->Add(objRsTitles->FieldByName("title_id")->AsString);
    //  I Suppose this is wrong. but How do I retrieve data of field and
append it in listbox?
    objRsTitles->Recordset->MoveNext();
  }

,

How Ls->Items->Add(objRsTitles->FieldByName("title_id")->AsString); does
change?

Nice Programming and All Happiness~