首页 > 开发 > 综合 > 正文

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

2024-07-21 02:12:31

字体：大中小

来源：转载

供稿：网友

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

收集最实用的网页特效代码！

上一篇：防止Access 2000密码被破译的方法

下一篇：加密后台数据库的方法

学习交流

如何查找有故障的配件

如何查找有故障的配件...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

最牛同桌！我考了696分我同桌考了703分

2024-06-26 22:28:41

650分！高二女生考入北大：遗憾不能上高三

2024-06-26 22:26:16

男生估分600只考了397 妈妈：高考虽重要，但不代表所有

2024-06-26 22:23:01

唐尚珺回应是否会直播带货：有人出100万想和他合作！

2024-06-25 19:29:23

名校抢人名场面：清华、北大太拼了！

2024-06-25 19:22:14

男生高考语文满分！网友：第一次听说

2024-06-25 19:19:15

疑难解答

图片精选

网友关注