Question

我想用vb做个登录界面，只有access表中的用户才能登陆

我想用vb做个登录界面，只有access表中的用户才能登陆,而且登陆界面可以申请帐号，申请的帐号可以存入access表中

Answer 1

首先在部件-控件里找到Microsoft ADO DataControl 6.0，打勾，然后在窗体上添加Adodc1。
2. 添加两个文本输入框text1,text2，分别用来接收用户输入用户名和密码。
3、在Adodc1控件的属性窗口中单击Connectionstring右侧的…按钮，打开ADO的属性页，选择“使用连接字符串”，单击“生成”按钮，打开数据链接属性对话框，在“提供程序”页中选择Microsoft Jet 4.0 OLE DB Provider，单击“下一步”，在“连接”页中，输入数据库名称XXXX.mdb（前提是将数据库文件和工程文件保存在同一目录下），单击“测试连接”，如果连接成功，单击“确定”即可。
4、将以下代码添加到登录按钮：
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 数据表名称 where username='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "没有这个用户，请重新输入正确的用户名", , "错误提示"
Else
If Text2.Text = Adodc1.Recordset.Fields("password") Then
MsgBox "登录成功！", , "错误提示"
Else
MsgBox "你的密码错误,请输入正确的用户密码！", , "错误提示"
End If
End If
End Sub

Answer 2

text1是用户名文本框，text2是密码框，command1是登陆按钮，command2是注册按钮 Dim db As Connection
Dim WithEvents rs As RecordsetPrivate Sub Command1_Click()
Set db = New Collection
Set rs = New Recordset
db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\main.mdb;"
rs.Open "select * from 表1 where 用户名='" & Text1.Text & "'"
If rs.RecordCount = 0 Then
MsgBox "无此用户！"
Exit Sub
Else
If rs!密码 <> Text1.Text Then
MsgBox "密码错误！"
Exit Sub
Else
MsgBox "登陆成功！"
End If
End If
End SubPrivate Sub Command2_Click()
db.Execute "insert into 表1 (用户名,密码) values ('" & Text1.Text & "','" & Text2.Text & "')"
MsgBox "用户创建成功！"
End Sub

Answer 3

连接数据库，一步一步做就是了，登陆的时候先检查是否有此用户，没有就提示注册，有就判断登陆提供的信息是否正确，正确就进入，错误就提示相应的错误信息啊，呵呵