INSERT INTO SELECT ohne Spaltenliste

[DeddyH]

First nach ExecSQL? Geht sowas in ADO?

[Alex.G]

Delphi-Quellcode:

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. :lol: (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:

Zitat von Bummi (Beitrag 1131657)

... warum nicht die billige Variante

Weil es meine Aufgabe ist :wink:

[himitsu]

Zitat:

Zitat von Alex.G (Beitrag 1131669)

Weil es meine Aufgabe ist :wink:

Aufgabe?

Hatte das schonmal wer hier erwähnt`?

[Alex.G]

Zitat:

Zitat von himitsu (Beitrag 1131671)

Zitat:

Zitat von Alex.G (Beitrag 1131669)

Weil es meine Aufgabe ist :wink:

Aufgabe?

Hatte das schonmal wer hier erwähnt`?

Bisher noch nicht.
Ich habe es nun mit:

Delphi-Quellcode:

InsertStr := InsertStr + IfThen(InsertStr <> '', ', ', '') + qryMasterExec.Parameters[i].Name;

und

Delphi-Quellcode:

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

Delphi-Quellcode:

qryMasterExec.Fields[i].FieldName

?