如何防止输入重复姓名
大家好:小弟是一名VB初学者,在学做一个系统,VB+Aceess. 用的是adodc1控件
表单名称 gzb,主索引是,编号。
现在要实现一个功能,即输入的姓名与表中存在的姓名不能相同。
希望哪位高手能帮我编写段代码,我参考一下,小弟感激不尽。希望各位老师不惜赐教! --------------------编程问答-------------------- http://download.csdn.net/source/1644211 --------------------编程问答-------------------- 小弟只写了这一句就不知道如何写了
Adodc1.RecordSource = "select*from gzb where 姓名='" & Text3.Text & "'" --------------------编程问答-------------------- Adodc1.RecordSource = "select * from gzb where 姓名='" & Text3.Text & "'" 请帮忙检查一下 老是报错 --------------------编程问答--------------------
那我就问你,如果有两个人就是同名同姓咋办? 去派出所改名?
一般数据库设计中基本上不会把姓名作为唯一字段的. --------------------编程问答-------------------- 按照你的需求,是判断输入的内容与数据库表中的那个字段所对应的数据是否有相同,如果相同就提示呗
'判断重复键的插入--------------------编程问答-------------------- 按身份证或者其他的号码来限制吧 --------------------编程问答-------------------- '确定 conn 已连接
Set connADO = New ADODB.Connection
Set rstADO = New ADODB.Recordset
connADO.CursorLocation = adUseClient
connADO.Open "test1", "test", "test"
strsql = "select * from UsersInformation where UsersID='" & Trim(txtUsersID.Text) & " '"
rstADO.Open strsql, connADO, 1, 1
If rstADO.RecordCount > 0 Then
MsgBox "已有相同用户编号! ", 48, "提示错误"
txtUsersID.Text = ""
txtUsersID.SetFocus
Exit Sub
End If
dim rs As New ADODB.Recordset
set rs=nothing
set rs=conn.execute("select * from gzb where [姓名]='" & Text3.Text & "'")
if not rs.eof then
msgbox "【姓名】" & text3.text & "已经存在,请重新输入!",65,"提示"
end if --------------------编程问答--------------------
'确定 conn 已连接--------------------编程问答-------------------- 谢谢各位老师的热情指点。 --------------------编程问答-------------------- 我现在的代码只能对编号重复的进行判断,有重复的就提示。(我把编号设为主索。姓名设为一般索引。)但是在做重复姓名提示的时候,把各位老师的代码添加进去试了一下,还是不行啊?我想问一下,筛选姓名,我的VB程序只有一个Adodc1控件。在判断姓名是否重复的时候,还需不需要要加DataGrid 控件。
dim rs As New ADODB.Recordset
set rs=nothing
set rs=conn.execute("select * from gzb where [姓名]='" & Text3.Text & "'")
if not rs.eof then
msgbox "【姓名】" & text3.text & "已经存在,请重新输入!",65,"提示"
end if
请各位老师热情指点 --------------------编程问答-------------------- 按F8单步调试,看各个变量在各个时期的值是否为你的预期值。 --------------------编程问答-------------------- &?
不知这句什么意思,一般& 后要空一格。 --------------------编程问答-------------------- Adodc不好使 建议用adodb --------------------编程问答-------------------- 你插之前去数据库查一下
补充:VB , 数据库(包含打印,安装,报表)