Question

有人请帮助我在运行时使用VB 6.0在特定位置创建MS Access数据库.accdb扩展文件（例如E：\ MMDataBase）＆安培;还帮助我在同一个数据库中创建表。

MS Access 2007已安装在我的计算机中

感谢

Answer 1

ACE数据库引擎本质上是Jet 4.0的扩展版本，包含大量Jet 4.0，并支持新格式。因此，SQL DML和DDL语法与Jet 4.0 SQL非常相似。

我不确定安装Access 2007是否安装ACE提供程序。也许它是Access 2007安装程序中的可选项？在任何情况下，即使您根本没有Access 2007，也可以使用单独的Microsoft下载来安装必要的软件。

请参阅2007 Office System Driver: Data Connectivity Components

一旦到位，这个过程与使用Jet完成此过程基本相同。例如：

Private Sub CreateDB()
    'Reference required:
    '
    '   Microsoft ActiveX Data Objects 2.5 Library (or later).
    '
    'OLEDB Provider required:
    '
    '   Access Database Engine 2007.

    Dim catDB As Object
    Dim cnDB As ADODB.Connection

    Set catDB = CreateObject("ADOX.Catalog")
    With catDB
        .Create "Provider=Microsoft.ACE.OLEDB.12.0;" _
              & "Data Source='D:\sample.accdb'"
        Set cnDB = .ActiveConnection
    End With
    Set catDB = Nothing
    With cnDB
        .Execute "CREATE TABLE ClassDates(" _
               & "Id IDENTITY CONSTRAINT PK_UID PRIMARY KEY," _
               & "Student TEXT(12) WITH COMPRESSION NOT NULL," _
               & "ClassDate DATETIME NOT NULL," _
               & "PaidFor YESNO DEFAULT False," _
               & "CONSTRAINT StudentDates UNIQUE (" _
               & "Student, ClassDate))", , _
                 adCmdText Or adExecuteNoRecords
        .Close
    End With
End Sub

如何在运行时在vb 6.0中创建accdb文件

1 个答案: