Consulta base de datos con lector de huella

[Melecio]

muchas gracias por tu aporte

yo utilizo el ciclo for para hacer el conteo desde el 0 hasta el numero total de registros encontrados que almaceno en la variable huella(arreglos) el try lo utilizo para que no me salga un error al colocar el dedo en el lector este error me da aunque le ponga la huella correcta.


lo que hize para que ya no se alentara tanto fue hacer 2 busquedas en la bd separando el total de registros en 2 busquedas


los 2 arreglos buscan la huella de uno por uno y el primero en encontrarlo me lleva a SALIDA: para terminar las 2 busquedas y darme los datos correctos.

pero la forma es hacerlo lo mas profecional que se pueda.


con este codigo se ma aguilizo un poco tansiquiera ya no me congela el programa,





Public huella(9999) As String
Public NOMBRE(9999) As String
Public NUMERO_OPERADOR(9999) As String
Public ARREGLO As Integer


Public huella_A(9999) As String
Public NOMBRE_A(9999) As String
Public NUMERO_OPERADOR_A(9999) As String

Public ARREGLO_A As Integer









Dim EXISTE As Integer
EXISTE = 0


Dim i As Integer
For i = 0 To ARREGLO
Try
a = Convert.FromBase64String(huella(Str(i)))
temp.DeSerialize(a)
ver.Verify(FeatureSet, temp, res)
Data.IsFeatureSetMatched = res.Verified
Data.FalseAcceptRate = res.FARAchieved
If res.Verified Then
EventHandlerStatus = DPFP.Gui.EventHandlerStatus.Success
LBL_HORA.ForeColor = Color.Green
LBL_DIA.ForeColor = Color.Green
LBL_NOMBRE_PERSONAL.ForeColor = Color.Green
IMAGEN_FOTO.BackColor = Color.Green

IMAGEN_PERSONAL.ImageLocation = "C:\FOTOGRAFIAS\" & NUMERO_OPERADOR(i) & ".jpg"
LBL_NOMBRE_PERSONAL.Text = NOMBRE(i)

CONTEO.Interval = 1200
CONTEO.Enabled = True


EXISTE = 1
GoTo SALIDA

End If
If Not res.Verified Then EventHandlerStatus = DPFP.Gui.EventHandlerStatus.Failure
Data.Update()
Catch ex As Exception

End Try

Next



Dim F As Integer
For F = 0 To ARREGLO_A
Try
a = Convert.FromBase64String(huella_A(Str(F)))
temp.DeSerialize(a)
ver.Verify(FeatureSet, temp, res)
Data.IsFeatureSetMatched = res.Verified
Data.FalseAcceptRate = res.FARAchieved
If res.Verified Then
EventHandlerStatus = DPFP.Gui.EventHandlerStatus.Success
LBL_HORA.ForeColor = Color.Green
LBL_DIA.ForeColor = Color.Green
LBL_NOMBRE_PERSONAL.ForeColor = Color.Green
IMAGEN_FOTO.BackColor = Color.Green

IMAGEN_PERSONAL.ImageLocation = "C:\FOTOGRAFIAS\" & NUMERO_OPERADOR_A(F) & ".jpg"
LBL_NOMBRE_PERSONAL.Text = NOMBRE_A(F)
CONTEO.Enabled = True
EXISTE = 1
GoTo SALIDA

End If
If Not res.Verified Then EventHandlerStatus = DPFP.Gui.EventHandlerStatus.Failure
Data.Update()
Catch ex As Exception

End Try



Next


SALIDA:

If EXISTE = 0 Then
LBL_HORA.ForeColor = Color.Red
LBL_DIA.ForeColor = Color.Red
LBL_NOMBRE_PERSONAL.ForeColor = Color.Red
IMAGEN_FOTO.BackColor = Color.Red
CONTEO.Interval = 500
CONTEO.Enabled = True
End If




Gracias.