RecordSet & Collection ????

[teCa]

Подскажите как оформить цикл так, чтобы записи рекордсета занести как элементы коллекции???

[Konst_One]

Код: Выделить всё

Dim rs As ADODB.Recordset
Dim arr()

...

arr = rs.GetRows()

[teCa]

arr() это будет коллекция?

[alibek]

Это будет массив.

[teCa]

Вот и я думаю, а мне же нужно коллекция

[Konst_One]

а подумать головой не пробовал

[teCa]

Да я думаю

Ну подскажите....

Хорошоб бы пример кода

[Konst_One]

открой мастер создания классов в бейсике и сделай свою коллекцию

[teCa]

Да не нужно мне мастерам, мне кодам нужно....

[alibek]

До кода ты еще не дорос.

[Andrey Fedorov]

Вообще-то Recordset это и есть, грубо говоря, коллекция записей...

[teCa]

Заполняю Recordset SQL запросом...

Код: Выделить всё

Set rstDep = DBconn.Execute("select distinct uid from problems")

Далее проверю rstDep на колличество записей...

Код: Выделить всё

rstDep.Fields.Count

rstDep.Fields.Count возвращает значение 1

Почему??

по запрос

Код: Выделить всё

select distinct uid from problems

возвращает намного больше?

[Antonariy]

Потому что rstDep.Fields это поля, а не записи, поле у тебя всего одно - uid. Чтобы пройтись по всем записям:

Код: Выделить всё

While Not rstDep.EOF
    Debug.print rstDep!uid
    rstDep.MoveNext
Wend

[Nicky]

...по запрос

Код: Выделить всё

select distinct uid from problems

возвращает намного больше?

Интересно, а в этом случае число записей как смотрел?

[teCa]

Интересно, а в этом случае число записей как смотрел?

В Query Analyzer'e посмотрел.

[teCa]

Подскажите еще такую вещь пжста))))

Код: Выделить всё

DBconn.Open (DataEnvironment1.Connection1)
        Set rstDep = DBconn.Execute("select distinct department from problems")
         While Not rstDep.EOF
                     Set rstUsr = DBconn.Execute("select distinct uid from problems where department=" & "'" & rstDep!department & "'")
            While Not rstUsr.EOF
                collUsr.Add rstUsr!uid, CStr(rstUsr!uid)
                rstUsr.MoveNext
            Wend
            'collDep.Add rstDep!department, CStr(rstDep!department)
            rstDep.MoveNext
        Wend

Как мне сделать коллекцию collUsr элементом коллекции rstDep?

[Antonariy]

Никак, rstDep рекордсет, а не коллекция.

[teCa]

'collDep.Add rstDep!department, CStr(rstDep!department)

Вот уже и коллекция.

[Antonariy]

В смысле "сделать коллекцию collUsr элементом коллекции colDep"? collDep.Add collUsr

[GSerg]

С чего бы?

[Antonariy]

С чего бы что?

[teCa]

Что с чего бы??

Нужно чтоб элементами коллекции collDep (коллекция имен отделов) были коллекции (имя отдела) содержащие имена пользователей этого отдела... типо того будет:

Корневая коллекция(коллекция)---->имя отдела(коллекция)----->пользователь(массив)

Результат должен быть таким, чтоб можно было напрямую обращаться к объектам по их ключам.

Корневая коллекция(ключ).имя отдела(ключ).пользователь(индекс)

[Antonariy]

Зачем что с чего бы???

collDep(Name).Users(x)
Так чтоль?

[teCa]

Да Да, точно так

Я сам не понял, что счего и для чего)

[Antonariy]

Код: Выделить всё

While Not rstDep.EOF
    Set rstUsr = DBconn.Execute("select distinct uid from problems where department=" & "'" & rstDep!department & "'")
    While Not rstUsr.EOF
        collUsr.Add rstUsr!uid, CStr(rstUsr!uid)
        rstUsr.MoveNext
    Wend
    collDep.Add collUsr, CStr(rstDep!department)
    rstDep.MoveNext
Wend

[teCa]

Хитро получается.....

Мнеже нужно менять коллекции

К примеру если у меня 30 отделов, не ужто нужно объявлять 30 коллекций? Можно их создовать каккто динамически?причем имя брать для нею нужно из значения rstDep!department??

Подскажите как можно это организовать...

[Antonariy]

Код: Выделить всё

sub x()
dim collUsr as Collection
While Not rstDep.EOF
    Set rstUsr = DBconn.Execute("select distinct uid from problems where department=" & "'" & rstDep!department & "'")
    Set collUsr = New Collection
    While Not rstUsr.EOF
        collUsr.Add rstUsr!uid, CStr(rstUsr!uid)
        rstUsr.MoveNext
    Wend
    collDep.Add collUsr, CStr(rstDep!department)
    rstDep.MoveNext
Wend
end sub

[teCa]

А резве в итоге я не буду каждый раз переписывать одну и туже подколлекцию и менять её ключ?Или это у меня получатся разные подколлекции?

И еще:

почему не могу посмотреть элементы collDep??

Код: Выделить всё

Wend
            collDep.Add collUsr, CStr(rstDep!department)
            Debug.Print collDep(rstDep!department)
            rstDep.MoveNext
        Wend

но сам код отрабатывает без ошибок.А на Debug.Print collDep(rstDep!department) спотыкается.

[Antonariy]

Код: Выделить всё

А резве в итоге я не буду каждый раз переписывать одну и туже подколлекцию и менять её ключ?

Нет. Set collUsr = New Collection создает новую коллекцию, а ссылка на старую остается в collDep.

А на Debug.Print collDep(rstDep!department) спотыкается.

Потому что collDep(x) возвращает то, что ты в нее положил - другую коллекцию, а не число или строку.