str = Frame(7) & Frame(8) & Frame(9) & Frame(10) & Frame(11) & Frame(12) & Frame(13) & Frame(14)
//这里str为带双引号的字符串"123456",但sql语句只支持单引号
Call OpenConn
sqlm = "select * from dev_info where mac = ' " & str & " ' " //这里可以把“123456”变成'123456'
rs.Open sqlm, cn, 3, 3
If rs.RecordCount >= 1 Then '记录重复
rs.Close
Call CloseConn
Exit Sub
Else
rs.AddNew
If Frame(4) = "00" Then
rs!dev_type = "M1"
ElseIf Frame(4) = "01" Then
rs!dev_type = "M2"
ElseIf Frame(4) = "02" Then
rs!dev_type = "M3"
End If
rs!Mac = str
rs!short_addr = Frame(5) & Frame(6)
rs!dev_name = "未命名"
rs!group_name = "未分组"
rs.Update
rs.Close
End If
Call CloseConn
Call OpenConn
sqlm = "select * from dev_info where mac = ' " & str & " ' " //这里可以把“123456”变成'123456'
rs.Open sqlm, cn, 3, 3
If rs.RecordCount >= 1 Then '记录重复
rs.Close
Call CloseConn
Exit Sub
Else
rs.AddNew
If Frame(4) = "00" Then
rs!dev_type = "M1"
ElseIf Frame(4) = "01" Then
rs!dev_type = "M2"
ElseIf Frame(4) = "02" Then
rs!dev_type = "M3"
End If
rs!Mac = str
rs!short_addr = Frame(5) & Frame(6)
rs!dev_name = "未命名"
rs!group_name = "未分组"
rs.Update
rs.Close
End If
Call CloseConn