سلام
دوستان عزیز با کد زیر می توانید اطلاعات جدول مبدا در دیتابیس مبدا را به جدول مشابه در دیتابیس مقصد کپی کنید
برای تجمیع اطلاعات بدرد میخوره. احتمالا روشهای بهتری هم باشه ولی شاید بدرد بعضی از دوستان بخوره



var  i:Integer;begin

  qry1.Insert;

  for i := 0 to qry2.fieldcount - 1 do

  begin

    try

      qry1.fieldbyname( qry2.fields[i].fieldname ).value := qry2.fields[i].value

    except

    end;

  end;

  qry1.Post;