急，求助：text1的内容和数据库中的不重复，但系统提示重复
请问各位大大，下面这段代码给数据表中的 ParentType字段赋值（该字段内容唯一）
t_ParentType（CZID,ParentType)
问题一：测试发现，如果每次录入的值不重复就没问题
但是如果录入的内容和数据库中的重复一次后，以后所有新录入的内容都提示重复（实际上后面text1的值在数据库字段中不重复）
问题二：If rs.State = adStateOpen Then rs.Close 这句话放到Err处理中，会提示“实时错误3219，在此环境中不允许操作”
Private Sub Command1_Click()
On Error GoTo err
With rs
If Trim(Text1.Text) = "" Then
MsgBox "你没有输入数据"
Exit Sub
End If
SQL = "select * from t_ParentType"
If .State = adStateClosed Then .Open SQL, cn, adOpenKeyset, adLockOptimistic
.AddNew
.Fields!ParentType = Trim(Text1.Text)
.Update
.Close
Exit Sub
End With
err:
MsgBox err.Description
End Sub
[最优解释]
'保存前先判断一下是否存在
Private Sub Command1_Click()
On Error GoTo err
if trim(text1.text)="" then
msgbox "没有输入数据!",48,"提示"
exit sub
end if
sql=" select * from t_parentType where ParentType='"& text1.text &"'"
if rs.state<>adstateclosed then rs.close
rs.open sql,cn,adopenkeyset,adlockreadonly
if rs.recordcount>0 then
msgbox "输入的内容已经存在!",48,"提示"
rs.close
exit sub
else
sql=" insert into t_parentType(parentType) values('"& text1.text &"')"
cn.execute sql
end if
rs.close
Exit Sub
err:
MsgBox err.Description
End Sub
