如何提示重复的记录？

[liweerhm]

我向parcels这个表插入数据，共有packingslipid,parcelstatusid,enterdate,userid四个
字段，其中packingslipid 是主键，这个字段不能插入相同的值，
如果是相同的值，就给予警告，该怎么做呢？
代码是这样的：
<%

set sConn=server.CreateObject("adodb.connection")
sConn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ="&server.mappath("./a/b.xls")

set oConn=server.CreateObject("adodb.connection")
oConn.Open "Driver={sql server};server=mlirdtry;database=rdtry;uid=zhang fang;pwd=zf"

set sRs=server.CreateObject("adodb.recordset")
sRs.Open "select * from [b$]",sConn,2,2

set oRs=server.CreateObject("adodb.recordset")
oRs.Open "select * from parcels",oConn,3,3
j=1
Do While Not sRs.Eof
oRs.AddNew
oRs(0)=j
for i=0 to sRs.Fields.Count-1
oRs(i)=Trim(sRs(i))
Next
oRs.Update
sRs.MoveNext
j=j+1
Loop

sRs.Close
oRs.Close
oConn.Close
sConn.Close
Set oRs=nothing
Set oConn=nothing

%>
该加一句什么样的代码呢？

[quady]

你先查询一下有否相同的记录然后再作处理阿
如果主健是自增的，那就不用管了。

[不老书生]

插入前先选择一下，有同样的就不插入！

[liweerhm]

有没有其他好的方法呢？

[homeyang]

那怎样才算好？

[007james]

你可以把所有要插入的packingslipid去查一遍，重复就删除准备要插入的
然后再插入就ok了

[超级大笨狼]

<script language=vbs>
'功能：从很多字串中排除相同字串
'输入：很多字串组成的数组：
dim A,B
A=array("字串1","字串2","字串3","字串1","字串2","字串1","字串4")
'输出：
B=F(A)
'显示结果:B=array("字串1","字串2","字串3","字串4")
for each bbb in B
document.write bbb & "<br>"
next

'函数部分
function F(x)'这里x是形参
dim S,D
Set D = CreateObject("Scripting.Dictionary")
for each xxx in x
if not d.Exists(xxx) then D.Add xxx,xxx
next
for each key in D.Keys
S=S & key & " "
next
set D=nothing
F=split(trim(S))
end function
</script>