MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Biometria em VBA

    avatar
    Jozelia
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 8
    Registrado : 03/10/2016

    Biometria em VBA Empty Biometria em VBA

    Mensagem  Jozelia 8/10/2016, 17:56

    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.

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7950
    Registrado : 05/11/2009

    Biometria em VBA Empty Re: Biometria em VBA

    Mensagem  Alexandre Neves 8/10/2016, 19:50



    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    jntrindade
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 276
    Registrado : 07/12/2009

    Biometria em VBA Empty Re: Biometria em VBA

    Mensagem  jntrindade 10/10/2016, 13:12

    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.
    avatar
    Jozelia
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 8
    Registrado : 03/10/2016

    Biometria em VBA Empty Re: Biometria em VBA

    Mensagem  Jozelia 10/10/2016, 19:45

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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 8
    Registrado : 03/10/2016

    Biometria em VBA Empty Re: Biometria em VBA

    Mensagem  Jozelia 10/10/2016, 19:48

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

    obrigada
    avatar
    jntrindade
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 276
    Registrado : 07/12/2009

    Biometria em VBA Empty Re: Biometria em VBA

    Mensagem  jntrindade 10/10/2016, 20:17

    ok vou postar.
    avatar
    jntrindade
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 276
    Registrado : 07/12/2009

    Biometria em VBA Empty Re: Biometria em VBA

    Mensagem  jntrindade 10/10/2016, 20:41

    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
    Anexos
    Biometria em VBA Attachmentbiomtria_16.1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (99 Kb) Baixado 201 vez(es)
    avatar
    Jozelia
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 8
    Registrado : 03/10/2016

    Biometria em VBA Empty Biometria em VBA

    Mensagem  Jozelia 10/10/2016, 22:57

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

    Obrigada. Wink
    avatar
    Jozelia
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 8
    Registrado : 03/10/2016

    Biometria em VBA Empty Biometria

    Mensagem  Jozelia 11/10/2016, 02:24

    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.


    Mr. Style gosta desta mensagem

    avatar
    jntrindade
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 276
    Registrado : 07/12/2009

    Biometria em VBA Empty Re: Biometria em VBA

    Mensagem  jntrindade 11/10/2016, 13:07

    vou verificar esse codigo. obrigado

    Mr. Style gosta desta mensagem

    avatar
    jpaulorh
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 04/02/2010

    Biometria em VBA Empty Re: Biometria em VBA

    Mensagem  jpaulorh 18/10/2016, 17:55

    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.

    Mr. Style gosta desta mensagem

    avatar
    Mr. Style
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 16
    Registrado : 19/04/2020

    Biometria em VBA Empty Biometria

    Mensagem  Mr. Style 26/4/2021, 15:38

    cheers Boa tarde pessoal alguma novidade neste quesito?

    Conteúdo patrocinado

    Biometria em VBA Empty Re: Biometria em VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2021, 12:57