Hallo,
Zur Zeit versuche ich einen Access Datenimport aus einer anderen Datenbank per Makro. Leider gelingt dies nicht über den folgenden SQL-Befehl.
Private Sub Befehl0_Click()
On Error GoTo Err_Befehl0_Click
'Definition der Variablen
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim i As Integer
Dim SQLCommand As String
'Fehleranweisung
On Error GoTo Fehler
'Verbindungsaufbau
Set Cn = New ADODB.Connection
Cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\pfad...\db2.mdb;"
'SQL Befehl
Cn.Open
'SQL Befehl Eintrag
'SQLCommand = "INSERT INTO Tabelle1 (ID, Anzahl) SELECT Tabelle2.ID, Tabelle2.Anzahl FROM db2"
'SQL Befehl wird ausgeführt
Set Rs = Cn.Execute(SQLCommand)
'Msgbox Eintrag
MsgBox "Erfolgreich importiert"
'Verbindung wird geschlossen
Rs.Close
Cn.Close
'Fehlerausgabe
Fehler:
MsgBox (Err.Description)
Exit_Befehl0_Click:
Exit Sub
Err_Befehl0_Click:
MsgBox Err.Description
Resume Exit_Befehl0_Click
End Sub
Leider erkennt das Makro zwar die Tabelle inkl. Daten der neu geöffneten Tabelle, doch nicht die Daten aus Tabelle 1 der aktuellen Access Datenbank, aus der das Makro ausgeführt wird. Vielleicht hat jemand einen Tip?!
Grüße!
|