以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何后台查找重复行？？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16928)
--  作者：zhangqinyun
--  发布时间：2012/2/27 21:42:00
--  如何后台查找重复行？？
我的员工表只加载在职员工，有时候会有以的老员工重新来公司，所以想在录入身份证时后台检测是不是有这个人，怎么写代码啊？？？
--  作者：blackzhu
--  发布时间：2012/2/28 7:55:00
--  

看看这个行不行?

 

 Dim S As String = e.Form.Controls("TextBox1").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {送货地址} Where [客户] = \'"& S &"\'"
dt = cmd.ExecuteReader()
If dt.DataRows.Count > 0 Then
    Messagebox.show("已经存在数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("可以增加数据, !","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
--  作者：zhangqinyun
--  发布时间：2012/2/28 19:20:00
--  

我用的是ACCESS

 
--  作者：狐狸爸爸
--  发布时间：2012/2/28 20:13:00
--  
2楼代码通用，不过可以改进：
 
Dim S As String = e.Form.Controls("TextBox1").Value
Dim cmd As New SQLCommand
cmd.Connection name = "数据原名称"
cmd.CommandText = "SELECT Count(*) From {送货地址} Where [客户] = \'"& S &"\'"
If cmd.ExecuteScalar > 0 Then
        Messagebox.show("已经存在数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
         Messagebox.show("可以增加数据, !","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If