| Вопрос: ComboBox и RecordSource (Help) | Добавлено: 26.01.06 17:50 |
Автор вопроса:  Expert | Web-сайт: expert.motoforever.ru
|
|
Подскажите кто нибудь, как мне в ComboBox залить значения RecordSource.
combo1.AddItem ........ |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  GeorgeGA Вопросов: 1 Ответов: 101 |
Профиль | | #1 | Добавлено: 26.01.06 17:58 |
|
предварительно открыв таблицу do while not RecordSource.eof combo1.AddItem RecordSource.fields("имя столбца" 
RecordSource.next loop |
||
|
Номер ответа: 2 Автор ответа: GeorgeGAВопросов: 1 Ответов: 101 |
Профиль | | #2 | Добавлено: 26.01.06 18:00 |
|
вместо имени столбца можешь использовать его индекс
P.S.нумерация от нулевого |
||
|
Номер ответа: 3 Автор ответа: старик Вопросов: 4 Ответов: 15 |
Профиль | | #3 | Добавлено: 27.01.06 09:22 |
| Может не RecordSourse.next, а RecordSource.MoveNext? | ||
|
Номер ответа: 4 Автор ответа: Expert Вопросов: 2 Ответов: 6 |
Web-сайт: Профиль | | #4 | Добавлено: 28.01.06 13:13 |
|
Я наверное неправельно выразился, мне нужно чтобы в
combo1 отображались все таблици которые, а не столбци,которые есть в базе *.mdb* |
||
|
Номер ответа: 5 Автор ответа: старикВопросов: 4 Ответов: 15 |
Профиль | | #5 | Добавлено: 30.01.06 10:24 |
|
Попробуйте так:
Dim i As Integer Dim sTable As String Dim sNameDb As String Dim dbTest As Database sNameDb = "..." 'путь к файлу *.mdb* Set dbTest = OpenDatabase(sNameDb) 'открыть базу данных For i = 0 To dbTest.TableDefs.Count - 1 sTable = dbTest.TableDefs(i).Name If Left(sTable, 4) <> "MSys" Then 'исключить системные combo1.AddItem sTable End If Next i dbTest.Close |
||
|
Номер ответа: 6 Автор ответа:  ExpertВопросов: 2 Ответов: 6 |
Web-сайт: Профиль | | #6 | Добавлено: 30.01.06 13:14 |
| Спасибо огромное все работает!!! | ||
|
Номер ответа: 7 Автор ответа: ExpertВопросов: 2 Ответов: 6 |
Web-сайт: Профиль | | #7 | Добавлено: 30.01.06 13:14 |
| Спасибо огромное все работает!!! | ||
|
Номер ответа: 8 Автор ответа: ExpertВопросов: 2 Ответов: 6 |
Web-сайт: Профиль | | #8 | Добавлено: 30.01.06 13:15 |
| Спасибо огромное все работает!!! | ||
|
Номер ответа: 9 Автор ответа: GeorgeGAВопросов: 1 Ответов: 101 |
Профиль | | #9 | Добавлено: 30.01.06 15:51 |
конечно же RecordSource.MoveNext,совсем уже замученый
|
||
Страница: 1 |