vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Datenbanken · Sonstiges   |   VB-Versionen: VB5, VB625.08.04
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 OtterBewertung:  Views:  33.665 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11kein Beispielprojekt 

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"



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.
 
 
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.