vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
zurück
Rubrik: Datenbanken · ADO.NET Allgemein   |   VB-Versionen: VB2005, VB2008, VB201027.07.12
Datenbanktabelle mit Primärschlüssel kopieren (Accesstabelle)

Kopiert den Inhalt einer Tabelle aus einer Accessdatenbank in eine andere Tabelle der gleichen Datenbank und fügt dieser einen Primärschlüssel hinzu

Autor:   Rainer HenkeBewertung:     [ Jetzt bewerten ]Views:  7.474 
ohne HomepageSystem:  WinXP, Vista, Win7, Win8, Win10kein 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.

Erweiterung des Tipps:
 Datenbanktabelle in eine andere Tabelle kopieren (Accesstabelle)

Soll jedoch mit der kopierten Tabelle weitergearbeitet werden, ist ein Primärschlüssel erforderlich. In diesem erweiterten Tipp wird der Primärschlüssel in die kopierte Tabelle eingefügt, da er beim kopieren nicht mit übernommen wird. Ferner wird zuvor geprüft, ob die Tabellenbezeichnung bereits existiert.
Eventuell läßt sich das Ganze noch ein wenig kompakter umsetzen.

Private Sub Tabelle_kopieren()
 
  Dim Datenbank As String = "C:\Test\Datenbank.mdb"
  Dim oTabelle_neu As String = "2014"
  Dim oTabelle_von As String = "Daten"
  Dim oSQL As String = "SELECT * INTO [" & Datenbank & "]." & _
    oTabelle_neu & " FROM " & oTabelle_von
  Dim ovorhanden As Boolean = False    ' Tabelle bereits vorhananden?
 
  Using oConn As OleDbConnection = New OleDbConnection(oConnection)
    oConn.Open()
    Using oTabelle As DataTable = oConn.GetSchema("Tables")
      For Each oRow As DataRow In oTabelle.Rows
        If oRow("TABLE_NAME").ToString = oTabelle_neu Then
          MsgBox("Tabelle bereits vorhanden!")
          ovorhanden = True
          Exit For
        End If
      Next 
    End Using
 
    If ovorhanden = False Then
      Using cmd As OleDbCommand = New OleDbCommand
        cmd.Connection = oConn
        cmd.CommandText = oSQL
 
        Try
          cmd.ExecuteNonQuery()
        Catch ex As Exception
          MsgBox("Fehler beim Kopieren" & vbCrLf & ex.Message)
          Exit Sub
        End Try
 
      End Using
 
      ' Primärschlüssel hinzufügen
      Dim oKey As String = "ALTER TABLE " & oTabelle_neu & " ADD CONSTRAINT ps PRIMARY KEY (ID);"
      Using cmd As New OleDbCommand
        cmd.Connection = oConn
        cmd.CommandText = oKey
        Try
          cmd.ExecuteNonQuery()
        Catch ex As Exception
          MsgBox("Fehler beim Primärschlüssel setzen" & vbCrLf & ex.Message)
        End Try
      End Using
 
    End If
  End Using
 
End Sub

Dieser Tipp wurde bereits 7.474 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Aktuelle Diskussion anzeigen (1 Beitrag)

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2018 vb@rchiv Dieter Otter
Alle 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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel