27-01-2017, Saat: 00:24
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;
Hayat bazen güzel olabiliyor.