繁體中文当前位置: 首页 > 图文教程 > 数据库 > Access > 创建一个空数据库
- Access
- 中文Access2000速成教程--1.2 使用“数据库向导”创建表
- 建立自由的会计日期的报表--1.2.创建让用户选择日期窗体
- 建立自由的会计日期的报表--1.1.认识几个有关时间的函数
- 建立自由的会计日期的报表
- 使用准则进行条件查询--1.5.常用的准则表达式
- 使用准则进行条件查询--1.4.从窗体中选择查询的条件
- 中文Access2000速成教程--1.1 使用“向导”设计数据库
- 获取ACCESS2000数据库中所有表的名称
- 中文Access2000速成教程--1.3 在“设计”视图中设计表
- 中文Access2000速成教程--1.4 使用“表向导”建立新表
- 中文Access2000速成教程--1.8 定义表之间的关系
- 中文Access2000速成教程--1.5 使用已有的数据自动建新表
- 中文Access2000速成教程--1.6 定义“主键”
- 中文Access2000速成教程--1.7 创建索引
- 解决Access中分组报表的问题
- 用 INNER JOIN语法联接多个表建记录集
- ACCESS学习日记
- Access保留字&变量名列表
- 如何 在Access中选择指定日期前的记录？
- ACCESS中关于SQL语句的转义字符
Access 中的 创建一个空数据库
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 56 ::
收藏到网摘: n/a
On Error GoTo Exit_ERR
Dim wrkDefault As Workspace
Dim NewDB As Database
CreateNormalDB = False
Set wrkDefault = DBEngine.Workspaces(0)
If Dir(strPathName) <> "" Then Kill strPathName
Set NewDB = wrkDefault.CreateDatabase(strPathName, dbLangGeneral)
NewDB.Close
Set NewDB = Nothing
CreateNormalDB = True
Exit Function
Exit_ERR:
MsgBox "备份失败！" & vbCrLf & vbCrLf & Err.Description, vbExclamation
Exit Function
End Function
'调用时只需提供路径及文件名即可，此函数为备份数据模块的一部份
评论 (0) All
