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

如果是创建一个 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.0Data Source=d:\test.mdb')

end

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

Access是那种文件类的数据库，不适合网络 *** 作。

如果一定要这么做的话，只能通过网络完全共享的方式，在不同电脑上访问这个共享的access的mdb文件来实现。

强烈建议不要这么做，比如，文件被意外或者有意删除怎么办？

建议用网络数据库sqlserver，迁移的工作量也不是很大。

---