通过

Workspace.CreateDatabase 方法 (DAO)

适用于：Access 2013、Office 2013

创建一个新的 Database 对象，将数据库保存到磁盘，然后返回一个打开的 Database 对象（仅适用于 Microsoft Access 工作区）。

语法

表达式 。CreateDatabase (名称、 连接、 选项)

表达式 一个表示 Workspace 对象的变量。

参数

名称

必需/可选

数据类型

说明

Name

必需

字符串

一个最长为 255 个字符的 String，是所创建的数据库文件的名称。 它可以是完整路径和文件名。 如果网络支持的话，还可以指定网络路径，例如“\\server1\share1\dir1\db1”。 使用此方法只能创建 Microsoft Access 数据库文件。

Connect

必需

字符串

  • 一个字符串表达式，根据“设置”中的定义指定创建数据库时使用的整理顺序。 必须提供此参数，否则会发生错误。

  • 还可以通过连接以“开头的密码字符串 (为新的 Database 对象创建密码。pwd=“) 区域 设置参数中的常量，如下所示：

  • dbLangSpanish &“;pwd=NewPassword”

  • 如果需要使用默认的 locale，但又要指定密码，只需要为 locale 参数输入密码字符串：

  • ";pwd=NewPassword”

  • 使用混合大小写字母、数字和符号的强密码。 弱密码不混合使用这些元素。 例如，强密码：Y6dh!et5。 弱密码：House27。 请使用可以记住的强密码，这样就不必记录密码了。

选项

可选

Variant

一个常量或常量组合，根据“设置”中的指定指示一个或多个选项。 可通过对相应的常量求和来组合选项。

备注

可以使用 locale 参数的下列常量之一，指定用于字符串比较的文本的 CollatingOrder 属性。

常量

整理顺序

dbLangGeneral

英语、德语、法语、葡萄牙语、意大利语和现代西班牙语

dbLangArabic

阿拉伯语

dbLangChineseSimplified

简体中文

dbLangChineseTraditional

繁体中文

dbLangCyrillic

俄语

dbLangCzech

捷克语

dbLangDutch

荷兰语

dbLangGreek

希腊语

dbLangHebrew

希伯来语

dbLangHungarian

匈牙利语

dbLangIcelandic

冰岛语

dbLangJapanese

日语

dbLangKorean

朝鲜语

dbLangNordic

北欧语言（仅适用于 Microsoft Jet 数据库引擎 1.0 版）

dbLangNorwDan

挪威语和丹麦语

dbLangPolish

波兰语

dbLangSlovenian

斯洛文尼亚语

dbLangSpanish

传统西班牙语

dbLangSwedFin

瑞典语和芬兰语

dbLangThai

泰语

dbLangTurkish

土耳其语

可以在 options 参数中使用下列一个或多个常量，以指定数据格式应使用的版本，以及是否对数据库加密。

常量

说明

dbEncrypt

创建加密的数据库。

dbVersion10

创建一个使用 Microsoft Jet 数据库引擎 1.0 版文件格式的数据库。

dbVersion11

创建一个使用 Microsoft Jet 数据库引擎 1.1 版文件格式的数据库。

dbVersion20

创建一个使用 Microsoft Jet 数据库引擎 2.0 版文件格式的数据库。

dbVersion30

创建一个使用 Microsoft Jet 数据库引擎 3.0 版文件格式的数据库（与 3.5 版兼容）。

dbVersion40

创建一个使用 Microsoft Jet 数据库引擎 4.0 版文件格式的数据库。

dbVersion120

创建一个使用 Microsoft Access 数据库引擎 12.0 版文件格式的数据库。

如果省略加密常量， CreateDatabase 将创建一个不加密的数据库。

可使用 CreateDatabase 方法创建和打开一个新的空数据库，然后返回 Database 对象。 必须通过使用其他 DAO 对象完成该数据库的结构和内容。 如果要对现有的数据库制作一个部分副本或完整副本，可以使用 CompactDatabase 方法制作一个能够自定义的副本。

示例

以下示例使用 CreateDatabase 创建一个新的加密 Database 对象。

    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
  • Last updated on