Biometria em VBA

Boa Tarde pessoal,
Estou a procura de algum código ou planilha exemplo que possam me ajudar a integrar a biometria em um programa de cartão de ponto.
tenho um hamster nitgen II, e estou fazendo em VBA.

Se alguém poder compartilhar comigo.

Boa tarde,
Veja se resolve
https://www.maximoaccess.com/t3868-biometria-x-access

bom dia eu tambem estou nessa impleitada, eu ja consegui cadastrar em uma tabela as digitais, mas nao consigo puxar as informações. tenho que adequada a função mas nao estou conseguindo.

Olá Alexandre obrigada pelo link, eu ate enviei e-mail para este rapaz mas ainda não tive responta.

Ei Jntrindade, poderia compartilhar comigo seu projeto?
tenho alguns códigos aqui talvez de para complementar com o seu.

obrigada

ok vou postar.

esse e o exemplo que estou tentando implementar, eu acho que estou usando o mesmo leitor que vc. Tem que ter a dll da secugem

Vou olhar e vê se o que tenho pode ajudar.

Obrigada.

Dê uma olhada nesse codigo.
***********************************************************************************************************************

Primeiro voce captura a Impressao Digital (ID) e salva no banco de dados.



Depois disso voce tem que fazer o loop nos registro do banco de dados jogando todas as digitais que voce possui para um "banco" na memoria do computador usando uma biblioteca da propria fabricante.



Este código abaixo vai ajudar voce a entender melhor como isso funciona:




Code Block
Private Sub Form_Load()

Set objNBioBSP = New NBioBSPCOMLib.NBioBSP

Set objDevice = objNBioBSP.Device
Set objExtraction = objNBioBSP.Extraction ' Extraction object
Set objIndexSearch = objNBioBSP.IndexSearch
Set objMatching = objNBioBSP.Matching

' Detecta se esta utilizando leitor de impressão digital
Call objDevice.Open(NBioAPI_DEVICE_ID_AUTO_DETECT)
If objDevice.ErrorCode = 0 Then
FingerPrintDetected = True
Else
FingerPrintDetected = False
End If
objDevice.Close (NBioAPI_DEVICE_ID_AUTO_DETECT)


' Uma função minha para abrir o banco de dados (SQL Server)
AbreBancoDeDados

' Esta é a função principal que carrega as digitais para serem comparadas
CarregaDigitais

End Sub



Function CarregaDigitais()
Dim User_Id As Long
Dim szFinger As String
Dim Conta As Integer

Conta = 0
Call objIndexSearch.ClearDB

' Carrega as Digitais
rst.Open "SELECT USU_ID, USU_FINGERPRINT FROM USUARIOS WHERE USU_FINGERPRINT <> ''"
If RstOK Then
Do While Not rst.EOF

User_Id = rst("USU_ID")
szFinger = rst("USU_FINGERPRINT")

Call objIndexSearch.AddFIR(szFinger, User_Id)

Conta = Conta + 1
rst.MoveNext
Loop
End If
rst.Close

End Function



Function VerificaDigital()
Dim szTextEncodedFIR As String
Dim szPayload As String

Call objDevice.Open(NBioAPI_DEVICE_ID_AUTO_DETECT)

Set objExtraction = objNBioBSP.Extraction
Call objExtraction.Capture(NBioAPI_FIR_PURPOSE_VERIFY)
If objExtraction.ErrorCode = NBioBSPERROR_NONE Then
szTextEncodedFIR = objExtraction.TextEncodeFIR
Else
MsgBox "Falha na leitura da Impressão Digital"
VerificaDigital = ""
Call objDevice.Close(NBioAPI_DEVICE_ID_AUTO_DETECT)
Exit Function
End If

Call objDevice.Close(NBioAPI_DEVICE_ID_AUTO_DETECT)

VerificaDigital = objExtraction.TextEncodeFIR
End Function






No form_load eu inicio os objetos e verifico se o Leitor esta ligado e funcionando;



A função CarregaDigitais() é a que mais voce precisa. É ela que carrega todas as digitais do seu banco de dados para o banco de dados do FingerPrint. É desse banco de dados e NÃO DO SEU BANCO DE DADOS que ele vai fazer a comparação para validar as Digitais.



E por fim a função que faz a busca a partir de uma leitura feita no leitor.


******************************************************************************************
Esse e do Frederico.

vou verificar esse codigo. obrigado

Olá, amigos...

Achei muito interessante o trabalho de vocês e há muito tempo que tento implementar na clinica de minha esposa a biometria.
Venho desenvolvendo aos poucos o sistema da clinica em access, e seria interessante a biometria no controle dos pacientes.
Se vocês pudessem disponibilizar exemplo ficaria muito grato.

Boa tarde pessoal alguma novidade neste quesito?

Olá pessoal... @Jorge Trindade

Tem como me ajudar a adaptar seu programa para Sistema 64 bits.?

Se sim, obrigado e forte abraço.

Bom dia amigos... há tempos tb desejando implementar num sistema de controle de medicamentos, mas nao tenho conhecimento de vba... se puderem disponibilizar exemplo... uso access 2010 32 bits....

up