我想问一下怎样用vb实现登陆的例子

来源：百度知道 编辑：UC知道 时间：2024/06/01 04:46:20
我想问一下怎样用vb实现登陆的例子，其中登陆的账号和密码连接到数据库，急用！不胜感激！最好有例子！Data连接access数据库，账号在text1中显示，密码在text2中显示，密码修改的程序也请那位大虾给一个，谢谢了，比如，原始密码，新密码，新密码确认，这样的

首先添加microsoft DAO 3.6 Object Library

Public db As DAO.Database
Dim rs As Recordset

Set db = OpenDatabase("数据库路径", True, False, "数据库密码")
Set rs = db.OpenRecordset("select * from table1 where 帐号='" & txtUser.Text & "' and 密码='" & txtPassWord.text &"'")
if rs.eof then
msgbox "帐号或密码错误",,"提示："
exit sub
else
frmSystem.show
endif

密码修改的和上边差不多
Set rs = db.OpenRecordset("select * from table1 where 帐号='" & txtUser.Text & "' and 密码='" & txtPassWord.text &"'")
if rs.eof then
msgbox "原始密码错误"
exit sub
else
rs.edit
rs!密码=txtNewPassWord.text
rs.updata
rs.close
endif

感觉不错就追加点分吧

Dim TIM As Integer
Dim mydb As Database
Dim myrs As Recordset
Dim sql As String
Private Sub Form_Ac