如何用vba代码新建数据库-Natsume Takashi 专栏

BEngine.CreateDatabase 方法

创建一个新的 Database 对象，将数据库保存到磁盘，然后返回一个打开的 Database 对象（仅适用于 Microsoft Access 工作区（Access 工作区：使用 Access 数据库引擎访问数据源的工作区。数据源可以是 Access 数据库文件、ODBC 数据库（如 Paradox 或 Microsoft SQL Server 数据库）或 ISAM 数据库。））。

语法

表达式.CreateDatabase(Name, Locale, Option)

表达式 一个代表 DBEngine 对象的变量。

参数

名称

必选/可选

数据类型

说明

Name

必选

String

一个最长为 255 个字符的 String （字符串数据类型：一种存储字符的基本数据类型，一个字符等于两个字节。固定长度的字符串能够包含 1 至 64K 个字符；可变长度的字符串能够包含 1 至 20 亿个字符。），是所创建的数据库文件的名称。它可以是完整路径和文件名。如果网络支持的话，还可以指定网络路径，例如“\\server1\share1\dir1\db1”。使用此方法只能创建 Microsoft Access 数据库文件。

Locale

必选

String

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

";pwd="

开头）与 locale 参数中的某个常量相连接，为新的 Database 对象创建密码，其方式类似于：

dbLangSpanish & ";pwd=NewPassword"

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

";pwd=NewPassword"

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

Option

可选

Variant

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

示例 :

sub 测试
On Error GoTo Err100
'在当前路径建立名为 新数据库 的数据库
CreateDatabase CurrentProject.Path & "/新数据库", dbLangGeneral
MsgBox " 一切 OK ， 数据库建立完成！ ", vbInformation
Exit Sub
Err100:
MsgBox "不能建立数据库! " & vbCrLf & vbCrLf & Err.Description, vbInformation
end sub