Foxtable(狐表)用户栏目专家坐堂 → 如何后台查找重复行??


  共有9251人关注过本帖树形打印复制链接

主题:如何后台查找重复行??

帅哥哟,离线,有人找我吗?
zhangqinyun
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:272 积分:2324 威望:0 精华:0 注册:2011/7/14 16:23:00
如何后台查找重复行??  发帖心情 Post By:2012/2/27 21:42:00 [只看该作者]

我的员工表只加载在职员工,有时候会有以的老员工重新来公司,所以想在录入身份证时后台检测是不是有这个人,怎么写代码啊???

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:272 积分:2324 威望:0 精华:0 注册:2011/7/14 16:23:00
  发帖心情 Post By:2012/2/28 19:20:00 [只看该作者]

我用的是ACCESS

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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

 回到顶部