Private Sub VerCtrl_OnVerify(ByVal LiveFinger As Boolean) 'On Error Resume Next Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim finData As New FingerData Dim fda As New FingerData cn.Open "Provider=MSDASQL;DSN=PMSClient" rs.Open "Fingers", cn, adOpenStatic, adLockReadOnly, adCmdTable If rs.RecordCount <= 0 Then Exit Sub End If rs.MoveFirst Dim arr() As Byte Do While Not rs.EOF ReDim arr(CLng(rs("FSize")) - 1) As Byte 'retreiving the finger print from database one by one and matching with the currently scanned live finger arr = rs("Finger").GetChunk(CLng(rs("FSize")) - 1) finData.SetData arr ''finData.SetData (arr) 'loading the finger print to the fx2000 device for verification VerCtrl.LoadFingerToMatch finData If VerCtrl.Match > 0.5 Then ' showing the message with whom live finger print matches gPIDNo = rs("PID_No") Exit Do Else gPIDNo = 0 End If rs.MoveNext Loop Set finData = Nothing rs.Close cn.Close Unload Me End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)