创建一个空数据库 [Access使用实例] IT部落iTbulo.com

用户名：密码：

免费注册忘记密码？

网站地图 | 加入收藏 | 设为首页

首页 | 新闻 | 工具 | 系统 | 办公 | 聊天 | 多媒体 | 网页 | 运营 | 平面 | 欣赏 | 数据库 | 程序 | 服务器 | 组网

iTbulo.com > 学院 > 数据库开发教程 > Access教程 > Access使用实例 > 文章正文

创建一个空数据库

iTbulo.COM 2005-4-10 佚名()

Function CreateNormalDB(strPathName As String) As Boolean
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

'调用时只需提供路径及文件名即可，此函数为备份数据模块的一部份

文章搜索

相关资讯

相关文章	相关下载
微软安全已有进步?5月漏洞只有一个 QQ新病毒QQ乐能创建自运行文件黑客网站竟卖电脑病毒100元一个一个论坛凭什么能留住人？一个论坛的兴亡

焦点信息

· 比ACDSee更强更好用 Picasa中文版

· 历史上最强的浏览器：Firefox简体中文版下载

· 无线局域网常见故障及其解决办法五例

· DIV+CSS学习之margin缩进法

· 总结知识：FLASH常用语法

· Photoshop中参考线/标尺的应用技巧