创建一个空数据库
函数CreateNormalDB(strPathName As String)为Boolean
On Error GoTo Exit _ ERR
Dim wrk default As Workspace
Dim NewDB As Database
CreateNormalDB = False
Set wrk default = DBEngine。work spaces(0)
If Dir(str pathname)" " Then Kill str pathname
Set NewDB = wrk default。CreateDatabase(strPathName,dbLangGeneral)
NewDB。Close
Set NewDB = Nothing
CreateNormalDB = True
退出函数
Exit_ERR:
MsgBox "备份失败!"& vbCrLf & vbCrLf &呃。描述,VB感叹号
退出函数
结束函数
调用时只需提供路径和文件名。此功能是备份数据模块的一部分
0条评论