用vb语句怎样判断字段值有无重复值，非常急！

Question

数据表中有一字段Cust_id是设为主键，不能有重复，怎样利用语句判断当用户输入重复值是提示用户,用VB语句怎样实现？，请高手写出代码

Answer 1

主键一般设为自增长的，不让用户输入如果你检查原表中是否存在，用select Cust_id from table where Cust_id=值

Answer 2

代码的没有，思路的有以下两种：
一、把Cust_id设置为自动增加的Identity类型，界面上不用做输入操作。
二、就你这个方法：先得到现有记录中最大的Cust_id值显示出来，提示用户只能输入大于此值的数值；在添加时判断用户的输入是否正确或者直接在数据库中添加，如果有错误(比如用户输入的值存在重复了)，则数据就会返回一个错误信息，把此错误信息显示给用户，让它再输一遍，谁让他不按你的提示做呢？..........
用第一种方法吧！

Answer 3

Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.RecordsetRs.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb"
'其中data.mdb为你数据库的路径Rs.Open "select Cust_id from 数据表名 where Cust_id like '" _
& Me.input.Text & "'", FileDS, adOpenStatic
'Me.input.Text是窗体中用户输入数值的文本框然后用条件语句来判断是否找到与文本框相同的记录
 If rs.RecordCount <> 0 Then
    msgbox "这用户已经存在",vbokonly
 End If

Answer 4

用select count(字段名) from tablename where...
if rs.fields(0).value > 0 then
   有数据
else
  没有数据
end if