Dim dbname As String
Dim db As Database
Dim qdef As QueryDef
Dim td As TableDef
Set db = OpenDatabase(dbname)
For Each td In db.TableDefs
List1.AddItem td.Name
Next td
Вопросы по работе с БД в Visual Basic
Сейчас активно изучаю работу с БД (Access) в Visual Basic. Столкнулся с катастрофической нехваткой информации - перелистал уже две книжки с лейболом "для профи". Бестолку. Инфы по этому поводу - ноль. Везде предельно банальные вещи.
Вопросы буду постить сюда.
Итак, первое:
Код:
Тем самым мы получаем список табличек в базе. Вопрос, а как можно получить подобным образом имена столбцов каждой таблицы?
Вопросы буду постить сюда.
Итак, первое:
Код:
Код:
Тем самым мы получаем список табличек в базе. Вопрос, а как можно получить подобным образом имена столбцов каждой таблицы?
Цитата:
Originally posted by hasuhands
Тем самым мы получаем список табличек в базе. Вопрос, а как можно получить подобным образом имена столбцов каждой таблицы?
Тем самым мы получаем список табличек в базе. Вопрос, а как можно получить подобным образом имена столбцов каждой таблицы?
Dim dbname As String
Dim db As Database
Dim qdef As QueryDef
Dim td As TableDef
Dim fd As DAO.Field
Set db = OpenDatabase(dbname)
For Each td In db.TableDefs
List1.AddItem td.Name
For q = 1 To td.Fields.Count
List2.AddItem td.Fields(i).Name
Next q
Next td
[QUOTE]Originally posted by Ashtray
For q = 1 To td.Fields.Count
List2.AddItem td.Fields(i).Name
Next q
Цикл по q, добавляем td.Fields(i)?
Поэтому добавляется только первый элемент, но если меняю на q, при компиляции выдается ошибка "Item not found in this collection"
For q = 1 To td.Fields.Count
List2.AddItem td.Fields(i).Name
Next q
Цикл по q, добавляем td.Fields(i)?
Поэтому добавляется только первый элемент, но если меняю на q, при компиляции выдается ошибка "Item not found in this collection"
Цитата:
Originally posted by hasuhands
[QUOTE]Originally posted by Ashtray
For q = 1 To td.Fields.Count
List2.AddItem td.Fields(i).Name
Next q
Цикл по q, добавляем td.Fields(i)?
Поэтому добавляется только первый элемент, но если меняю на q, при компиляции выдается ошибка "Item not found in this collection"
[QUOTE]Originally posted by Ashtray
For q = 1 To td.Fields.Count
List2.AddItem td.Fields(i).Name
Next q
Цикл по q, добавляем td.Fields(i)?
Поэтому добавляется только первый элемент, но если меняю на q, при компиляции выдается ошибка "Item not found in this collection"
List2.AddItem td.Fields(i - 1).Name
Вот так работает. Почему кстати?
Цитата:
Originally posted by hasuhands
List2.AddItem td.Fields(i - 1).Name
Вот так работает. Почему кстати?
List2.AddItem td.Fields(i - 1).Name
Вот так работает. Почему кстати?
Ты имел ввиду
List2.AddItem td.Fields(q - 1).Name
Правильно. Т.к. первый элемент нулевой, следовательно q-й элемент выходит за пределы.
Цитата:
Originally posted by Ashtray
For q = 1 To td.Fields.Count
List2.AddItem td.Fields(i).Name
Next q
For q = 1 To td.Fields.Count
List2.AddItem td.Fields(i).Name
Next q
Обычно пишут For q = 0 To td.Fields.Count - 1.
А как получить все имеющиеся значения какого-либо поля? То есть столбец: в нем, скажем, три фамилии. Как лучше всего получить их список.
Цитата:
Originally posted by hasuhands
А как получить все имеющиеся значения какого-либо поля? То есть столбец: в нем, скажем, три фамилии. Как лучше всего получить их список.
А как получить все имеющиеся значения какого-либо поля? То есть столбец: в нем, скажем, три фамилии. Как лучше всего получить их список.
Dim rst As Recordset
Set rst = db.OpenRecordset("select ...")
If rst.EOF = False Then
rst.MoveFirst
Do While rst.EOF = False
Debug.Print rst.Fields(td.Fields(i).Name).Value
rst.MoveNext
Loop
End If