hallo...ich bin neu hier, hoffentlich könnt ihr mir helfen...

ich habe ein recordset mit daten gefüllt und möchte diesen inhalt nicht ausgeben, sondern einem array zuweisen und nach dem schließen des rocordsets dieses array durchlaufen.

habe das recordset durch einen SELECT statement erstellt...hier mein code:



sQuery = ""

sQuery = sQuery & "SELECT "
sQuery = sQuery & "mod.compe.compe_id, "
sQuery = sQuery & "mod.compe.compe_pub, "
sQuery = sQuery & "mod.compe.compe_bezei, "
sQuery = sQuery & "mod.compe.kunde_id, "
sQuery = sQuery & "mod.compe.kunde_pub, "
sQuery = sQuery & "mod.ccber.ccber_id, "
sQuery = sQuery & "mod.ccber.ccber_pub "
sQuery = sQuery & " FROM "
sQuery = sQuery & "mod.ccber INNER JOIN mod.compe ON mod.ccber.compe_id = mod.compe.compe_id"
sQuery = sQuery & " and mod.compe.compe_pub = mod.ccber.compe_pub"
sQuery = sQuery & ";"

MsgBox sQuery

'Variable sQuery den Recordset als Datenquelle zuweisen
'__________________________________________________________

oAdoRecordset.Source = sQuery
oAdoRecordset.ActiveConnection = oAdoConnection

'Recordset öffnen
'__________________________________________________________

oAdoRecordset.Open


'Inhalt des Tabellenblattes löschen
ActiveSheet.Cells.Delete

y = 0

'Recordset durchlaufen/ Überprüfung ob Recordset leer ist
'___________________________________________________________

'Recordset bis zum letzten Element durchlaufen
Do While Not oAdoRecordset.EOF

'Aktuellen DS in das Tabellenblatt schreiben
y = y + 1
ActiveSheet.Cells(y, 1) = oAdoRecordset.Fields(0).Value
ActiveSheet.Cells(y, 2) = oAdoRecordset.Fields(1).Value
ActiveSheet.Cells(y, 3) = oAdoRecordset.Fields(2).Value

'Nächsten Datensatz einlesen
oAdoRecordset.MoveNext

Loop


If Not oAdoRecordset.EOF Then
MsgBox "Fehler: Recordset ist leer"
End If


'Inhalte vom Recordset dem Array arrCompe zuweisen
'____________________________________________________________

??????????????????????





bitte helft mir. danke







'Verbindung und Recordset schließen
oAdoRecordset.Close
oAdoConnection.Close





das array soll "arrCompe" heißen

Gruß
Gaga