gegevens recordset in array

[ivdh]

Ik wil gegevens uit een recordset in een array plaatsen. In ASP doe ik dat als onderstaand. Dat heb ik in access ook geprobeerd, maar dat werkt niet. Is het (met aanpassing) mogelijk om dit in access voor elkaar te krijgen?

ArrRst = Rst.GetRows
Velden = UBound(ArrRst, 1)
Records = UBound(ArrRst, 2)

' uitlezen
For x = 0 To Records
ctaak = ArrRst(0, x)
csubtaak = ArrRst(1, x)

' verdere actie
Next x

 

[Hooija]

zoiets

Option Compare Database
Option Explicit
Public Arr(9, 1) As Variant

Public Sub vularray()
Dim DB As Database
Dim RS As Recordset
Dim X As Integer
Set DB = CurrentDb
Set RS = DB.OpenRecordset("Tabel1")
X = 0
While Not RS.EOF
Arr(X, 0) = RS!nummer
Arr(X, 1) = RS!tekst
RS.MoveNext
X = X + 1
Wend
End Sub

 

[ivdh]

Ok, maar hoe lees ik de waarden dan weer uit vanuit de array?

PS: Ik zie dat je uit Oud Gastel komt. Grappig om eens iemand uit de buurt op een forum te "ontmoeten" .

 

[Hooija]

uit de buurt, dan nog een stapje bij om je te helpen.
Je kunt inde code de gewenste gegevens dan ophalen met arr(x,0) of arr(x,1) afhankelijk van welke waarde je nodig hebt

 

[ivdh]

Het is gelukt.
THANKS!