İki db arası veri aktarma

[Dostk]

Selam. kopya yapıştır işlemi için listviewde seçtiğim kayıtları db'ye alıyorum sonra copy databaseye aldığım verileri yapıştır dediğimde işlem hata veriyor, acaba nerede hata yapıyorum?

procedure TForm2.BtnYapistisClick(Sender: TObject);
var
  Kop, Yap: TFDQuery; // FireDAC.Comp.Client
begin
  Kop := QCopy;
  Yap := QUList;
    Kop.Connection := XConnection;
    Kop.Close;
    Kop.SQL.Clear;
    Kop.SQL.Add('Select * From COPY');
    Kop.Prepared := True;
    Kop.Open;
    while Not Kop.EOF do
    begin
      Yap.Connection := XConnection;
      Yap.Close;
      Yap.SQL.Clear;
      Yap.SQL.Add  ('Insert Into URUNLER(URUN, KATEGORI, ZEMINRENK, TIPI, TARIH)');
      Yap.SQL.Add  ('Values (:UR, :KT, :ZR,  :TP, :TR)');
      Yap.ParamByName(UR).AsString := Kop.FieldByName('URUN').AsString;
      Yap.ParamByName('KT').AsString := Kop.FieldByName('KATEGORI').AsString;
      Yap.ParamByName('ZR').AsString := Kop.FieldByName('ZEMINRENK').AsString;
      Yap.ParamByName('TP').AsString:= Kop.FieldByName('TIPI').AsString;
      Yap.ParamByName('TR').AsDate := Date;
      Kop.ExecSQL;
      Yap.Next;
    end;
  end;
end;

[CaglarCoskun]

    Kop.Open;

Kop.First; // bunu ekleyin

   while Not Kop.EOF do

   .
   .
   .
   Yap.ParamByName(UR).AsString := Kop.FieldByName('URUN').AsString;
UR başında tırnak koyun Yap.ParamByName('UR').AsString

Verdiği hatayıda belirtirseniz daha fazla yardımcı olabiliriz.

[SimaWB]

(27-01-2017, Saat: 00:24)Dostk Adlı Kullanıcıdan Alıntı:

    while Not Kop.EOF do
    begin
      Yap.Connection := XConnection;
      Yap.Close;
      Yap.SQL.Clear;
      Yap.SQL.Add  ('Insert Into URUNLER(URUN, KATEGORI, ZEMINRENK, TIPI, TARIH)');
      Yap.SQL.Add  ('Values (:UR, :KT, :ZR,  :TP, :TR)');
      Yap.ParamByName(UR).AsString := Kop.FieldByName('URUN').AsString;
      Yap.ParamByName('KT').AsString := Kop.FieldByName('KATEGORI').AsString;
      Yap.ParamByName('ZR').AsString := Kop.FieldByName('ZEMINRENK').AsString;
      Yap.ParamByName('TP').AsString:= Kop.FieldByName('TIPI').AsString;
      Yap.ParamByName('TR').AsDate := Date;
      Kop.ExecSQL;
      Yap.Next;
    end;

En sondaki Kop.ExecSQL ve Yap.Next  yanlış olmuş sanırım.

[Dostk]

değişikliği yaptım.

message 'Kop: Cannot perform this operation on a closed dataset' hatası alıyorum

[yhackup]

(27-01-2017, Saat: 10:45)Dostk Adlı Kullanıcıdan Alıntı: değişikliği yaptım.

message 'Kop: Cannot perform this operation on a closed dataset' hatası alıyorum

bunu kapatıp deneyebilir misin,
// Yap.Close;

[SimaWB]

(27-01-2017, Saat: 10:45)Dostk Adlı Kullanıcıdan Alıntı: değişikliği yaptım.

message 'Kop: Cannot perform this operation on a closed dataset' hatası alıyorum

Ne yaptığınızı bilmiyoruz???

[esistem]

procedure TForm2.BtnYapistisClick(Sender: TObject);
var
 Kop, Yap: TFDQuery; // FireDAC.Comp.Client
begin
 Kop := QCopy;
 Yap := QUList;
   Kop.Connection := XConnection;
   Kop.Close;
   Kop.SQL.Clear;
   Kop.SQL.Add('Select * From COPY');
   Kop.Prepared := True;
   Kop.Open;
   while Not Kop.EOF do
   begin
     Yap.Connection := XConnection;
     Yap.Close;
     Yap.SQL.Clear;
     Yap.SQL.Add  ('Insert Into URUNLER(URUN, KATEGORI, ZEMINRENK, TIPI, TARIH)');
     Yap.SQL.Add  ('Values (:UR, :KT, :ZR,  :TP, :TR)');
     Yap.ParamByName(UR).AsString := Kop.FieldByName('URUN').AsString;
     Yap.ParamByName('KT').AsString := Kop.FieldByName('KATEGORI').AsString;
     Yap.ParamByName('ZR').AsString := Kop.FieldByName('ZEMINRENK').AsString;
     Yap.ParamByName('TP').AsString:= Kop.FieldByName('TIPI').AsString;
     Yap.ParamByName('TR').AsDate := Date;
      Kop.ExecSQL; // Burası Yap.ExecSQL; olmalı
     Yap.Next; // Burası Kop.Next; olmalı
   end;
 end;
end;

[Dostk]

Teşekkür ederim;

Yap.ExecSQL;
Kop.Next;