VB 判断用户注册名是否存在
来源:百度知道 编辑:UC知道 时间:2024/06/02 09:50:20
我要在下面代码中添加一条判断“用户注册名是否存在”
应该在哪里添加,代码怎么写啊
Private Sub Command1_Click()
Dim sql As String
Dim rs_add As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空", vbOKOnly + vbExclamation, ""
Exit Sub
Else
End If
If Trim(Text2.Text) <> Trim(Text3.Text) Then
MsgBox "两次密码不一致", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Text2.Text = ""
Text3.Text = ""
Exit Sub
Else
ExeCutesql "insert into user1 values('" & Text1.Text & "','" & Text2.Text & "') ", Str_text
MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End Sub
应该在哪里添加,代码怎么写啊
Private Sub Command1_Click()
Dim sql As String
Dim rs_add As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空", vbOKOnly + vbExclamation, ""
Exit Sub
Else
End If
If Trim(Text2.Text) <> Trim(Text3.Text) Then
MsgBox "两次密码不一致", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Text2.Text = ""
Text3.Text = ""
Exit Sub
Else
ExeCutesql "insert into user1 values('" & Text1.Text & "','" & Text2.Text & "') ", Str_text
MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End Sub
Else
'在这里加
ExeCutesql "select country(*) from user1 where …… "
如果存在就提示已经有这个用户
ExeCutesql "insert into user1 values('" & Text1.Text & "','" & Text2.Text & "') ", Str_text
MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End Sub
我认为应该去已经注册过的用户名记录表里查
此处应该有关联数据库的这部分吧。
具体填到的位置应该就是很随意了。
单写一个command2代码。command2.caption="检查用户名是否存在"
然后把你输入的用户名转化成string型,读取随机文件,逐项匹配ASCII码值,
要是跟你输入的用户名的每一个字符ASCII都相同的字符串存在于那个用户名库里,就返回“用户名存在”。(应该使用len函数返回你输入的用户名长度,然后用mid函数返回输入的每一个字符)
仅供参考,望能抛砖引玉!