Datenbanktabelle in eine andere Tabelle kopieren (Accesstabelle) Kopiert den Inhalt einer Tabelle aus einer Accessdatenbank in eine andere Tabelle der gleichen Datenbank
Autor:   Rainer Henke	Bewertung:     [ Jetzt bewerten ]	Views:  15.873
ohne Homepage	System:  WinXP, Vista, Win7, Win8, Win10	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Bisher wurde noch keine Bewertung abgegeben.

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit nachfolgendem Code lässt sich der Inhalt einer Tabelle aus einer Accessdatenbank in eine andere Tabelle der gleichen Datenbank kopieren. Der Name der neuen Tabelle kann angegeben werden.

Modifizierter Tipp 1091 von Dieter Otter von 2004:
 Tabelle in eine andere Datenbank kopieren

Sollte die zu erstellende Tabelle bereits vorhanden sein, wird eine Fehlermeldung ausgegeben, die angibt das die Tabelle bereits existiert.
Es wird hier nicht geprüft ob die Tabelle (hier Daten), bzw der Pfad der zu kopierenden Tabelle existiert.

Dim Datenbank As String = "C:\Test\Datenbank.mdb"
Dim oTabelle_neu As String = "Tabelle_neu"
Dim oTabelle_von As String = "Daten"
Dim oSQL As String = "SELECT * INTO [" & Datenbank & "]." & oTabelle_neu & " FROM " & oTabelle_von
 
Using oConn As OleDbConnection = _
  New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Datenbank & "';")
 
  Using cmd As OleDbCommand = New OleDbCommand
    cmd.Connection = oConn
    cmd.Connection.Open()
    cmd.CommandText = oSQL
    Try
      cmd.ExecuteNonQuery()
    Catch ex As Exception
        MsgBox("Fehler beim Kopieren" & vbCrLf & ex.Message)
    End Try
  End Using
 
End Using