国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發 > 綜合 > 正文

創建一個帶密碼的空數據庫

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



收集最實用的網頁特效代碼！

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 平罗县| 沂水县| 闻喜县| 繁昌县| 锡林浩特市| 莆田市| 嵩明县| 庆城县| 商城县| 仙游县| 河源市| 黄浦区| 隆回县| 台安县| 会理县| 方山县| 庄浪县| 南投县| 吉安县| 合川市| 巩留县| 锦州市| 静宁县| 华池县| 永州市| 喀喇沁旗| 如皋市| 天台县| 河西区| 长宁县| 竹山县| 博客| 泰顺县| 杭州市| 高唐县| 富川| 临江市| 吴江市| 高台县| 波密县| 容城县|