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:	Views:  17.914
ohne Homepage	System:  WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.