Public Function BadgeVerificationSucceed(sBadgeID As String) As Boolean On Error GoTo ErrHandler If Len(sBadgeID) = 0 Then Exit Function Set rstADO = New ADODB.Recordset With rstADO sqlQuery = "Select * FROM tblUsers Where [Employee ID] = '" & sBadgeID & "'" ' And [ClusterID]=" & MyClusterID & " And [EnableCompartment] <> 0 Order By [CabinetCode],[CompartmentCode]" ''debug..print sqlQuery .Open sqlQuery, cnsecurecabinetdb, adOpenKeyset, adLockOptimistic, adCmdText If Not .EOF Then ![RFID] = myRFID myFullName = ![First Name] & " " & ![Last Name] myUserID = ![UserID] .Update BadgeVerificationSucceed = True End If .Close End With Set rstADO = Nothing Exit Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)