欲以程式建立 Access 資料庫,你可以使用 OLE 的方式:
Uses ComObj;
procedure CreatAccessDB(const FileName: String);
var
DBEngine, Workspace: Variant;
const
{Important to use the following constant as is}
dbLangGeneral = ';LANGID=0x0409;CP=1252;COUNTRY=0';
dbVersion30 = 32;
begin
DBEngine := CreateOleObject('DAO.DBEngine.35'); //For DAO 3.5
Workspace := DBEngine.Workspaces[0];
try
Workspace.CreateDatabase(FileName, dbLangGeneral, dbVersion30);
except on EOleException do
ShowMessage('Database already exists');
end;
end;
或者使用 Type Library 的方式:
Uses DAO_TLB;
{ Create Access database with DAO }
procedure DaoCreateAccessDB(const FileName: string);
const
{Important to use the following constant as is}
dbLangGeneral = ';LANGID=0x0409;CP=1252;COUNTRY=0';
dbVersion30 = 32;
var
DBEngine: TDBEngine;
ws: Workspace;
begin
DBEngine := TDBEngine.Create(nil);
ws := DBEngine.Workspaces[0];
if FileExists(FileName) then
DeleteFile(FileName);
try
ws.CreateDatabase(FileName, dbLangGeneral, dbVersion30);
DBEngine.Free;
except
DBEngine.Free;
raise;
end;
end;
               (
geocities.com/huanlin_tsai)