Do Until Rec.EOF
...
Rec.MoveNext
Loop
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
For I = 0 To oRs.RecordCount - 1
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
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0