如何在程序中创建一个Access数据库mdb文件

ACCESS jet SQL 不支持create database语句，用程序创建数据库需要引用ADOX类库。

下面举例示范VB编程创建mdb数据库，注意代码需要先引用ADOX类库（Microsoft ADO Ext. 2.8 for DDL and Security 或其他版本的ADOX）

单击命令按钮在D盘根目录创建一个数据库

Private Sub Command1_Click()

    Dim DbName As String '此变量用于存放完整数据库路径名

    Dim cnStr As String  '此变量用于存放连接数据库字符串

    Dim MyMDB As New ADOX.Catalog  '声明并实例化一个ADOX.Catalog对象

    

    DbName = "D:\Test.mdb"  '拼接完整数据库路径名

    

    '设定数据库连接字符串

    cnStr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & DbName & ""

    

    If Dir(DbName) = "" Then

        '如果指定目录下没有文本框输入的数据库，则

        MyMDB.Create (cnStr)  '创建该ACCESS数据库

        MsgBox "数据库创建成功"

    Else

        MsgBox "指定目录下已经存在同名数据库"

    End If 

End Sub

其它编程工具可以参考这个方案

如果是创建一个 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

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

---