VBNet - Форум - Помогите с DAO! Срочно...

Вопрос: Помогите с DAO! Срочно... Добавлено: 03.02.03 18:58

Автор вопроса: lom

Народ, может быть подскажите как в DAO прочесть определённый столбец в базе данных и потом каждую строку этого столбца вставить в отдельный label (т.е. сколько строк в столбце=столько и label'ов), народ, мне это очень необходимо, если кто сможет, то скиньте на a-ha@hotmail.ru
Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

Sergey M.

Вопросов: 9
Ответов: 68

Профиль | | #1

Добавлено: 04.02.03 04:04

'Я думаю, что так:
Dim fso As FileSystemObject
Dim db   As Database
Dim rs   As Recordset
Set fso = CreateObject("Scripting.FileSystemObject")
Set db = OpenDatabase(fso.BuildPath(App.Path, "ИмяБазы.mdb"))
Set rs = db.OpenRecordset("SELECT ИмяСтолбца FROM ИмяТаблицы ORDER BY ИмяСтолбца")
With rs
    If .EOF And .BOF Then .Close: Exit Sub
    Do While Not .EOF
'        Здесь добавляем лайбу и вкидываем в неё значение
'        Лайба(Такаято).Caption = !ИмяСтолбца
        .MoveNext
    Loop
    .Close
End With

Ответить

Номер ответа: 2
Автор ответа:

AlexSid

Вопросов: 4
Ответов: 27

Профиль | | #2

Добавлено: 05.02.03 02:10

Sergey M., а не могли бы Вы, пожалуйста, объяснить глубокий смысл оператора BuildPath. Очень интересно просто. Он что, помогает слэши правильным образом расставить?

Ответить

Номер ответа: 3
Автор ответа:

Sergey M.

Вопросов: 9
Ответов: 68

Профиль | | #3

Добавлено: 05.02.03 03:08

Совершенно верно! Этот метод проверяет в конце пути и в начале имени наличие слэшей и если нехватает то добавляет, а если есть лишние то убирает. Не знаю как на сегодняшний день, но когдато помню у App.Path был такой недостаток, в зависимости от глубины расположения "Диры" он мог добавить, а мог и не добавить слэш....

Ответить

Страница: 1 |