VBA Recordset an mehrdimensionales Array übergeben

Computer: Software & Programmierung Visual Basic
#1

Hallo,

um die Ergebnisse aus einem Recordset an eine Listbox übergeben zu können, will ich das Ergebnis der Abfrage erst mal in einem mehrdimensionalen Array speichern. habe aber keinen Plan, wie ich da vorgehen muss:

meine Abfrage lautet:
Set r = CurrentDb.OpenRecordset(„SELECT dbo_V_Einzelperson.LOGON_NAME, dbo_V_Einzelperson.NAME, dbo_V_Einzelperson.FORENAME1, dbo_V_Einzelperson.COMPANY, dbo_V_Einzelperson.APPLICATION_NAME, dbo_V_Einzelperson.ROLE_NAME, dbo_V_Einzelperson.ORGANISATION_SHORT, dbo_V_Einzelperson.STANDORT_KURZ FROM dbo_V_Einzelperson WHERE logon_name = '“ & Me.txt_suche & „’;“)

die Daten stehen ja nun in dem Recordset selber, wie kann ich aber das Recordset an ein Array übergeben?

Danke für Hilfen,
Gruß Heiko

#2

Hallo.

die Daten stehen ja nun in dem Recordset selber, wie kann ich
aber das Recordset an ein Array übergeben?

  • Array einrichten (1 To x, 1 To y AS wasebenist)

  • Recordsetname.MoveFirst

  • With Recordsetname

  • x=1

  • While Not .EOF

  • Schleife von 1 bis y

  • Array(x,Schleife)=!(Schleife)tes Feld

  • Next 'y

  • x=x+1

  • .MoveNext

  • Wend

  • .Close

  • End With

Dann sollte Dein Array mit den Datensätzen gefüllt sein (x sind die Datensätze, y die Felder). Das musst Du natürlich in VB übersetzen …

Gruß Eillicht zu Vensre

#3

danke für die Hilfe!
Ich habe allerdings noch ein Problem, dass ich immer einen Laufzeitfehler 9 bekomme.
Mein Code:
Dim P_array() As String
Dim x, j As Integer
ReDim P_array(1 To x, 1 To 8)

was ist hier falsch?
Hinweis: x ist die Anzahl der Datensätze, 8 Spalten kann ich von definitv festlegen

Gruß Heiko