我建立了一个数据库,里面有若干字段,现在要向数据库中插入数据,在插入数据时要求不能重复,实现程序自动检测字段中是否有与插入时一样的值
我自己的思路是:
strsql = "select a from ss" 首先查找整个字段
rs1.Open strsql, conn, adOpenKeyset, adLockOptimistic
Dim i As Integer 定义一个循环变量
For i = 0 To rs1.RecordCount 从第一条开始查找
If Text1.Text = rs1.Fields.Item(i).Value Then 当字段中有与文本框中的 值重复时退出过程
Exit Sub
rs1.Close
Else
rs1.Close
strsql = "insert into ss(a) values('" & Text1.Text & "')"
If Text1.Text = "" Then
Exit Sub
End If
rs.Open strsql, conn, adOpenDynamic, adLockOptimistic
End If
Next
但是现在这样回报错,而且只能检测第一条数据
各位帮个忙啊

[此贴子已经被作者于2006-5-2 13:20:56编辑过]