Tabelle in eine andere Datenbank kopieren Dieser Tipp zeigt, wie sich eine bestehende DB-Tabelle von einer Datenbank in eine andere Datenbank kopieren lässt - ggf. auch unter einem neuen Namen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  13.659
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 20 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Heute möchten wir Ihnen zeigen, dass es via SQL-Statement überhaupt kein Problem ist, eine bestehende Datenbank-Tabelle in eine zweite Datenbank zu kopieren. Hierbei kann optional sogar eine andere Tabellenbezeichnung gewählt werden.

Die allgemeine Syntax für die SQL-Anweisung lautet:

SELECT * INTO [Pfad_Zieldatenbank].NeuerTabellenname FROM BestehendeTabelle

Dieses SQL-Statement braucht dann nur noch über die Execute-Methode des Database- bzw. Connection-Objekts abgesetzt werden.

' Datenbanktabelle in zweite Datenbank kopieren
Public Function dbCopyTableExtern(oDB As Object, _
  ByVal sTableName As String, _
  ByVal sDestDatabaseName As String, _
  Optional ByVal sNewTableName As String) As Boolean
 
  ' Fehlerbehandlung aktivieren
  On Error Goto ErrHandler
 
  ' SQL-String erstellen
  Dim sSQL As String
  sSQL = "SELECT * INTO [" & sDestDatabaseName & "]." & _
    sNewTableName & " FROM " & sTableName
 
  oDB.Execute sSQL
  dbCopyTableExtern = True
  On Error Goto 0
  Exit Function
 
ErrHandler:
  MsgBox "Fehler beim Kopieren der DB-Tabelle!" & vbCrLf & _
    CStr(Err.Number) & ", " & Err.Description
End Function

Beispiel für DAO:

' zunächst Quell-Datenbank öffnen
Dim oDB As DAO.Database
Set oDB = DBEngine.OpenDatabase("App.Path & "\KUNDEN.MDB")
 
' Tabelle Rechnungen unter Bezeichnung "Rech2004" in 
' Ablage-Datenbank kopieren
dbCopyTableExtern oDB, "Rechnungen", App.Path & "\ABLAGE.MDB", "Rech2004"

Beispiel für ADO:

' zunächst Quell-Datenbank öffnen
Dim oConn As New ADODB.Connection
With oConn
  .CursorLocation = adUseClient
  .Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & App.Path & "\Kunden.mdb;" & _
    "Persist Security Info=False"
End With  
 
' Tabelle Rechnungen unter Bezeichnung "Rech2004" in 
' Ablage-Datenbank kopieren
dbCopyTableExtern oConn, "Rechnungen", App.Path & "\ABLAGE.MDB", "Rech2004"