Обход записей в рекордсете

[alexshm]

Братцы, подскажите - есть ли способ получить доступ к записям рекордсета как к коллекции записей без их обхода черех MoveFirst, MoveNext и EOF. Мне кажется, что For Each ... Next гораздо симпатичнее.

[Ennor]

Записи в рекордсете хранятся не в коллекции, поэтому For Each Next к ним неприменим. И я не понимаю, с чего это код:

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

Do Until Rec.EOF
  ...
  Rec.MoveNext
Loop

вдруг стал несимпатичным. Снаружи это такой же итератор, как и For Each. Если же тебе нужен доступ к конкретной строке - почитай хелп по свойству AbsolutePosition, кажется, это оно самое. На эту тему ничего сказать не могу, т.к. никогда им не пользовался.

[Tin]

Мне больше нравиться использовать вот это:

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

sConn = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" & Chr(34) & "DSN=Áàçà äàííûõ MS Access;DBQ=C:\project\IP òåëåôîíèÿ\IP.mdb;DefaultDir=C:\project\IP òåëåôîíèÿ;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;" & Chr(34)
oConn.Open sConn
Dim arrEmployees As Variant
UCount = 0
Rem Ñîçäàåì ñïèñîê ïîëüçîâàòåëåé è èõ ëèìèòû
oRs.Open "select Èìÿ,Ëèìèò from Users order by èìÿ", oConn, adOpenKeyset, adLockOptimistic
arrEmployees = oRs.GetRows(oRs.RecordCount)
For I = 0 To oRs.RecordCount - 1
    Users(UCount).Name = arrEmployees(0, I)
    Users(UCount).Limit = arrEmployees(1, I)
    UCount = UCount + 1
Next
oRs.Close


Главное посмотри использование ArrEmployers

[Konst_One]

не очень удачный код по производительности , хотя и будет работать на некоторых курсорах:

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

For I = 0 To oRs.RecordCount - 1

[Tin]

Ну не знаю... Этот метод пошустрее будет ors.movenext...

[Konst_One]

не все курсоры дают возможность узнать кол-во записей в рекордсете,
поэтому MoveNext в цикле более универсален

[Konst_One]

а если уж юзать GetRows, то так:

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

arrEmployees = oRs.GetRows()
J=Ubound(arrEmployees,2)
K=Ubond(arrEmployees,1)
For I = 0 To J
    For m=0 to K
         Debug.Print arrEmployees(m, I)
    Next
Next

[Tin]

Я привел свой пример... Главное в нем getrows...

[Konst_One]

Tin
пример хороший, только не забывай, что лучше один раз вычислить размерности рекодсета, чем их каждый раз в цикле проверять