Rubrik: Datenbanken · Sonstiges | VB-Versionen: VB5, VB6 | 25.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 Otter | Bewertung: | Views: 33.665 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein 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"