创建一个带密码的空数据库
函数CreatePassWordDB(strPathName为字符串,strPsd为字符串)为布尔值
出错时转到Exit_ERR
Dim wrkDefault为工作区
Dim NewDB为数据库
CreatePassWordDB = False
Set wrk default = DBEngine。work spaces(0)
If Dir(str pathname)" " Then Kill str pathname
Set NewDB = wrk default。CreateDatabase(strPathName,dblang general & ";pwd=" & strPsd & " ")
NewDB。Close
Set NewDB = Nothing
CreatePasswordDB = true
Exit function
Exit _ err:
msgbox“备份失败!”& vbCrLf & vbCrLf &呃。描述,VB感叹号
退出函数
结束函数
0条评论