UC知道VB 的问题谁来帮忙解决一下
来源：百度知道 编辑：UC知道 时间：2024/06/02 23:15:49
本人做了一个帐号申请的功能,使用VB6.0 和ACCESS数据库,现在从VB中向数据库添加信息可以实现.请教怎么确保 用户名的不可重复啊?要用VB代码实现!万分感谢
那请问这个判断语句添加的位置在哪里?我的添加新用户代码段为:Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
rs.CursorLocation = adUseClient
rs.Open "SELECT username,password,regpassword,email FROM ppuser where username='" & username.Text & "'", Conn
rs.AddNew
rs("username") = username.Text
rs("password") = password.Text
rs("regpassword") = regpassword.Text
rs("email") = email.Text
MsgBox "帐号申请成功.^_^"
Conn.Close
请帮忙修改下,具体的SQL语句写下~谢谢 加分
那请问这个判断语句添加的位置在哪里?我的添加新用户代码段为:Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
rs.CursorLocation = adUseClient
rs.Open "SELECT username,password,regpassword,email FROM ppuser where username='" & username.Text & "'", Conn
rs.AddNew
rs("username") = username.Text
rs("password") = password.Text
rs("regpassword") = regpassword.Text
rs("email") = email.Text
MsgBox "帐号申请成功.^_^"
Conn.Close
请帮忙修改下,具体的SQL语句写下~谢谢 加分
加一条判断语句啊..
例:if 数据表用户名列表名>=1 then
msgbox"您的用户名以重复,请确认"
exit sub
endif
.....
下面的为参考...
Dim rec As New Recordset
Dim flag As Integer
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox ("用户名不允许为空请确认"), vbOKOnly, "错误"
Exit Sub
End If
If Text2.Text = "" Then
MsgBox ("密码不允许为空请确认"), vbOKOnly, "错误"
Exit Sub
End If
If flag = 0 Then
If rec.State = adStateOpen Then rec.Close '判断记录集状态，如果是打开就先关闭
sql = "select * from dl where gly='" & Text1.Text & "'"
rec.Open sql, con, adOpenStatic, adLockOptimistic '打开记录集
rec.Requery
If Not rec.EOF Then
MsgBox ("姓名重复!")
Exit Sub
Text1.Text = ""
Text2.Text = ""
End If
sql = "insert into dl(gly,mm) values('" & Text1.Text & "&