如何在程序中自动生成MDB数据库？

Question

我的代码如下，但报错；
var dd:_DBEngine;
   Name: WideString;
   loacale: WideString;
   Option: OleVariant;
   ff:database;
   wp:Workspace;
begin
//_DBEngine.
wp := dd.CreateWorkspace('', 'admin', '',dbUseJet);name:='c:\test.mdb';
//loacale:='c:';loacale:='dbLangChineseSimplified';
option:=dbEncrypt;
ff:=wp.CreateDatabase(name,loacale,option);
//dd.CreateDatabase();end;

Answer 1

//创建c:\MyCreateDB.mdb
var accessdb :OleVariant;  accessdb := CreateOleObject('ADOX.CataLog');
  accessdb.create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyCreateDB.mdb');
  accessdb := NULL;