国产黄色免费网站,人人干人人干人人干,免费大黄网站在线看,国产情侣一区二区三区,99精品国产福利免费一区二区,国产亚洲成归v人片在线观看,伊人88

2023信創(chuàng)獨角獸企業(yè)100強
全世界各行各業(yè)聯(lián)合起來,internet一定要實現(xiàn)!

創(chuàng)建一個空數(shù)據(jù)庫

2004-02-11 eNet&Ciweek

  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  

  '調(diào)用時只需提供路徑及文件名即可,此函數(shù)為備份數(shù)據(jù)模塊的一部份

相關頻道: eNews

您對本文或本站有任何意見,請在下方提交,謝謝!

投稿信箱:tougao@enet16.com