用delphi带的一个工具可以实现,datapump,指定两个数据源即可
或者用程序实现也可以,加入Tbatchmove组件,两个Tdatasource和数据集,设置Batchmove的mode属性为batcopy,具体看看帮助,不懂再问,我给你原码