MS Access 从前端创建新的后端

【问题标题】：MS Access Create new back end from front endMS Access 从前端创建新的后端
【发布时间】：2012-11-14 07:14:01
【问题描述】：

我有一个访问前端，旨在查看和修改后端数据库。它被设置为允许通过前端登录的用户通过打开对话窗口选择现有的后端。

但是，我将如何允许用户从前端创建新的后端？

【问题讨论】：

【解决方案1】：

使用 ADOX 目录

Dim cat
Set cat = CreateObject("ADOX.Catalog")

With cat
    .create "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=z:\docs\new.accdb"

    With .ActiveConnection
        sSQL = "CREATE TABLE T1 (ID Counter Primary Key, AText Text(20))"
        .Execute sSQL
    End With
End With

基于现有数据库的新数据库。

Dim fs As Object 'FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
FileName = CurrentProject.Path & "\New.accdb"
If Not fs.FileExists(FileName) Then
    fs.copyfile CurrentProject.FullName, FileName, False
End If

【讨论】：