Access in array einlesen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Access in array einlesen
von: Stefan
Geschrieben am: 14.05.2002 - 11:49:42

Hallo Gemeinde,

muss leider schon wieder euere Hilfe in Anspruch nehmen.
Folgendes Problem:


For Each intI In arrGruppen
.... Anweisungsblock

Next intI

ist mein stilisiertes Programm. Läuft auch soweit. Jetzt möchte ich aber das Array arrGruppen nicht von Hand auffüllen, sondern es mit Daten, die in einer bestimmten Access-Tabelle stehen füllen. Gibt es dafür eine einfache Lösung bzw. soll ich etwas anderes als ein array verwenden - und geht dann der for each .. in .. Befehl noch auf gleiche Weise?

Gruss
Stefan

nach oben   nach unten

Re: Access in array einlesen
von: MRR
Geschrieben am: 14.05.2002 - 12:37:34

Hi Stefan,
ich könnte mir eine Prozedur wie die folgende vorstellen:

Sub Einlesen()
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset
Dim As Long
Dim arrGruppen()
Set ws = CreateWorkspace("Test", "Admin", "")
Set db = Workspaces(0).OpenDatabase("C:\test\DeineDatenbank.mdb")
Set rs = db.OpenRecordset("EineTabelleOderAbfrage", dbOpenDynaset)
If Not rs.EOF Then
  i = 0
  Do While Not rs.EOF
    i = i + 1
    ReDim Preserve arrGruppen(i)
    If Not IsNull(rs.Fields("DasEinzulesendeFeld")) Then
      arrGruppen(i) = rs.Fields("DasEinzulesendeFeld").Value
    End If
    rs.MoveNext
  Loop
End If
rs.Close
db.Close
ws.Close
Set rs = Nothing
Set db = Nothing
Set ws = Nothing
End Sub

Hilft Dir das als Ansatz weiter?
Matthias
nach oben   nach unten

Re: Access in array einlesen
von: Michael Scheffler
Geschrieben am: 14.05.2002 - 12:52:15

Hallo,

zuz Ergänzung, noch einfacher ist:

array = recordset.GetRows( Rows, Start, Fields )

Gruß

Micha

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Access in array einlesen"