INSERT INTO SELECT ohne Spaltenliste

[DeddyH]

First nach ExecSQL? Geht sowas in ADO?

[Alex.G]

for i := 0 to qryMasterExec.Parameters.Count - 1 do begin Diese Zeile verstehe ich nicht. Müsste da nicht ein Recordcount hin? Wenn ich ein Breakpoint setze, sehe ich bei Parameters.Count den Wert 0.

[himitsu]

@DeddyH: Frag mich doch nicht. (ich fang auch grad erst mit diesem ganzen Zeugs an)

(hab mir erst letzte Woche mein erstes kleines brennendes Vögelchen zugelegt)


RecordCount = Anzahl der Zeilen/Datensätze
Parameters.Count = Anzahl der Splten/Parameter

[DeddyH]

Du hast doch ein Abfrageergebnis, was soll es da für Parameter geben? Nimm statt Parameters einmal Fields.

[Bummi]

Du willst keinen Verbindugsserver aufbauen und hast die Zieltabellen schon?
Die Insert-SQL's aufzubauen mit Berücksichtigung aller Besonderheiten bzgl. Feldtypen, Codierung etc. wird Dich einige Zeit kosten, warum nicht die billige Variante


ExDataset = Select * from Quelle
Ads= Select * from Ziel

Delphi-Quellcode:

While (not ExDataset.EOF)  do
      begin

      Ads.Append;
      for i:=0 to Ads.Fieldcount-1 do
          begin
          Ads.Fields[i].Assign(ExDataset.FieldByName(Ads.Fields[i].FieldName));
          end;
      ads.Post;
      ExDataset.Next;
      end;

[Alex.G]

Zitat von Bummi:

... warum nicht die billige Variante

Weil es meine Aufgabe ist

[himitsu]

Zitat von Alex.G:

Weil es meine Aufgabe ist

Aufgabe?

Hatte das schonmal wer hier erwähnt`?

[Alex.G]

Zitat von himitsu:

Zitat von Alex.G:

Weil es meine Aufgabe ist

Aufgabe?

Hatte das schonmal wer hier erwähnt`?

Bisher noch nicht.
Ich habe es nun mit:
InsertStr := InsertStr + IfThen(InsertStr <> '', ', ', '') + qryMasterExec.Parameters[i].Name; und
InsertStr := InsertStr + IfThen(InsertStr <> '', ', ', '') + qryMasterExec.Fields[i].Name; probiert. Wenn ich ein Breakpoint setze, sehe ich, dass InsertStr leider nach Ablauf der Schleife immer leer bleibt.

[DeddyH]

Was ist denn mit der Vorgehensweise nach #14 bis #19?

[himitsu]

Und qryMasterExec.Fields[i].FieldName ?