INSERT INTO SELECT ohne Spaltenliste

[Alex.G]

Moin!

Ich will alle Daten einer Datenbank (aus jeder Tabelle) in eine Zweite identisch aufgebaute Datenbank übertragen. Da dies in Delphi mit einer For-Schleife abläuft, kann ich keine feste Spaltenliste eintragen. Habe auch schon gegooglet und diese Variante gefunden:

Code:

INSERT INTO TestDB2.dbo.Kunden SELECT * FROM TestDB1.dbo.Kunden

Leider bekomme ich eine Exception, da keine Spaltenliste angegeben ist. Gibt es eine Möglichkeit die Spaltenliste auszulassen bzw. variabel anzugeben?

Gruß
Alex

[DeddyH]

Evtl. mit TDataset.GetFieldNames und die Liste dann als TStrings.CommaText übergeben?

[Bernhard Geyer]

Du müsstest erst z.B. mit einem

Code:

Select * from TestDB1.dbo.Kunden where 1=2

dir die Liste der Ergebnisspalten liefern und dann das SQL-Statement entsprechend erweitern.

[Bummi]

Code:

Select *
Into NewTable
From OldTable

gegf.

Code:

Select *
Into AndereDB.dbo.NewTable
From OldTable

[Alex.G]

Danke für die Antworten!
Was aber, wenn die Datenbanken auf verschiedenen Servern laufen?

[Bernhard Geyer]

Zitat von Alex.G:

Danke für die Antworten!
Was aber, wenn die Datenbanken auf verschiedenen Servern laufen?

Dann müsstest du versuchen einen (bei MS SQL Server heißt Linked Server) "Verbindungsserver" einzurichten.
Ist je nach DMBS unterschiedlich aufwändig und Fehleranfällig.

[Alex.G]

Zitat von Bernhard Geyer:

Zitat von Alex.G:

Danke für die Antworten!
Was aber, wenn die Datenbanken auf verschiedenen Servern laufen?

Dann müsstest du versuchen einen (bei MS SQL Server heißt Linked Server) "Verbindungsserver" einzurichten.
Ist je nach DMBS unterschiedlich aufwändig und Fehleranfällig.

Meinst Du einen "Verbindungsserver" mit Delphi einrichten?
Wie müsste ich da vorgehen?

[joachimd]

Zitat von Bummi:

Code:

Select *
Into NewTable
From OldTable

das erstellt aber eine neue Tabelle! Ein INSERT INTO...SELECT FROM fügt in eine vorhandene ein. Ja nachdem, welcher Befehl verwendet wird und ob die Tabelle schon existiert wird beim einen oder beim anderen ein Fehler geworfen.

[Bummi]

@joachimd
Du hast recht, ich hatte nicht gesehen dass er die Tabellen schon angelegt hatte ....

[Alex.G]

Als erstes mache ich ein SELECT * ... über eine ADOConnection zum ersten Server. Danach über eine zweite Connection ein INSERT INTO ...
Leider funktioniert das ganze nicht richtig. Mit diesem Quelltext...

Delphi-Quellcode:

  for i := 0 to qryMaster.Recordset.RecordCount-1 do
  begin
    columnList := '';
    valList    := '';
    qryMasterExec.SQL.Text := 'SELECT * FROM '
      + qryMaster.Recordset.Fields.Item['TABLE_NAME'].Value;
    qryMasterExec.Open;
    qryMasterExec.Requery;
    qryMasterExec.Recordset.MoveFirst;

    for n := 0 to qryMasterExec.Recordcount-1 do
    begin
      for t := 0 to qryMasterExec.RecordCount-1 do
      begin
        columns[t] := qryMaster.Recordset.Fields.Item['COLUMN_NAME'].Value;
        values[t]  := qryMasterExec.Recordset.Fields.Item[columns[t]].Value;
      end;
      qryMasterExec.Recordset.MoveNext;
    end;
    for e := 0 to High(values)-1 do
    begin
      columnlist := columnlist + columns[e] + ' ';
      valList := valList + values[e] + ' ';
      mSQL.Lines.Add('INSERT INTO '
        + qryMaster.Recordset.Fields.Item['TABLE_NAME'].Value
        + ' ('+columnList+') VALUES'
        + ' ('+valList+')'
        );
    end;
    qryMaster.Recordset.MoveNext;
  end;

...bekomme ich leider nur Insert's wie:

Code:

INSERT INTO Rechnung (ID ) VALUES (4 )
INSERT INTO Rechnung (ID ID ) VALUES (4 4 )
INSERT INTO Rechnung (ID ID ID ) VALUES (4 4 4 )
INSERT INTO Rechnung (KID ) VALUES (2 )
INSERT INTO Rechnung (KID KID ) VALUES (2 2 )
INSERT INTO Rechnung (KID KID KID ) VALUES (2 2 2 )
INSERT INTO Rechnung (PID ) VALUES (1 )
INSERT INTO Rechnung (PID PID ) VALUES (1 1 )
INSERT INTO Rechnung (PID PID PID ) VALUES (1 1 1 )
INSERT INTO Kunde (ID ) VALUES (3 )
INSERT INTO Kunde (ID ID ) VALUES (3 3 )
INSERT INTO Kunde (ID ID ID ) VALUES (3 3 3 )
INSERT INTO Kunde (Name ) VALUES (Plaum                )
INSERT INTO Kunde (Name Name ) VALUES (Plaum                Plaum                )
INSERT INTO Kunde (Name Name Name ) VALUES (Plaum                Plaum                Plaum                )
INSERT INTO Kunde (Vorname ) VALUES (Jürgen               )
INSERT INTO Kunde (Vorname Vorname ) VALUES (Jürgen               Jürgen               )
INSERT INTO Kunde (Vorname Vorname Vorname ) VALUES (Jürgen               Jürgen               Jürgen               )
INSERT INTO Kunde (Ort ) VALUES (Siegen               )
INSERT INTO Kunde (Ort Ort ) VALUES (Siegen               Siegen               )
INSERT INTO Kunde (Ort Ort Ort ) VALUES (Siegen               Siegen               Siegen               )
INSERT INTO Produkt (ID ) VALUES (2 )
INSERT INTO Produkt (ID ID ) VALUES (2 2 )
INSERT INTO Produkt (ID ID Ort ) VALUES (2 2 Siegen               )
INSERT INTO Produkt (Name ) VALUES (Lenovo R500          )
INSERT INTO Produkt (Name Name ) VALUES (Lenovo R500          Lenovo R500          )
INSERT INTO Produkt (Name Name Ort ) VALUES (Lenovo R500          Lenovo R500          Siegen               )
INSERT INTO Produkt (Kommentar ) VALUES (Lenovo Thinkpad Laptop                             )
INSERT INTO Produkt (Kommentar Kommentar ) VALUES (Lenovo Thinkpad Laptop                             Lenovo Thinkpad Laptop                             )
INSERT INTO Produkt (Kommentar Kommentar Ort ) VALUES (Lenovo Thinkpad Laptop                             Lenovo Thinkpad Laptop                             Siegen               )

(Alle Daten sind ausgedacht!)
Was mache ich falsch?