紧急！！！！！！！！！！！！！

[wujie0978]

当使用data控件做数据库的时候，因为执行data1.recordset.movefirst(Next/last..)
的时候数据库会自动更新，那么如何能实现把输入记录和数据库中本来有的记录并进行比较呢？？比如如果输入学号和数据库中的学号重复了，那么就提示重新输入，下面是我编的一段实现这个功能的语句，可是出现错误，总是提示操作被data1.recordset.move..取消，能不能不用.move...命令来实现呢？？
Do
If Data1.Recordset("课程编号") <> text1(0).Text Then
a = 1
Else
a = 0
End If
Data1.Recordset.MoveNext
Loop While Not Data1.Recordset.EOF
If a = 1 Then
Data1.Recordset.Update
End If
If a = 0 Then
MsgBox "编号重复，请重新输入！", 0 + 48, "警告"
text1(0).SetFocus
End If
ret = MsgBox("确实要更新记录吗?", vbYesNo, "课程管理")
If ret = vbYes Then
Data1.Recordset.Update
End If
cmdUpdate.Enabled = False
For i = 0 To 2
text1(i).Enabled = False
Next
Data1.Recordset.MoveFirst
End Sub

[shalen520]

建议使用SQL语句来实现
dim value,sqlstr as string
value=trim(text1.text)
sqlstr="update table set 课程编号='" &value& "'where 课程编号<>'" & value &"'"

[wujie0978]

使用data控件的时候也可以用SQL语句吗?????