Übergabe von QRY-Tabelleninhalte an andere Connection

[himitsu]

Klar, kann man selber z.B.

Delphi-Quellcode:

for var i := 0 to QryVonCon1.Fields.Count - 1 do
  QryVonCon1.Fields[i].Value := QryVonCon2.Fields[i].Value;

aber man sollte nie davon ausgehn, dass die Reihenfolge übereinstimmt.

also dann so

Delphi-Quellcode:

for var i := 0 to QryVonCon1.Fields.Count - 1 do
  QryVonCon1.Fields[i].Value := QryVonCon2.FieldByName(QryVonCon1.Fields[i].FieldName).Value;

bzw.

Delphi-Quellcode:

for var i := 0 to QryVonCon1.Fields.Count - 1 do
  if Assigned(QryVonCon2.FindField(QryVonCon1.Fields[i].FieldName)) then
    QryVonCon1.Fields[i].Value := QryVonCon2.FieldByName(QryVonCon1.Fields[i].FieldName).Value;

Wobei das bereits genannte TDataSet.CopyFields es im Prinzip ähnlich macht.