动态创建ACCESS数据库

1：通过OLE方式创建

uses ComObj;

 

procedure TFormOffice.BitBtn1Click(Sender: TObject);

var

CreateAccess:OleVariant;

begin

CreateAccess:=CreateOleObject(´ADOX.Catalog´);

CreateAccess.Create(´Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/Aceco.mdb´);

end;

//

说明：

1、在C:/下创建Aceco.mdb；

2、是Access2000格式，用Access97打不开；

3、系统需安装MDAC，这是好消息，客户不需安装Access也可以

 

 

2：采用资源文件方式

创建一个文本文件写入 mdb RCDATA Aceco.mdb  ，保存为 Aceco.rc

 //Aceco.mdb 为原始的MDB文件

在运行里进入改文件目录，运行 BRCC32  Aceco.rc 则创建了 Aceco.RES资源文件，工程重新建立之后

文件里加入

{$R *.dfm}
{$R Aceco.RES} //加入资源文件

 

procedure SaveRes();
var
  Res: TResourceStream;
begin
  Res := TResourceStream.Create(HInstance, 'mdb', PChar(RT_RCDATA));
  try
    Res.SaveToFile(ExtractFilePath(Application.ExeName) + Aceco.mdb');
  finally
    Res.Free;
  end;
end;