Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Gilt für: Access 2013, Office 2013
Erstellt ein neues Database -Objekt, speichert die Datenbank auf einem Datenträger und gibt ein geöffnetes Database-Objekt zurück (gilt nur für Microsoft Access-Arbeitsbereiche).
Syntax
Ausdruck . CreateDatabase(Name, Connect, Option)
Ausdruck Eine Variable, die ein Workspace-Objekt darstellt.
Parameter
Name |
Erforderlich/optional |
Datentyp |
Beschreibung |
|---|---|---|---|
Name |
Erforderlich |
String |
Eine aus bis zu 255 Zeichen bestehende Zeichenfolge, die den Namen der Datenbankdatei darstellt, die Sie erstellen. Dies kann der vollständige Pfad- und Dateiname sein. Sie können auch einen Netzwerkpfad angeben, wenn Ihr Netzwerk dies unterstützt, z. B. \\Server1\Freigabe1\Verz1\db1. Mit dieser Methode können Sie nur Microsoft Access-Datenbankdateien erstellen. |
Connect |
Erforderlich |
String |
|
Option |
Optional |
Variant |
Eine Konstante oder eine Kombination aus Konstanten, die eine oder mehrere Optionen angibt, wie unter Einstellungen festgelegt. Sie können Optionen kombinieren, indem Sie die Summe der entsprechenden Konstanten bilden. |
Hinweise
Sie können eine der folgenden Konstanten für das Argument locale verwenden, um die CollatingOrder-Eigenschaft von Text für Zeichenfolgenvergleiche anzugeben.
Konstante |
Sortierreihenfolge |
|---|---|
dbLangGeneral |
Englisch, Deutsch, Französisch, Portugiesisch, Italienisch und modernes Spanisch |
dbLangArabic |
Arabic |
dbLangChineseSimplified |
Chinesisch (vereinfacht) |
dbLangChineseTraditional |
Chinesisch (traditionell) |
dbLangCyrillic |
Russisch |
dbLangCzech |
Tschechisch |
dbLangDutch |
Niederländisch |
dbLangGreek |
Griechisch |
dbLangHebrew |
Hebräisch |
dbLangHungarian |
Ungarisch |
dbLangIcelandic |
Isländisch |
dbLangJapanese |
Japanisch |
dbLangKorean |
Koreanisch |
dbLangNordic |
Nordeuropäische Sprachen (nur Version 1.0 des Microsoft Jet-Datenbankmoduls) |
dbLangNorwDan |
Norwegisch und Dänisch |
dbLangPolish |
Polnisch |
dbLangSlovenian |
Slowenisch |
dbLangSpanish |
Spanisch (Traditionell) |
dbLangSwedFin |
Schwedisch und Finnisch |
dbLangThai |
Thailändisch |
dbLangTurkish |
Türkisch |
Sie können eine oder mehrere der folgenden Konstanten im Argument options verwenden, um anzugeben, welche Version das Datenformat haben soll und ob die Datenbank verschlüsselt werden soll.
Konstante |
Beschreibung |
|---|---|
dbEncrypt |
Erstellt eine verschlüsselte Datenbank. |
dbVersion10 |
Erstellt eine Datenbank, die das Dateiformat der Version 1.0 des Microsoft Jet-Datenbankmoduls verwendet. |
dbVersion11 |
Erstellt eine Datenbank, die das Dateiformat der Version 1.1 des Microsoft Jet-Datenbankmoduls verwendet. |
dbVersion20 |
Erstellt eine Datenbank, die das Dateiformat der Version 2.0 des Microsoft Jet-Datenbankmoduls verwendet. |
dbVersion30 |
Erstellt eine Datenbank, die das Dateiformat der Version 3.0 des Microsoft Jet-Datenbankmoduls verwendet (kompatibel mit Version 3.5). |
dbVersion40 |
Erstellt eine Datenbank, die das Dateiformat der Version 4.0 des Microsoft Jet-Datenbankmoduls verwendet. |
dbVersion120 |
Erstellt eine Datenbank, die das Dateiformat der Version 12.0 des Microsoft Access-Datenbankmoduls verwendet. |
Wenn Sie die Verschlüsselungskonstante weglassen, erstellt CreateDatabase eine nicht verschlüsselte Datenbank.
Verwenden Sie die CreateDatabase-Methode zum Erstellen und Öffnen einer neuen, leeren Datenbank, und geben Sie das Database-Objekt zurück. Mithilfe zusätzlicher DAO-Objekte müssen Sie dessen Struktur und Inhalt vollständig angeben. Wenn Sie eine vorhandene Datenbank teilweise oder vollständig kopieren möchten, können Sie unter Verwendung der CompactDatabase -Methode eine Kopie erstellen und diese anpassen.
Beispiel
In diesem Beispiel wird CreateDatabase zum Erstellen eines neuen verschlüsselten Database-Objekts verwendet.
Sub CreateDatabaseX()
Dim wrkDefault As Workspace
Dim dbsNew As DATABASE
Dim prpLoop As Property
' Get default Workspace.
Set wrkDefault = DBEngine.Workspaces(0)
' Make sure there isn't already a file with the name of
' the new database.
If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb"
' Create a new encrypted database with the specified
' collating order.
Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", _
dbLangGeneral, dbEncrypt)
With dbsNew
Debug.Print "Properties of " & .Name
' Enumerate the Properties collection of the new
' Database object.
For Each prpLoop In .Properties
If prpLoop <> "" Then Debug.Print " " & _
prpLoop.Name & " = " & prpLoop
Next prpLoop
End With
dbsNew.Close
End Sub