Office: ADO: Recordset in Array

JapanFreak · 1. November 2008

Hallo zusammen,

ich hab eine Frage bzgl. der Abfrage von Daten aus txt-Dateien via ADO. Nachfolgender Code funktioniert reibungslos, ruft den (mittels SQL-Abfrage evtl. gefilterten) Inhalt einer txt-Datei auf und gibt diesen auf einem Worksheet aus.

Nun möchte ich die Daten jedoch nicht auf dem Worksheet ausgeben, sondern diese in ein Array übertragen um Berechnungen vorzunehmen. Dafür habe ich den auskommentierten Code eingefügt, welcher im Falle der Abfrage von Daten aus Access-Dateien einwandfrei funktioniert. Hier bekomme ich jedoch die Fehlermeldung, dass sich der Index lRow außerhalb des gültigen Bereichs befände. Die eingefügten MsgBoxen zeigen, dass das Recordset tatsächlich die richtige Anzahl von Spalten, jedoch nur -1 Zeilen besitzt. Daher meine Frage - was läuft bei einer Abfrage einer txt-Datei anders, wie kann ich das Problem umgehen?

Viele Grüße
JapanFreak

P.S. Ich verwende Excel 2000.

Code:

Sub TextDataImport2(sFileName As String, sPath As String, sSQL As String, iAddCols As Integer)
Dim vRst() As Variant
Dim lRows As Long, iCols As Integer
Dim lRow As Long, iField As Integer

Dim rngZielCelle As Range

Call CreateSchemaFile(sPath, sFileName)

Set rngZielCelle = Range("a1")
If rngZielCelle Is Nothing Then Exit Sub

Set adoCn = New ADODB.Connection
'On Error Resume Next
adoCn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=" & sPath & ";" & "Extensions=asc,csv,tab,txt;"

'On Error GoTo 0

If adoCn.State adStateOpen Then Exit Sub

Set adoRs = New ADODB.Recordset

'On Error Resume Next

With adoRs
.Open sSQL, adoCn, adOpenForwardOnly, adLockReadOnly, adCmdText

'On Error GoTo 0

If .State adStateOpen Then
adoCn.Close
Set adoCn = Nothing
Exit Sub
End If

' lRows = .RecordCount
' iCols = .Fields.Count + iAddCols
'
' MsgBox lRows
' MsgBox iCols
' ReDim vRst(lRows, iCols) As Variant
'
' .MoveFirst
'
' Do While Not .EOF
' lRow = lRow + 1
' For iField = 0 To .Fields.Count - 1
' vRst(lRow, iField + 1) = .Fields(iField).Value
' Next iField
' .MoveNext
' Loop

End With

rngZielCelle.CopyFromRecordset adoRs

Call DisconnectDatabase
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

ebs17 · 3. November 2008

Überprüfe mal mit ...
Code:

Debug.Print lRow
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

in der Schleife, welche Werte auftreten. Beachte, der Index beginnt mit 0.

Anmerkung: Für die Überführung eines Recordsets in ein Array gibt es auch die Methode GetRows.

JapanFreak · 3. November 2008

Bis zur Schleife komme ich gar nicht erst, da der PC schon bei der Redimensionierung des Arrays meckert ("Index außerhalb des gültigen Bereichs", da lRows den Wert -1 annimmt):

Code:

ReDim vRst(lRows, iCols) As Variant
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie gesagt, der Code funktioniert einwandfrei, wenn ich den Bereich mit der Übertragung der Daten des Recordsets in das Array vRst auskommentiere. Die txt-Datei wird also fehlerfrei eingelesen und das Recordset ist nicht leer... Erst wenn ich die Übertragung in ein Array versuche treten Probleme auf, da scheinbar das Array -1 Zeilen besitzt...?

Viele Grüße
JapanFreak

bst · 3. November 2008

Morgen auch,

adOpenForwardOnly und adOpenDynamic unterstützen RecordCount nicht, nimm adOpenStatic oder adOpenKeyset

Eigentlich brauchst Du den aber überhaupt nicht, da Du bei GetRows das Array nicht selber dimensionieren musst. Nimm einfach:

Code:

Dim ar as Variant
ar = adoRs.GetRows
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

cu, Bernd

JapanFreak · 5. November 2008

Bei Verwendung von adOpenStatic funktioniert der Code. Vielen Dank!

Beste Grüße
JapanFreak

Office: ADO: Recordset in Array

ADO: Recordset in Array

ADO: Recordset in Array

ADO: Recordset in Array

ADO: Recordset in Array - Similar Threads - ADO Recordset Array

Recordset auf Inhalt prüfen (ADO, SQL)

Datensätze eines ADO Recordset OHNE Schleife in Tabelle schreiben

Ado Recordset in anderen kopieren

leeres ADO Recordset Field, nur mit isNull erkennbar?

Datensatz löschen aus ADO Recordset

ADO Recordset aktualisieren

VBA ADO - mehrere Einträge in Recordset mit einmal in DB schreiben