ADO Copyfromrecordset - Problem
10.10.2012 10:05:12
Chris
ich habe eine Excelabfrage, die ganz einfach Daten aus einer .mdb zieht. Ich hatte die Datei einige Zeit nicht verwendet und ich erinnere mich nicht, etwas geändert zu haben, aber jetzt zieht mir die ADO-Verbindung mit CopyRecordset keine Daten mehr. Die Accessabfrage lautet RVA5 - rufe ich diese in Access auf, zeigt sie mir auch die gewünschte Tabelle an. MS ADO 2.8 Library ist auch aktiviert. Das Excelmakro zeigt mir auch keinen Fehler an - an was könnte das denn liegen?
Hier der Code:
Sub writedata()
Application.ScreenUpdating = False
'Access-Quelldatei
Dim Datei As String
Datei = "S:\Rich_Cheap_archive_neu.mdb"
Rem 1. Verbindung zur Access DB herstellen
' Create a connection object.
Dim ADOCon As ADODB.Connection
Set ADOCon = New ADODB.Connection
With ADOCon
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = Datei
.CursorLocation = adUseClient
.Mode = adModeReadWrite
.Open
End With
Rem 2. Access Tabelle öffnen, Daten in Access zu schreiben
' Create a recordset object.
Dim ADORec As ADODB.Recordset
Set ADORec = New ADODB.Recordset
Set ADORec.ActiveConnection = ADOCon 'aktive Verbindung zuweisen
ADORec.Open "RVA5", ADOCon
Workbooks("Spread_Trade_Tool.xls").Sheets("Staaten_Raw").Range("A1").CopyFromRecordset _
_ ADORec
Set ADORec.ActiveConnection = Nothing
' Tidy up
If ADORec.State = adStateOpen Then
ADORec.Close
End If
Set ADORec = Nothing
Set ADOCon = Nothing
End Sub