Использование компонента TreeView

[girz]

Имеется бд технология ADO нужно по нажатию на каждую категорию в трее открывать таблицу в DBGrid.

[girz]

как связать компонент TreeView c DBgrid
То есть в TreeView есть дерево и при открытие категорий должно открываться соответствующая база в DBgrid. Технология ADO+Access+Delphi
Компоненты ADOconection, ADOtable,datasource

Или подскажите другой способ, как организовать дерево, с последущем выводом в dbgrid.

+Электроника
-Оргтехника
___+Сканеры
___+Монитор
___-Принтер
_____+Лазерные
______-Струиные - вывод списка книг по струиным принтерам в dbgrid
+Математика

[S@fer]

В бд есть таблицы "Электроника, Оргтехника, Принтер, Лазерные"
Или все данные хранятся в одной таблице?
Используйте ADOQuery, в строке запроса делайте выборку в зависимости от выделенного элемента в TreeView

[girz]

Сообщение от S@fer

В бд есть таблицы "Электроника, Оргтехника, Принтер, Лазерные"

Да в бд access есть такие таблицы.

Сообщение от S@fer

Или все данные хранятся в одной таблице?

И такое есть, такой вариант более предпочителен, чем первый.

Сообщение от S@fer

Используйте ADOQuery, в строке запроса делайте выборку в зависимости от выделенного элемента в TreeView

Можно поподробнее.

[S@fer]

Тогда код запроса будет примерно следующим

procedure TForm1.TreeView1Click(Sender: TObject);
begin
AdoQuery.Active:=False;
AdoQuery.SQL.Clear;
AdoQuery.SQL.Add('SELECT * FROM Tablica WHERE Категория="'+TreeView1.Selected.Text;+'"');
AdoQuery.Active:=True;
end;

Если все находится в одной таблице
и

procedure TForm1.TreeView1Click(Sender: TObject);
begin
AdoQuery.Active:=False;
AdoQuery.SQL.Clear;
AdoQuery.SQL.Add('SELECT * FROM "'+TreeView1.Selected.Text;+'"');
AdoQuery.Active:=True;
end;

если в разных, с учетом что таблицы называются также как написаны в TreeView

[girz]

А как заставить выводить то что выбрали в View1Click в dbgrid

[S@fer]

Кидаете на форму ADOQuery, DataSource, DBGrid.
Затем ADOQuery в свойстве Connection выбираете свое соединение,
В DataSource в свойстве DataSet выбираете ADOQuery,
В DBGrid в свойстве DataSource выбираете свой DataSource,
затем при выполнении запроса (который выше). данные будут отображаться в DBGrid'e

[girz]

А как заполнить treeview из таблицы access, с помощью технологии ado. Причем предыдущие взаимодействие с dbgrid должно работать.

[Dark_Spirit]

для варианта когда всё в разных таблицах.
на onShow формы киньте такой обработчик:

var 
....
table_names:TStrings;
index:integer;
....
 begin 
.....
  adoconnection1.GetTableNames(table_names,false);
  for index:=0 to table_names.count-1 do
   treeview1.items.add(treeview1.items[0],table_names[i]) ;
.......

для варианта когда всё в одной таблице

 adoquery.active:=false;
 adoquery.sql.clear;
 adoquery.sql.text:='select distinct <field_with_categories> from <table_name>' ;
 adoquery.open;
 while not adoquery.eof do
  begin
   treeview1.items.add(treeview1.items[0], adoquery.fields[0].value);
   adoquery.next; 
  end;