| 创建一个空数据库 |
|
| 作者：harsonli… 文章来源：第十空间 点击数： 本日：{$DayHits} 更新时间：2003-12-20 23:07:03 |
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
'调用时只需提供路径及文件名即可，此函数为备份数据模块的一部份
|
| 文章录入：tmtony 责任编辑：tmtony |
|
上一篇文章： 隐藏 Access 窗口
下一篇文章： 能否编译mdb文件到exe文件？ |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
