如何在程序中复制Access表

Question

或者是
TDataSet的bachmove函数

Answer 1

程序如下：
procedure TFormMain.Button1Click(Sender: TObject);
var
  newfile,modalfile : TFilestream;
begin
  Opendialog1.Title := '新建井';
  OpenDIalog1.InitialDir := path ;
  if Opendialog1.Execute then
  begin
    if FileExists(Opendialog1.FileName) then
       ShowMessage('目标文件已经存在!');
    else
    begin
      newfile := TFileStream.Create(Opendialog1.FileName,fmcreate);
      modalfile := TFileStream.Create('模板.mdb',fmOpenRead);
      newfile.CopyFrom(modalfile, modalfile.Size);
      newfile.Free;
      modalfile.Free;
    end;
  end;
end;