大家好，今天由我来为大家分享vb 数据库 access，以及vb 数据库 access的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，接下来我们开始吧！
接着上一期的学习，今天试着做了一个注册界面，另外把上次的登录界面美化了一下，看起来好多了。不多说，看看我做的效果怎么样吧。
在登录界面新建一个label控件，当首次使用系统的时候就通过注册，跳转到注册的窗体进行注册操作。注册的逻辑还是跟登录的逻辑差不多，首先连接到access数据库，通过比对数据库确定我们注册的用户名是否重复，同时检测两次输入的密码是否一致，当符合注册条件后，提示注册成功并跳转到登录界面。
二、操作说明
如图新建一个注册窗体，并在窗体上新建3个label控件，3个text控件，1个command控件。数据库还是上次使用的2003版本的access数据库，包含一张名为user1的表格，表格中包括username和password字段。数据库文件Database1.mdb放置在VB工程所在的目录。
三、输入代码
Private Sub Command1_Click()
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim str2 As String
If Text1.Text = "" Then
MsgBox "用户名不能为空，请重新输入！", vbOKOnly + vbInformation, "提示"
Text1.SetFocus
Text2.Text = ""
ElseIf Text2.Text <> Text3.Text Then
MsgBox "两次输入的密码不同，请重新输入密码！", vbOKOnly + vbInformation, "注意"
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
cnn.Open
str2 = "select * from users1 where username= '" & Trim(Text1.Text) & "'"
rs.Open str2, cnn, adOpenKeyset, 3
If Not rs.EOF Then
MsgBox "该用户存在，请重新输入！", vbOKOnly + vbInformation, "提示"
rs.Close
rs.AddNew
rs.Fields(0) = Trim(Text1.Text)
rs.Fields(1) = Trim(Text2.Text)
rs.Update
rs.Close
MsgBox "注册成功", , "提示"
Unload Form3
Form1.Show
End If
End If
End Sub
四、运行效果详见视频
相关信息就介绍到这里，vb 数据库 access的问题希望对你有所帮助。
