Datensätze in die gleiche Tabelle kopieren?

[prelude247]

Hi!

Wie kann man komplette Datensätze in einer Tabelle kopieren ohne den kompletten Inhalt vorher auf Variablen zu speichern?

Ich habe schon versucht die Tabelle 2 mal zu öffnen und dann die aus der einen in die andere zu kopieren, aber das will nicht so recht funktionieren.

Bin für jeden Gedankenanstoß dankbar..

MfG
Prelude247

[marabu]

Hallo und herzlich willkommen in der Delphi-PRAXiS.

Datensätze kopieren kannst du mit SQL:

INSERT INTO table (field1, field2) SELECT field1, field2 FROM table WHERE condition Kann sein, dass du die genaue Beschreibung der Syntax in deiner Dokumentation nachschlagen musst.

Grüße vom marabu

SQL-Statement korrigiert nach Hinweis von Flocke

[Flocke]

SQL-Code:

INSERT INTO table (field1, field2)
SELECT field1, field2 FROM table
WHERE condition

Das VALUES muss man weglassen. Außerdem kannst du in der SELECT-Liste auch andere Werte einfügen, z.B. aus mit JOIN hinzugenommenen Tabellen, oder auch Konstanten.

[prelude247]

Danke für die schnelle Antwort!

Das mit dem SQL ist so 'ne Sache, da die Tabelle in der ich kopieren will aus fast 40 Feldern besteht.
Ich dachte eher an eine Art Anweisung

Code:

Table1:=Table2;

Gibt es keine andere Möglichkeit

MfG
prelude247

[marabu]

Hätte ich mich selbst zitiert, dann wäre mir das mit den VALUES nicht schon wieder passiert...

Natürlich kannst du die vereinfachte Syntax verwenden - wenn du keine Probleme mit UNIQUE Klauseln hast:

INSERT INTO table SELECT * FROM table WHERE condition marabu

[prelude247]

Habe nun versucht eine SQL-Anweisung zu erstellen um einen Datensatz zu kopieren.

Bei der Ausführung erhalte ich folgenden Fehler:

"Unterabfrage nur in einem Element der Auswahlliste zulässig."

SQL-Code:

INSERT INTO ARTIKELSTAMM
(
ArtiStammId, ArtiStamBezeich, ArtiStamNummer, EKZ_Nummer,
ArtGrNummer, ArtiFolgeTyp, ArtiInfoGruppe,
ArtiPoolNummer, ArtiStamAuspr, ArtiStamBPoolKum,
ArtiStamBeaKennz, ArtiStamBrutGew, ArtiStamEAN,
ArtiStamEKDKennz, ArtiStamGewicht, ArtiStamGrundArt,
ArtiStamLPreVari, ArtiStamLoeKennz, ArtiStamMatch,
ArtiStamMxErntMg, ArtiStamOPreisSp, ArtiStamOPreisWa,
ArtiStamPackBrei, ArtiStamPackHoe, ArtiStamPackLae,
ArtiStamPrAzGrMe, ArtiStamPrAzMeBz, ArtiStamPrEinhEK,
ArtiStamPrEinhVK, ArtiStamPreVari, ArtiStamRundBest,
ArtiStamRundEK, ArtiStamRundVK, ArtiStamSaatTyp,
ArtiStamTyp, ArtiStamUPreisSp, ArtiStamUPreisWa,
ArtiStamVKDKennz, ArtiStamVerpGew, ArtiStamVolumen,
ArtiStamXPrEinsp, ArtiStamZulBDat, ArtiStammIdEkGrp,
ArtiStammImage, DSD_MatGrNummer, DSD_VolGrNummer,
FilTransfer, ME_GrupNummer, ME_NummerVerpGew,
PrKalkSchema, PreisMatNummerEK, PreisMatNummerVK,
Reinheitsgrad, SaatFruNummer, SaatSortNummer,
SteuerSchluessel, VerpackGruppe, WaGruNummer, artiStamPrAzUFak
)
VALUES (
17134,'Absperrventil Form A','999910',70,
(
SELECT 
ArtGrNummer, ArtiFolgeTyp, ArtiInfoGruppe,
ArtiPoolNummer, ArtiStamAuspr, ArtiStamBPoolKum,
ArtiStamBeaKennz, ArtiStamBrutGew, ArtiStamEAN,
ArtiStamEKDKennz, ArtiStamGewicht, ArtiStamGrundArt,
ArtiStamLPreVari, ArtiStamLoeKennz, ArtiStamMatch,
ArtiStamMxErntMg, ArtiStamOPreisSp, ArtiStamOPreisWa,
ArtiStamPackBrei, ArtiStamPackHoe, ArtiStamPackLae,
ArtiStamPrAzGrMe, ArtiStamPrAzMeBz, ArtiStamPrEinhEK,
ArtiStamPrEinhVK, ArtiStamPreVari, ArtiStamRundBest,
ArtiStamRundEK, ArtiStamRundVK, ArtiStamSaatTyp,
ArtiStamTyp, ArtiStamUPreisSp, ArtiStamUPreisWa,
ArtiStamVKDKennz, ArtiStamVerpGew, ArtiStamVolumen,
ArtiStamXPrEinsp, ArtiStamZulBDat, ArtiStammIdEkGrp,
ArtiStammImage, DSD_MatGrNummer, DSD_VolGrNummer,
FilTransfer, ME_GrupNummer, ME_NummerVerpGew,
PrKalkSchema, PreisMatNummerEK, PreisMatNummerVK,
Reinheitsgrad, SaatFruNummer, SaatSortNummer,
SteuerSchluessel, VerpackGruppe, WaGruNummer, artiStamPrAzUFak
FROM ArtikelStamm
WHERE ArtikelStammID=551
))

Ich bin bald am verzweifeln, denn ich finde den Fehler nicht.

MfG
Prelude247

[Flocke]

Du darst VALUES und SELECT nicht mischen, aber du kannst die Konstanten in die SELECT-Abfrage mit einbauen:

SQL-Code:

INSERT INTO ARTIKELSTAMM
(
ArtiStammId, ArtiStamBezeich, ArtiStamNummer, EKZ_Nummer,
ArtGrNummer, ArtiFolgeTyp, ArtiInfoGruppe,
ArtiPoolNummer, ArtiStamAuspr, ArtiStamBPoolKum,
ArtiStamBeaKennz, ArtiStamBrutGew, ArtiStamEAN,
ArtiStamEKDKennz, ArtiStamGewicht, ArtiStamGrundArt,
ArtiStamLPreVari, ArtiStamLoeKennz, ArtiStamMatch,
ArtiStamMxErntMg, ArtiStamOPreisSp, ArtiStamOPreisWa,
ArtiStamPackBrei, ArtiStamPackHoe, ArtiStamPackLae,
ArtiStamPrAzGrMe, ArtiStamPrAzMeBz, ArtiStamPrEinhEK,
ArtiStamPrEinhVK, ArtiStamPreVari, ArtiStamRundBest,
ArtiStamRundEK, ArtiStamRundVK, ArtiStamSaatTyp,
ArtiStamTyp, ArtiStamUPreisSp, ArtiStamUPreisWa,
ArtiStamVKDKennz, ArtiStamVerpGew, ArtiStamVolumen,
ArtiStamXPrEinsp, ArtiStamZulBDat, ArtiStammIdEkGrp,
ArtiStammImage, DSD_MatGrNummer, DSD_VolGrNummer,
FilTransfer, ME_GrupNummer, ME_NummerVerpGew,
PrKalkSchema, PreisMatNummerEK, PreisMatNummerVK,
Reinheitsgrad, SaatFruNummer, SaatSortNummer,
SteuerSchluessel, VerpackGruppe, WaGruNummer, artiStamPrAzUFak
)
SELECT 17134,'Absperrventil Form A','999910',70,
ArtGrNummer, ArtiFolgeTyp, ArtiInfoGruppe,
ArtiPoolNummer, ArtiStamAuspr, ArtiStamBPoolKum,
ArtiStamBeaKennz, ArtiStamBrutGew, ArtiStamEAN,
ArtiStamEKDKennz, ArtiStamGewicht, ArtiStamGrundArt,
ArtiStamLPreVari, ArtiStamLoeKennz, ArtiStamMatch,
ArtiStamMxErntMg, ArtiStamOPreisSp, ArtiStamOPreisWa,
ArtiStamPackBrei, ArtiStamPackHoe, ArtiStamPackLae,
ArtiStamPrAzGrMe, ArtiStamPrAzMeBz, ArtiStamPrEinhEK,
ArtiStamPrEinhVK, ArtiStamPreVari, ArtiStamRundBest,
ArtiStamRundEK, ArtiStamRundVK, ArtiStamSaatTyp,
ArtiStamTyp, ArtiStamUPreisSp, ArtiStamUPreisWa,
ArtiStamVKDKennz, ArtiStamVerpGew, ArtiStamVolumen,
ArtiStamXPrEinsp, ArtiStamZulBDat, ArtiStammIdEkGrp,
ArtiStammImage, DSD_MatGrNummer, DSD_VolGrNummer,
FilTransfer, ME_GrupNummer, ME_NummerVerpGew,
PrKalkSchema, PreisMatNummerEK, PreisMatNummerVK,
Reinheitsgrad, SaatFruNummer, SaatSortNummer,
SteuerSchluessel, VerpackGruppe, WaGruNummer, artiStamPrAzUFak
FROM ArtikelStamm
WHERE ArtikelStammID=551

[Nachtrag]
Wenn ArtikelStammId eine Auto-Id ist, dann solltest du sie beim INSERT weglassen (und unten natürlich nicht mit angeben).

[WoGe]

Hallo,

wie Flocke schon geschrieben hat, musst du das Values weglassen

Die folgend SP hab ich mal für FB1.0 gemacht, ich hoffe das funzt auch mit deinem Server:

SQL-Code:

ALTER PROCEDURE SP_COPYZEILEN (
    ID_ZIEL INTEGER,
    ID_QUELLE INTEGER)
AS
begin
  Insert into Zeilen
  select null, -999, ZEILENNO, ANZAHL, DATUM, BESCHREIBUNG, EPREIS, GPREIS, WAEHRUNG
  FROM ZEILEN
  where F_AR = :id_quelle;
  Update zeilen
  set F_Ar = :id_ziel
  where F_AR = -999;
  suspend;
end

Wie man sieht stammen die Werte der 2 ersten Spalten nicht aus der Ursprungstabelle.

PS.: Wenn ich mir den SQl-Code von meiner SP so angucke: Das ist doch fürchterlich unelegant. Das müsste doch eigentlich besser gehen. Hat dazu jemand mal eine Idee?

Roter Kasten. Flocke war schneller


mfg
wo

[prelude247]

Es funktioniert!

Danke euch beiden für die schnelle Hilfe!

Der Feierabend ist gerettet!

MfG
Prelude247

[ConstantGardener]

Hallo zusammen !!

Sorry, daß ich diesen Beitrag nochmal hochhole aber hat jemand eine Idee warum das beschriebene Verfahren mit der BDE und Paradox nicht funktioniert. Laut LocalSQL-Help sollte es funktionieren.
Folgendes führt zur Meldung "Keine Übereinstimmung der Typen im Ausdruck." Die CAST's hab ich erst nach diesem Fehler eingebaut. Leider keine Wirkung !!
FLAECHE und TERMIN sind der Primärschlüssel, die Reihenfolge der Felder stimmt. Ich hab auch schon die Zielfelder aufgezählt. Aber ohne Erfolg.

Delphi-Quellcode:

  SQL.Clear;
  SQL.Add ('Insert Into Haustemperatur Select Flaeche,Cast((Termin+:ZeitWert) as DATE),Cast((Jahr+:Diff) as INTEGER),0, Temp_Tag,Temp_Nacht,0 from HausTemperatur where Jahr='+IntToStr(JahrSource));
  ParamByName ('Zeitwert').asDateTime:=EncodeDate(JahrZiel+1,1,1)-EncodeDate(JahrZiel,1,1);
  ParamByName ('Diff').asInteger:=Diff;
  ExecSQL;

... oder nur das SQL Statement

SQL-Code:

  Insert Into Haustemperatur 
  Select Flaeche,Cast((Termin+:ZeitWert) as DATE),Cast((Jahr+:Diff) as INTEGER),0,Temp_Tag,Temp_Nacht,0 
  from HausTemperatur where Jahr=2005

.. für Hilfe wäre ich dankbar