UC知道VB中用ADODB连接Access,是否有判断.mdb是否有密码的语句？
来源：百度知道 编辑：UC知道 时间：2024/07/05 14:14:38
rt,我想做一个数据库密码输入框，并且提供3次的输入机会
我先用dbE.CompactDatabase判断是否加密，如果已加密，则跳入Err_Handle，在此标签下进行密码输入，但是问题来了，我得先对输入的密码进行判断，我依然用了dbE.CompactDatabase，但是错了之后我还想跳入标签，但是标签是不能套用标签的，我该怎么解决呢？
或者有其他好的方法来实现么？
可以回答详细点么？会追加悬赏的，谢谢哈~~~~
To 准VB专家:
您还没明白我的问题，我判断是否存在时必须得用 on error goto error_handle 来捕获错误，而当程序进入error_handle后，不能再次使用on error goto error_handle。谢谢
我先用dbE.CompactDatabase判断是否加密，如果已加密，则跳入Err_Handle，在此标签下进行密码输入，但是问题来了，我得先对输入的密码进行判断，我依然用了dbE.CompactDatabase，但是错了之后我还想跳入标签，但是标签是不能套用标签的，我该怎么解决呢？
或者有其他好的方法来实现么？
可以回答详细点么？会追加悬赏的，谢谢哈~~~~
To 准VB专家:
您还没明白我的问题，我判断是否存在时必须得用 on error goto error_handle 来捕获错误，而当程序进入error_handle后，不能再次使用on error goto error_handle。谢谢
忽略掉所有错误on error resume next,不要用on error goto handle
先做无密码连接,未出错则成功连接,出错了就说明需要密码,要做相应处理,以下代码不是很完整,相信对你有启发
on error resume next
dim conn,constr,fail
set conn=new adodb.connection
constr=<无密码连接>
重新连接:
err.clear
conn.open constr
if err then '需要密码
if fail>3 then
msgbox "没有机会了"
exit sub
end if
<请求输入密码>
constr=<无密码连接> + <密码>
fail=fail+1
goto 重新连接
end if
用goto Err_Handle啊,在增加一个变量Times统计次数,Timer达到3次就不goto了