Menü

Matrix - explaint Variablen-Stapel

Seite 4
zurück zu Seite 3

Hier sehen Sie das Listing zum Füllen eines Array

Datenfeldabfrage: Das Beispiel zeigt, wie Sie mit der Funktion Recordset Arrays auslesen.

1Public Sub fCreateArr_R()
2Dim cn As ADODB.Connection
3Dim rs As New ADODB.Recordset
4Dim varArr As Variant
5Dim i As Integer
6' Recordset öffnen
7Set cn = _
8Application.CurrentProject. _
9Connection
10rs.Open "tArray", cn, _
11adOpenKeyset, _
12adLockOptimistic
13 
14' Recordset anzeigen
15Debug.Print "> Recordset <"
16Do Until rs.EOF
17Debug.Print rs!ID; " "; _
18rs!Name; _
19vbTab; rs!Wert
20rs.MoveNext
21Loop
22 
23' Array aus Recordsetdaten
24rs.MoveFirst
25varArr = rs.GetRows( _
26adGetRowsRest)
27' Array anzeigen
28Debug.Print ">> Array << <"
29For i = 0 To UBound(varArr, 2)
30'Feld: ID
31Debug.Print varArr(0, i); _
32" * ";
33'Feld: Name
34Debug.Print varArr(1, i); _
35vbTab;
36'Feld: Wert
37Debug.Print varArr(2, i)
38Next
39'Recordset schließen
40rs.Close: Set rs = Nothing
41Set cn = Nothing
42End Sub

weiterlesen auf Seite 5
Inhaltsverzeichnis 1/7
 
Whitepaper Lexware-Logo
Content-Revolution Wie Sie professionelles Content-Marketing betreiben.
Haptik-Effekt Im Einsatz im multisensorischen Marketing.
x