Access+TreeView+ListView

[evgenmil]

Здравтвуйте уважаемые эксперты!!!

Пишу программу, используя БД Access, ADOConnection, ADOTable, DataSource. Как мне вывести в TreeView имена всех таблиц из БД Access, и по нажатию на эти имена в ListView выводить все записи в режиме VsReport. Сижу над этой задачей уже около 3-х недель, я только начинающий, и хочется узнать все и сразу, но не получается)))

Надеюсь на вашу помощь.

Заранее благодарю!!!

[Sm1Le]

хммм в АДОКоннект есть метод GetTableName ....
у TreeView есть OnClick ....
а 3 опиши а то что то я не понимаю =(

[Serge_Bliznykov]

Sm1Le. Прикольно! Не знал... ;-)

___________________________________ ___________

evgenmil,
Тогда вот, пример реализации заполнения TreeView:

procedure TForm1.Button1Click(Sender: TObject);
var
  List1 : TStringList;
  MyTreeNode1: TTreeNode;
  i : integer;
begin
  List1 := TStringList.Create;
  ADOConnection1.GetTableNames(List1);

  with TreeView1.Items do
  begin
    Clear; { remove any existing nodes }
    MyTreeNode1 := Add(nil, 'Моя База Данных'); { Add a root node }
    { Add a child node to the node just added }
    for i:=0 to List1.Count-1 do
       AddChild(MyTreeNode1,List1.Strings[i]);
  end;

  FreeAndNil(List1);
end;

[Sm1Le]

я тока не понимаю зачем Трии использовать ...

Потому как это переводиться Дерево - Видеть ( другими словами вид как дерево ), а в данном случае просто записи одного уровня как обычный ЛистБокс =) Так что подумайте зачем вам там ТрииВью =)

[anoire]

ищи DBTreeView или VirtualTree