Kod: Tümünü seç
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;