vb编程中对数据重复怎么处理

来源：百度知道 编辑：UC知道 时间：2024/06/25 02:58:23
vb开发的医院管理系统，输入划价项目保存以后，如果发现少输入项目，如果添加以后，再保存，数据就会重复。

应该(SQL中where)筛选出原记录,然后再输入漏输入的项目后,按修改按钮进行保存.修改代码参考如下:
Call OpenConn
sql = "select * from jgb where name = '" & Text1.Text & "'"
rs.Open sql, cn, 3, 3
If rs.RecordCount > 0 Then
rs.MoveFirst
rs.Fields("name") = Text1.Text
rs.Fields("price") = Text2.Text
rs.Fields("leibie") = IIf(IsNull(Combo1.Text), "",Combo1.Text)
rs.Update
MsgBox "修改成功!", vbInformation, "提示"
End If
Call CloseConn

如果是一条记录缺少项目：用update语句更新
如果是一张单子少输入了一条记录：先把这张单子删除，在向这张单子添加新数据。