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

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安装程序中的一个可选项目？在任何情况下，一个单独的Microsoft下载存在可用于即使安装必要的软件，当你没有Access 2007的。

见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