创建一个带密码的空数据库- -数据库 -Access -实例技巧

操作系统程序设计图形图像媒体动画机械电子 WEB开发数据库办公软件路由技术网络原理网络架设网络管理认证培训

您的位置：计算机资讯网 >> 数据库 >> Access >> 实例技巧 -> 创建一个带密码的空数据库

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

2004-10-14 16:02:40

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

转自:不详作者:未知

【关闭】

加入收藏

推荐给好友

打印本文

内容为网上收集,并不代表本站同意或者赞同其观点,如果有任何版权,内容问题,请联系本站,我们将在第一时间处理.

查询

热点专题

服务