🚀 go-pugleaf

Hi,

I'm doing the query below (it works with the BDE) only when I'm
Open the query is result with an exception:

..Arguments are from the wrong type, ... or have a confict with each
other....

lanstat_id in an INT in my informix database.


 if (ADOQuery1)
 {
   ADOQuery1->Close();
   ADOQuery1->SQL->Clear();
   ADOQuery1->SQL->Add("Select * from landstation where landstat_id =
:stat_id;");
   ADOQuery1->Prepare();

   first = time(NULL);
   for(int i=1000 ; ((i < 100000)  && (!isClosing)) ; i++)
   {
     ADOQuery1->Close();
     ADOQuery1->Params->Items[0]->AsInteger = i;
     ADOQuery1->Open();
     while (!ADOQuery1->Eof)
     {
       StatId=ADOQuery1->FieldByName("landstat_id")->AsInteger;
       Name  =ADOQuery1->FieldByName("landstat_name_wmo")->AsString;
       Result=IntToStr(StatId)+AnsiString("  ")+Name;
       ListBox1->Items->Add(Result);
       ADOQuery1->Next();
       Application->ProcessMessages();
     }
   }
   ADOQuery1->Close();
   second = time(NULL);
   Msg=Msg.sprintf("The difference is: %f seconds",difftime(second,first));
   Caption=Msg;
 }