🚀 go-pugleaf

You provide just a part of your code. This part can produce unpredictable
results. Is DataSource1->DataSet = Query1? Does code below works?


  Query1->SQL->Clear();
  Query1->Close();
  Query1->SQL->Add("SELECT Item_Name FROM table_name WHERE Group_Name =
'Lights'");
  Query1->Active=true;
  //Query1->Open(); //The same as Active = true
  //Query1->ControlsDisabled();
  Query1->First();
  //int countmax=Query1->RecordCount; //do not use RecordCount, it may be
very slow
  while (!Query1->Eof)
  {

ListBox1->Items->Add(Query1->Fields->FieldByName("Item_Name")->AsString);
    Query1->Next();
  }
  //for (int i=0;i<countmax;i++)
  //{
  //  Query1->GetCurrentRecord(item_name);  //do not get directly into
buffer - its implementation differs

//depending db access components - BDE, ADO etc.
  //  ListBox1->Items->Add(group_name);       //you get data into item_name
but add here group_name
  //  Query1->Next();
  //}

----------------------------------------------------------------
Regards,
Viatcheslav V. Vassiliev
http://www.oledbdirect.com
The fastest way to access MS SQL Server, MS Jet (MS Access)
and Interbase (through OLEDB) databases.


"Andrew" <houston@compusmart.ab.ca> �������/�������� � �������� ���������:
news:3e677f28$1@newsgroups.borland.com...
>
> Hi,
> I am using Window 98 SE, BCB5 Pro, Office XP Pro
> I hope this is the right forum.
>
> I have built a table in Access : (such as)
>   Group_Name      Item_Name
>   --------------+----------
>   Lights          Interior
>   Lights          Exterior
>   Power           Doorway
>   Power           Window
>
> I can access the DB OK, put into a table, all is fine.
> When I try to query DB, the SQL does not seem to filter.
>
>   Query1->SQL->Clear();
>   Query1->Close();
>   Query1->SQL->Add("SELECT Item_Name FROM table_name WHERE Group_Name =
'Lights'");
>   Query1->Active=true;
>   Query1->Open();
>   DataSource1->DataSet->ControlsDisabled();
>   DataSource1->DataSet->First();
>   int countmax=DataSource1->DataSet->RecordCount;
>   for (int i=0;i<countmax;i++)
>   {
>     DataSource1->DataSet->GetCurrentRecord(item_name);
>     ListBox1->Items->Add(group_name);
>     DataSource1->DataSet->Next();
>   }
>
>
> This will list all contents of the database under Item_Name,
> even thought they don't match the Query criteria.
> It should only list the first two ?
>
> This worked for SQL 2000, but not for Access?
> how do I tweak this?
>
> Thanks in advance.
> Andrew
>
>