Hola estoy haciendo un sistema Checador de entradas y Salidas de personal y estoy atorado en la forma de extraer el campo Image donde se encuentra Guardada la Huella Digital...
Para Guardar lo hago de la Sig. manera:
Private Sub Guardar_Click()
On Error Resume Next
Dim blob() As Byte
Dim bvariant As Variant
If regtemplate Is Nothing Then
Exit Sub
End If
regtemplate.Export bvariant
blob = bvariant
sql = "INSERT INTO HuellaDigi(Huella,Nomina,Seguro)" _
& "values ( 'blob.tpt'," + Nomina.Text + ",'" + Seguro.Text + "')"
Cmd.CommandText = sql
Set Rec = Cmd.Execute
End Sub
Para Extraerla lo estoy Intentando pero no jala...
lo hago asi...
Private Sub Cargar_Click()
On Error GoTo noload
Dim blob() As Byte
Dim a As String
Dim res As AIErrors
Set regtemplate = New FPTemplate
sql = "SELECT * FROM HuellaDigi WHERE Nomina = '" + Nomina.Text + "'"
Cmd.CommandText = sql
Set Rec = Cmd.Execute
If Rec.RecordCount > 0 Then
blob = (RTrim(Rec!Huella)) ' aqui la quiero cargar
End If
res = regtemplate.Import(blob) ' Aqui Importa
If res = Er_OK Then
lblEvents.Caption = "Importacion de la Plantilla"
lblTemplateID.Caption = regtemplate.InstanceID
Else
lblRegTemplID.Caption = "Import failed"
End If
Exit Sub
noload:
Si alguien tiene algun Consego o Sugerencia se lo agradeceria...
End Sub
