创建一个空数据库


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  

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

本文作者:



相关阅读:
美国科学家用16台Linux PS3模拟黑洞实验
Linux操作系统中使用Windows分区
如何应对锁住的数据记录:NOLOCK和READPAST
Linux中利用系统库文件来降低工作
有关php运算符的知识大全
json 实例详细说明教程
Access 2002的三个实用技巧
unix系统高手的操作习惯
JavaScript中函数声明优先于变量声明的实例分析
WMI中的Win32_PingStatus类(ping命令实现)
安装Firefox的Jetpack扩展的步骤
原创]javascript 指定区域内图片等比例缩放实现代码 脚本之家整合版" target="_blank">[原创]javascript 指定区域内图片等比例缩放实现代码 脚本之家整合版
Linux VPS中简单防御CC攻击
javascript中利用数组实现的循环队列代码
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4