如何用代码新建数据库？紧急

Question

用ado链接数据库aaa.mdb,内有数据表t1,t2，
   我想在程序运行中，建立与aaa.mdb结构相同，但是没有数据记录的新数据库bbb.mdb，代码如何写？  谢谢！

Answer 1

拷贝一个aaa.mdb，然后把表里的数据清空，不行吗？

Answer 2

可以直接备份出一个数据库，然后连接清除表数据
备份相同的数据库
var
  strpath: String;
begin
  try
    strPath := ExtractFilePath(Application.ExeName);
    CopyFile(pAnsiChar(strPath+'\aaa.mdb'),PAnsiChar(strPath +'\bbb.mdb'), false);
    //开始联接数据库，清除表
    ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+strPath+'\bbb.mdb;Persist Security Info=True';
    with ADCCON do
    begin
      Connected := false;
      ConnectionString := ConStr;
      Connected := true;
    end;
    ....清除的略了  except
    Messagebox(handle,'失败！','信息提示',0);
  end;
end;

Answer 3

将aaa.mdb作为资源编译 需要的时候释放出来