当前位置:编程学习 > VB >>

如何防止输入重复姓名

大家好:
   小弟是一名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 & "'" 请帮忙检查一下 老是报错 --------------------编程问答--------------------
引用楼主 lufeng112 的回复:
大家好:
   小弟是一名VB初学者,在学做一个系统,VB+Aceess.  用的是adodc1控件
   表单名称 gzb,主索引是,编号。
   现在要实现一个功能,即输入的姓名与表中存在的姓名不能相同。
希望哪位高手能帮我编写段代码,我参考一下,小弟感激不尽。希望各位老师不惜赐教!


那我就问你,如果有两个人就是同名同姓咋办? 去派出所改名?
一般数据库设计中基本上不会把姓名作为唯一字段的. --------------------编程问答--------------------
引用 3 楼 lufeng112 的回复:
Adodc1.RecordSource = "select * from gzb where 姓名='" & Text3.Text & "'" 请帮忙检查一下 老是报错
按照你的需求,是判断输入的内容与数据库表中的那个字段所对应的数据是否有相同,如果相同就提示呗
'判断重复键的插入
    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
--------------------编程问答-------------------- 按身份证或者其他的号码来限制吧 --------------------编程问答-------------------- '确定 conn 已连接
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 已连接
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
--------------------编程问答-------------------- 谢谢各位老师的热情指点。 --------------------编程问答--------------------      我现在的代码只能对编号重复的进行判断,有重复的就提示。(我把编号设为主索。姓名设为一般索引。)但是在做重复姓名提示的时候,把各位老师的代码添加进去试了一下,还是不行啊?我想问一下,筛选姓名,我的VB程序只有一个Adodc1控件。在判断姓名是否重复的时候,还需不需要要加DataGrid 控件。
      请各位老师热情指点 --------------------编程问答--------------------
引用 10 楼 lufeng112 的回复:
     我现在的代码只能对编号重复的进行判断,有重复的就提示。(我把编号设为主索。姓名设为一般索引。)但是在做重复姓名提示的时候,把各位老师的代码添加进去试了一下,还是不行啊?我想问一下,筛选姓名,我的VB程序只有一个Adodc1控件。在判断姓名是否重复的时候,还需不需要要加DataGrid 控件。
      请各位老师热情指点
按F8单步调试,看各个变量在各个时期的值是否为你的预期值。 --------------------编程问答-------------------- &?
不知这句什么意思,一般& 后要空一格。 --------------------编程问答-------------------- Adodc不好使 建议用adodb --------------------编程问答-------------------- 你插之前去数据库查一下
补充:VB ,  数据库(包含打印,安装,报表)
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,