创建一个空数据库
发布时间：2006-06-12 23:44:13 来源：友佳学院(整理) 网友评论 0 条
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
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
'调用时只需提供路径及文件名即可，此函数为备份数据模块的一部份
推荐阅讯
- MicrosoftAccess秘密技巧和陷阱
- 如何将Access和Excel导入到Mysql中之三
- 能否编译mdb文件到exe文件？
- 取得磁碟机之Volumn及Serial Number
- Access数据库开发技巧(三)
- 如何确定有多少人登陆数据库？
- 在 Access 中使用“存储过程”
- ASP＋Access的安全隐患及对策
- 如何远程调用ACCESS数据库
- 通过Access从Web获取MySQL数据
阅读排行
- 1.Access数据库及其基本操作
- 2.能否编译mdb文件到exe文件？
- 3.站长必备：防止ACCESS数据库被下载9法
- 4.如何确定有多少人登陆Access数据库？
- 5.Access数据库开发技巧(一)
- 6.Access命令行参数
- 7.提高拆分数据库在网上运行、编辑的速度
- 8.如何确定有多少人登陆数据库？
- 9.Access数据库开发技巧(二)
- 10.创建一个空数据库
专题教程
- 大话G游 专题：手机病毒揭密
- ARP攻击防范与解决方案 路由故障处理手册
- Picasa中文版_Picasa教程 专题：清除流氓软件
- Firefox专题 seo搜索引擎优化专区
- 重装Windows必知的事情 装机之必备软件大行动
病毒专杀栏