Workspace.CreateDatabase Method

  • Article
Access Developer Reference

Creates a new Database object, saves the database to disk, and returns an opened Database object (Microsoft Access workspaces only).

Syntax

expression.CreateDatabase(Name, Connect, Option)

expression   A variable that represents a Workspace object.

Parameters

Name Required/Optional Data Type Description
Name Required String A String up to 255 characters long that is the name of the database file that you're creating. It can be the full path and file name. If your network supports it, you can also specify a network path, such as "\\server1\share1\dir1\db1". You can only create Microsoft Access database files with this method.
Connect Required String A string expression that specifies a collating order for creating the database, as specified in Settings. You must supply this argument or an error occurs. You can also create a password for the new Database object by concatenating the password string (starting with 
  ";pwd="
) with a constant in the locale argument, like this: 
  dbLangSpanish & ";pwd=NewPassword"
If you want to use the default locale, but specify a password, simply enter a password string for the locale argument: 
  ";pwd=NewPassword"
Use strong passwords that combine upper- and lowercase letters, numbers, and symbols. Weak passwords don't mix these elements. Strong password: Y6dh!et5. Weak password: House27. Use a strong password that you can remember so that you don't have to write it down.		 
  ";pwd="

  dbLangSpanish & ";pwd=NewPassword"

  ";pwd=NewPassword"
Option Optional Variant A constant or combination of constants that indicates one or more options, as specified in Settings. You can combine options by summing the corresponding constants.

Remarks

You can use one of the following constants for the locale argument to specify the CollatingOrder property of text for string comparisons.

Constant Collating order
dbLangGeneral English, German, French, Portuguese, Italian, and Modern Spanish
dbLangArabic Arabic
dbLangChineseSimplified Simplified Chinese
dbLangChineseTraditional Traditional Chinese
dbLangCyrillic Russian
dbLangCzech Czech
dbLangDutch Dutch
dbLangGreek Greek
dbLangHebrew Hebrew
dbLangHungarian Hungarian
dbLangIcelandic Icelandic
dbLangJapanese Japanese
dbLangKorean Korean
dbLangNordic Nordic languages (Microsoft Jet database engine version 1.0 only)
dbLangNorwDan Norwegian and Danish
dbLangPolish Polish
dbLangSlovenian Slovenian
dbLangSpanish Traditional Spanish
dbLangSwedFin Swedish and Finnish
dbLangThai Thai
dbLangTurkish Turkish

You can use one or more of the following constants in the options argument to specify which version the data format should have and whether or not to encrypt the database.

Constant Description
dbEncrypt Creates an encrypted database.
dbVersion10 Creates a database that uses the Microsoft Jet database engine version 1.0 file format.
dbVersion11 Creates a database that uses the Microsoft Jet database engine version 1.1 file format.
dbVersion20 Creates a database that uses the Microsoft Jet database engine version 2.0 file format.
dbVersion30 Creates a database that uses the Microsoft Jet database engine version 3.0 file format (compatible with version 3.5).
dbVersion40 Creates a database that uses the Microsoft Jet database engine version 4.0 file format.
dbVersion120 Creates a database that uses the Microsoft Access database engine version 12.0 file format.

If you omit the encryption constant, CreateDatabase creates an un-encrypted database.

Use the CreateDatabase method to create and open a new, empty database, and return the Database object. You must complete its structure and content by using additional DAO objects. If you want to make a partial or complete copy of an existing database, you can use the CompactDatabase method to make a copy that you can customize.

Example

This example uses CreateDatabase to create a new, encrypted Database object.

Visual Basic for Applications 
  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