Ich habe folgendes geschrieben:
Function ReadData()
Dim i%, rsdata$, ID$, ARBPL$, Bereich$, X_Koordinate$, Y_Koordinate$, Ebene$
Dim rs As Recordset
rsdata = "([ID],[ARBPL],[Bereich],[X_Koordinate],[Y_Koordinate],[Ebene])" & vbNewLine
With shtKoordination
For i = 2 To .Cells(Rows.count, 1).End(xlUp).Row Step 1
ID = .Cells(i, 1).Value
ARBPL = .Cells(i, 2).Value
Bereich = .Cells(i, 3).Value
X_Koordinate = .Cells(i, 4).Value
Y_Koordinate = .Cells(i, 5).Value
Ebene = .Cells(i, 6).Value
'Skript erweitern
If (i = 2) Then
rsdata = rsdata & "("
Else
rsdata = rsdata & "," & vbNewLine & "("
End If
'Skript basteln
rsdata = rsdata & "'" & ID & "'" & "," & "'" & ARBPL & "'" & "," & "'" & Bereich & "'" _
& "," & "'" & X_Koordinate & "'" & "," & "'" & Y_Koordinate & "'" & "," & "'" _
& Ebene & "'" & ")"
Next
rsdata = rsdata & ";"
End With
'Return rsdata
'Set rs = ReadData()
End Function
Sowohl 'Return rsdata, als auch 'Set rs = ReadData() haben nicht funktioniert.
Ich versuche mir hier quasi aus meiner Tabelle mit etlichen Einträgen einen langen String/ Recordset zu bauen. Dabei kommt es aber dann zu einem Stapelspeicher FEHLER.
Den Recordset möchte ich in einem anderen Sub nutzen um ihn in ein SQL UPDATE Befehl einzubinden.
1.) Ideen für die Fehlerbehebung Stapelspeicher
2.) Wie kann ich den Return Value erstellen
3.) Wie greife ich von einem anderen Sub auf den ReturnValue dieser Funktion zu?
hätte zu 3.) sowas angedacht..
basisdaten = DataRead()
|