查看完整版本: 创建一个空数据库

创建一个空数据库

Function CreateNormalDB(strPathName As String) As Boolean
K!G @/q \W n On Error GoTo Exit_ERR.Sz&op ^v
Dim wrkDefault As Workspace
7t?{x]6_$NK|+Ctx Dim NewDB As Database
5A!D} JG/^,P8_
v D*k;Ey9n&p CreateNormalDB = False
,Z @ov_&wv?J{ Set wrkDefault = DBEngine.Workspaces(0)yd]"B.h
If Dir(strPathName)  "" Then Kill strPathName N7TH.o$H,em~
Set NewDB = wrkDefault.CreateDatabase(strPathName, dbLangGeneral)
Hq8r di h
3C7rE4p0ng~,Wq NewDB.Close
+{
} ]Fz e6rI/I\z Set NewDB = Nothingo5SF(N5oH

D6b$}&G-b;MT CreateNormalDB = True
bf'KRh0db#Y5Q.N Exit Function
B V}t"R\)y
!s"]T)k6O3}    `0v&oHL"Ai9m

? d&R2V C[#R Exit_ERR:
h{k5^-?#\'u*J*H&E'm MsgBox "备份失败！"  vbCrLf  vbCrLf  Err.Description, vbExclamation:I'A%?!nK(u MRf;E
Exit Function|9`rHp?Wi0P
End Function  
R~b-wsA1sHM
%s:P(S{ TM '调用时只需提供路径及文件名即可，此函数为备份数据模块的一部份