Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Insert in Tabelle mit unterschiedlichen Spalten (https://www.delphipraxis.net/186848-insert-tabelle-mit-unterschiedlichen-spalten.html)

Sven95 7. Okt 2015 09:11

AW: Insert in Tabelle mit unterschiedlichen Spalten
 
Erstmal Danke für alle Anworten und Sorry, dass ich mich gestern nichtmehr gemeldet hab.

Ich glaub ich habe jetzt eine passende Lösung:

Code:
DECLARE
  @vNew = char(8000)
  @vOld = char(8000)

set @vNew = (SELECT SUBSTRING (
                                (SELECT ',' + QUOTENAME(COLUMN_NAME)
                                 FROM INFORMATION_SCHEMA.COLUMNS
                                 WHERE TABLE_NAME = 'Tabelle A' and COLUMN_NAME != 'ID'
                                 ORDER BY ORDINAL_POSITION
                                 FOR XML path('')
                                ), 3, 2000000
                              )
            )

set @vNew = (SELECT SUBSTRING (
                                (SELECT ',' + QUOTENAME(COLUMN_NAME)
                                 FROM INFORMATION_SCHEMA.COLUMNS cc
                                 INNER JOIN INFORMATION_SCHEMA.COLUMNS c on cc.column_name = c.Column_name
                                 WHERE cc.TABLE_NAME = 'Tabelle B' and c.TABLE_NAME = 'Tabelle A' and cc.COLUMN_NAME != 'ID' and cc.COLUMN_NAME = c.COLUMN_NAME
                                 ORDER BY ORDINAL_POSITION
                                 FOR XML path('')
                                ), 3, 2000000
                              )
            )

EXECUTE('INSERT INTO Tabelle B ('+@vNew+')
         SELECT '+@vOLD+'
         FROM Tabelle A')
Das SELECT SUBSTRING aus der INFORMATION_SCHEMA.COLUMNS stammt vom Grundgerüst her von
http://stackoverflow.com/questions/2...ecified-when-a


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:07 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz