禁止重复记录上传
我用MSHFLEXGRID批量输入资料,最后提交,上传到SQL scandata表中, 并且该记录在SCANDATA中要不存在,且记录不重复.
代码如下:
可是我传了,还可以再上传 ,麻烦帮看看，谢谢
Dim js As Integer
Dim rs1 As New Recordset
Dim rs2 As New Recordset
Dim rs4 As New Recordset
Dim Djls As Integer
If js = MS1.Rows - 2 Then
MsgBox "没有要保存的数据！", , "提示窗口"
Exit Sub
End If
rs1.Open "select * from scandata", cnn, 1, 3
rs2.Open "select * from scandata where barcode='" + MS1.TextMatrix(i, 1) + "' and stationname='" + Combo1 + "'", cnn, adOpenDynamic, adLockReadOnly
For i = 1 To MS1.Rows - 2
If MS1.TextMatrix(i, 1) <> "" And MS1.TextMatrix(i, 2) <> "" And MS1.TextMatrix(i, 4) <> "" Then
If rs2.EOF Then
'添加新记录到"入库从表"中
rs1.AddNew
If MS1.TextMatrix(i, 1) <> "" Then rs1.Fields("barcode") = Trim(MS1.TextMatrix(i, 1))
If MS1.TextMatrix(i, 2) <> "" Then rs1.Fields("gch") = MS1.TextMatrix(i, 2)
rs1.Fields("gcm") = MS1.TextMatrix(i, 3)
If MS1.TextMatrix(i, 4) <> "" Then rs1.Fields("tdh") = MS1.TextMatrix(i, 4)
If MS1.TextMatrix(i, 5) <> "" Then rs1.Fields("bh") = MS1.TextMatrix(i, 5)
rs1.Fields("cc") = MS1.TextMatrix(i, 6)
rs1.Fields("ys") = MS1.TextMatrix(i, 7)
rs1.Fields("bzl") = MS1.TextMatrix(i, 8)
rs1.Fields("zc") = MS1.TextMatrix(i, 9)
rs1.Fields("sl") = MS1.TextMatrix(i, 10)
rs1.Fields("stationname") = Trim(Combo1)
rs1.Fields("scanop") = Trim(Label4)
rs1.Fields("scandate") = Date
rs1.Fields("scantime") = Time
rs1.Update
Djls = Djls + 1
End If
End If
Next i
rs1.Close
rs2.Close
MsgBox "共有『" + CStr(Djls) + "』记录数被导入" mshflexgrid 数据
[解决办法]
这两句颠倒一下：
For i = 1 To MS1.Rows - 2
rs2.Open "select * from scandata where barcode='" + MS1.TextMatrix(i, 1) + "' and stationname='" + Combo1 + "'", cnn, adOpenDynamic, adLockReadOnly
