ms-access - MS Access フロントエンドから新しいバックエンドを作成

Question

バックエンド データベースを表示および変更するように設計されたアクセス フロント エンドがあります。ユーザーがフロントエンドからログインして、Open Dialog Window から既存のバックエンドを選択できるように設定されています。

ただし、ユーザーがフロントエンド内から新しいバックエンドを作成できるようにするにはどうすればよいでしょうか?

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 を既存の 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