创建一个带密码的空数据库

来源： 作者： 出处：巧巧读书 2006-09-24 进入讨论组

• 关 键 词：
• word
• rip
• 数据库

Function CreatePassWordDB(strPathName As String, strPsd As String) As Boolean
On Error GoTo Exit_ERR
Dim wrkDefault As Workspace
Dim NewDB As Database

CreatePassWordDB = False
Set wrkDefault = DBEngine.Workspaces(0)
If Dir(strPathName) <> "" Then Kill strPathName
Set NewDB = wrkDefault.CreateDatabase(strPathName, dbLangGeneral & ";pwd=" & strPsd & "")

NewDB.Close
Set NewDB = Nothing

CreatePassWordDB = True
Exit Function

Exit_ERR:
MsgBox "备份失败！" & vbCrLf & vbCrLf & Err.Description, vbExclamation
Exit Function
End Function

转载保留：http://www.qqread.com/access/y231435.html 更多内容请看电脑密码设置手册、Cisco密码恢复专题、数据库专栏专题，或进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：彻底解决Access数据库被恶意下载的方法

较新的文章：加解密文本的函数