网上有关“vb为access数据库设置密码”话题很是火热，小编也是针对vb为access数据库设置密码寻找了一些与之相关的一些信息进行分析，如果能碰巧解决你现在面临的问题，希望能够帮助到您。
忽略掉所有错误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
vb连接ASSESS数据库哪里错了！
sql?=?"select?密码?from?学生表?where?学号='"?&?Text1?&?"'" rs.Open?sql,?cnn,?adOpenStatic,?adLockOptimistic If?Text2.Text?<>?rs("密码")?Then MsgBox?"用户口令错误" rs.Close Else rs.Close MsgBox?"登陆成功"Provider=Microsoft.ACE.OLEDB.12.0
用Microsoft.Jet.OLEDB4.0
DAO是很老的技术,建议不要用,用ADO控件就能很轻松地解决,在工程里找到Microsoft ADO Data Control 6.0,勾上应用,把ADO控件直接拖在窗体上,Visible属性改成False,把工程保存在一个文件夹下面,在文件夹里新建一个ACCESS,取名叫ACCESS.mdb.再在窗体上拖一个Command两和Text
窗体上写代码:
Private Sub 登陆按钮名_Click()
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "ACCESS.mdb"
Adodc1.RecordSource="Select * From 表1 Where 用户名='"+Text1+"' And 密码='"+Text2+"'"
Adodc1.Refresh
If Not Adodc1.RecordSet.EOF
要登陆的窗体.Show
me.hide
Else
MSGBOX "错误消息",vbOkOnly,"标题"
End
这就是完整的登陆验证代码.你用个While循环干什么,那样是循环遍历数据库啊,没这个必要,而且一旦条件不成立形成恶性循环.
IfRs.MoveNext
这句什么意思
MoveNext是操作名称,不是结果,结果这么写:
Adodc1.RecordSet.fields("字段名")
这是结果,可以用来判断
Adodc1.RecordSet.MoveNext
是指记录移到下一条,你那意思加个While循环就是遍历数据库,在进行操作时必须是建立在RecordSet基础上的操作,而不是rs上的操作,规范写法是rs.RecordSet.MoveNext
是指
关于“vb为access数据库设置密码”这个话题的介绍，今天小编就给大家分享完了，如果对你有所帮助请保持对本站的关注！
本文来自作者[靖阳]投稿，不代表欧拉号立场，如若转载，请注明出处：https://ooplay.net/oula/1344.html
评论列表（3条）
我是欧拉号的签约作者“靖阳”
本文概览：网上有关“vb为access数据库设置密码”话题很是火热，小编也是针对vb为access数据库设置密码寻找了一些与之相关的一些信息进行分析，如果能碰巧解决你现在面临的问题，希望...
文章不错《vb为access数据库设置密码》内容很有帮助