日期：2011-05-01 23:30:00 来源：本站整理

成立一个空数据库[Access防范]

赞助商链接

分享到： QQ空间新浪微博腾讯微博人人网

　　本文“成立一个空数据库[Access防范]”是由七道奇为您精心收集，来源于网络转载，文章版权归文章作者所有，本站不对其观点以及内容做任何评价，请读者自行判断，以下是其具体内容：
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

'调用时只需供应途径及文件名便可,此函数为备份数据模块的一部份
　　以上是“成立一个空数据库[Access防范]”的内容，如果你对以上该文章内容感兴趣，你可以看看七道奇为您推荐以下文章：

利用SQL Server 7.0成立一个安全的数据库的最好办法是什么?

成立一个空数据库

为Access2007成立一个利用程序级的自定义Ribbon——Office2007

Access 2000教程:4.2 成立一个空的数据库

[Access 2000 教程]第四课:成立一个空数据库

成立一个带密码的空数据库

用RMI成立一个分布式Java操纵程序详解

成立一个Java操纵数据库的桌面操纵程序

操纵Java Swing成立一个XML编辑器之三

操纵Java Swing成立一个XML编辑器