如何动态生成Access文件，并定义表结构

Question

// 动态创建.mdb数据库文件
procedure TMainForm.CreateDynamicDatabase(filename: string);
var
  CreateAccess: OleVariant;
begin
  CreateAccess := CreateOleObject('ADOX.Catalog');
  CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + filename
    + '; Jet OLEDB:Database Password=xyz');
end;// 创建场地信息表
procedure TMainForm.CreateTableCDXX;
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Create Table CDXX(');
    SQL.Add('CD char(5) not null, ');
    SQL.Add('RQ date not null, ');
    SQL.Add('ZSR money default 0 not null, ');
    SQL.Add('ZZC money default 0 not null, ');
    SQL.Add('ZYY money default 0 not null, ');
    SQL.Add('PRIMARY KEY (CD))');
    ExecSQL;
  end;
end;

Answer 1

问一个很傻的问题，我怎么把分给你delphi_12345？