急求vb代码!引用数据库!

来源：百度知道 编辑：UC知道 时间：2024/05/31 18:41:13
设置一个业面登陆界面,(学号,密码,班级).登陆时候要用到数据库里的数据,如果不正确,不能登陆!再设计一个可以修改密码的代码!(vb6.0)x谢谢!!
是用数据库里的！sql和access可能要用吧！

Private Sub Command1_Click()
Dim a, b As Integer
If Text1.Text = Data1.Recordset.Fields("id") And Text2.Text = Data1.Recordset.Fields("passchar") Then '如果用户名和密码成立，登入成功
a = MsgBox("登录成功！", 33, "信息提示")
Else
b = MsgBox("密码错误！", 48, "信息提示")
End If
If b = vbOK Then
Text1.Text = ""
Text2.Text = ""
End If
If a = vbOK Then
Form1.Show '进入学生信息管理系统'
Form2.Hide
End If
End Sub

怎么发给你啊。

哪种数据库啊?
SQL?ACCESS?