Thema Datum  Von Nutzer Rating
Antwort
Rot Access Datenimport per Makro
 25.12.2011 20:33:34 xvba
Solved
31.12.2011 23:12:43 Gast81874
NotSolved
03.01.2012 00:02:41 Gast52643
NotSolved
01.01.2012 12:28:50 Heiko
NotSolved

Ansicht des Beitrags:
Von:
xvba		 Datum:
25.12.2011 20:33:34		 Views:
1845		 Rating:
     
Antwort:
 Nein
Thema:
Access Datenimport per Makro

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!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Access Datenimport per Makro
 25.12.2011 20:33:34 xvba
Solved
31.12.2011 23:12:43 Gast81874
NotSolved
03.01.2012 00:02:41 Gast52643
NotSolved
01.01.2012 12:28:50 Heiko
NotSolved