MS Access从前端创建新的后端

Question

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

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

Answer 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 

立足新的DB上的现有数据库。

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