我编写的一段程序
编码是001 操作员是111
我现在要再添加一个用户，但是我的编号写的还是001 这样的话他就会跳出一个错误窗口
因为我的数据库是将编码设置成主键
我想在输入相同编码的时候有一个提示“用户已存在”
该如何写
数据库是sql2000

rs4.Open "select 编号 from oper where 编号=" + 你输入的编号 + "", conn, adOpenKeyset, adLockOptimistic

if rs4.recordCount>0 then
msgBox"该用户已存在！"
end if

我的代码是：rs4.Open "select * from oper where 操作员='" + Trim(Combo1.Text) + "'", conn, adOpenKeyset, adLockOptimistic
If rs4.RecordCount > 0 Then
myval = MsgBox("确定要修改该操作员吗？", vbYesNo)
If myval = vbYes Then
rs4.Fields("操作员") = Trim(Combo1.Text)
rs4.Fields("编码") = Trim(Text1.Text)
rs4.Fields("密码") = Trim(Text2.Text)
rs4.Fields("级别") = Trim(Combo2.Text)
rs4.Update '更新数据库
Adodc1.Refresh
End If
Else
If Combo1.Text <> "" Then
myval = MsgBox("确定要保存该操作员吗？", vbYesNo)
If myval = vbYes Then
rs4.AddNew
rs4.Fields("操作员") = Trim(Combo1.Text)
rs4.Fields("编码") = Trim(Text1.Text)
rs4.Fields("密码") = Trim(Text2.Text)
rs4.Fields("级别") = Trim(Combo2.Text)
rs4.Update '更新数据库
Adodc1.Refresh

这样改修改部分就有问题了

这代码是你写的么?
如果是你写的,你就不会问上面这样的问题了,你还是先好好研究一下这段代码,这段代码看懂了,上面的问题也就解决了