Question

Delphi程序中怎样创建一个Access数据库

Answer 1

如果是创建一个 access 数据库，最简单的办法是先用 access 软件建立一个空的 access 数据库文件(*.mdb)，然后再程序中复制到指定文件夹中。

也可以尝试使用 Ole 建立，以下是示例代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  CreateAccess:OleVariant;
begin
  CreateAccess:=CreateOleObject('ADOX.Catalog');
  CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.mdb');
end;

注意：建立数据库，与建立数据库中的表，不是同一种操作。