Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.12.2008, 15:06   #1
evgenmil
Пользователь
 
Регистрация: 29.11.2008
Сообщений: 16
Вопрос Access+TreeView+ListView

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

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

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

Заранее благодарю!!!
Изображения
Тип файла: jpg form.jpg (47.1 Кб, 177 просмотров)
evgenmil вне форума Ответить с цитированием
Старый 01.12.2008, 15:22   #2
Sm1Le
Форумчанин
 
Аватар для Sm1Le
 
Регистрация: 31.10.2008
Сообщений: 500
По умолчанию

хммм в АДОКоннект есть метод GetTableName ....
у TreeView есть OnClick ....
а 3 опиши а то что то я не понимаю =(
Skype : UASm1Le.
Sm1Le вне форума Ответить с цитированием
Старый 01.12.2008, 20:34   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

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;
Serge_Bliznykov вне форума Ответить с цитированием
Старый 01.12.2008, 20:39   #4
Sm1Le
Форумчанин
 
Аватар для Sm1Le
 
Регистрация: 31.10.2008
Сообщений: 500
По умолчанию

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

Потому как это переводиться Дерево - Видеть ( другими словами вид как дерево ), а в данном случае просто записи одного уровня как обычный ЛистБокс =) Так что подумайте зачем вам там ТрииВью =)
Skype : UASm1Le.
Sm1Le вне форума Ответить с цитированием
Старый 08.08.2009, 00:36   #5
anoire
Новичок
Джуниор
 
Регистрация: 08.08.2009
Сообщений: 1
По умолчанию

ищи DBTreeView или VirtualTree
anoire вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ListView Лубышев Общие вопросы Delphi 6 18.07.2008 16:04
ListView aesoem Общие вопросы Delphi 4 05.07.2008 15:55
ListView Terran Общие вопросы Delphi 2 05.04.2008 23:15
TreeView и ListView Scorpeon Компоненты Delphi 20 15.11.2007 15:57
Delphy и Access.вводя инфу во вторичный файл Access, она отражалась в первом ADOTable Lev БД в Delphi 0 11.11.2007 12:14