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;