| Вопрос: TreeView ? | Добавлено: 16.01.06 12:25 |
Автор вопроса:  RavIk
|
| Всех приветствую... заранее спасибо за ответы. Вообщем у меня такая проблема вроде как для второкласника. Есть база data.dbf и есть TreeView как сделать заполнить TreeView данными допустим из определенного столбца например name. Помогите бьюсь который день ничего не получается. И если можно кусок кода с ремами. Заранее спасибо... |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #1 | Добавлено: 16.01.06 12:46 |
|
Примеров много с TreeView, скажем в разделе этого сайта Примеры. Используй метод .Nodes.Add для добавления узла. Узлы бывают корневые, родительские, дочерние, предыдущие и последующие. Как работать с dbf посмотри неплохие примеры есть на vb.kiev.ua
кусок кода с ремами.
Позвольте уточнить, это вы на vb6 rem комментируете?? 
|
||
|
Номер ответа: 2 Автор ответа: RavIk Вопросов: 4 Ответов: 13 |
Профиль | | #2 | Добавлено: 16.01.06 12:56 |
|
работать с TreeeView я могу (если назвать работой), как это всё совместить с базой... ума не приложу... да и нечего особо прикладывать
Позвольте уточнить, это вы на vb6 rem комментируете??
нет просто я их так называю. типа 'очишаем txt.text |
||
|
Номер ответа: 3 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #3 | Добавлено: 16.01.06 14:16 |
|
По поводу того, как стоить TreeView по мотивам базы данных (у меня база .mdb, технология работы с базой ADO) - посмотри исходники моей программки:
Справочник кодов городов России и стран ближнего зарубежья.. http://mc-black.narod.ru/adobase.rar |
||
|
Номер ответа: 4 Автор ответа: RavIkВопросов: 4 Ответов: 13 |
Профиль | | #4 | Добавлено: 16.01.06 14:39 |
| Спасибо буду разбираться... | ||
|
Номер ответа: 5 Автор ответа: RavIkВопросов: 4 Ответов: 13 |
Профиль | | #5 | Добавлено: 17.01.06 14:11 |
| нет ничего не получается, помогите кто может, а я знаю что вы можете. просто молчите или нет времени ну уделите мне немного вашего внимания. чем смогу сейчас в будущем отблагадарю. | ||
|
Номер ответа: 6 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #6 | Добавлено: 17.01.06 14:17 |
| А что и с чем не получается. Таблицу DBF ты как открываешь, с получением из таблицы данных проблемы есть? | ||
|
Номер ответа: 7 Автор ответа: RavIkВопросов: 4 Ответов: 13 |
Профиль | | #7 | Добавлено: 17.01.06 14:34 |
|
Всё...!!! Нашел как делать короче вот код...
Option Explicit Dim db As Database Dim rs As Recordset Private Sub Command1_Click() Dim strSQL As String strSQL = "SELECT * FROM base ORDER BY base.[name] ASC" Set db = OpenDatabase("C:\base.mdb", False, False) Set rs = db.OpenRecordset(strSQL) If rs.EOF Then MsgBox "Записей нет.", vbInformation, Me.Caption Exit Sub End If Do While Not rs.EOF tv.Nodes.Add , , , rs("name" 
rs.MoveNext Loop rs.Close End Sub ложим на форму TreeView обзываем его TV Пишу для тех кого коснеться эта проблема |
||
|
Номер ответа: 8 Автор ответа: RavIkВопросов: 4 Ответов: 13 |
Профиль | | #8 | Добавлено: 17.01.06 14:36 |
| Всем огромное спасибо... особенно mc-black за его пример | ||
Страница: 1 |