vb 判断重复输入 报错

Question

Private Sub checkscan_pro_info()
Dim sql As String
If CStr(Trim(hkup.Text)) = "" Then
' MsgBox "重复扫描！请换一片重新scan ！！！", vbOKOnly, "重置"
Else
sql = "insert into scan_pro_info"
sql = sql & " values('""','" & userID & "','" & pcca & "','" & hookup & "','" & Date & "','" & Time & "','" & pc & "')"
cn.Execute sql
End If
End Sub

Answer 1

给你个参考代码：
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite"
SqlStr = "Select * From 某个表 where 字段名 = '" & Text1.Text & "'"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
If rst.RecordCount=1 Then
'在这里写没有重复的代码
Elseif rst.RecordCount>1 Then
'在这里写有重复的代码
else
'在这里写没有记录的代码
Endif

Answer 2

既然你的数据是放在数据库，判断是否重复也要根据数据库的数据来判断。
dim rs as New ADODB.Recordset

sql = "select * from scan_pro_info where ..." 'where子句加上你判断重复的依据（字段）
rs.Open sql,cn

If not rs.EOF Then
' MsgBox "重复扫描！请换一片重新scan ！！！", vbOKOnly, "重置"
Else
sql = "insert into scan_pro_info"
sql = sql & " values('""','" & userID & "','" & pcca & "','" & hookup & "','" & Date & "','" & Time & "','" & pc & "')"
cn.Execute sql
End If
rs.close
set rs = nothing追问

麻烦问下你的 邮箱是多少啊 ，帮个忙看下程序，怎么写，还是报错！请你看看

追答

[email protected]

本回答被提问者采纳