MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Access - Bluetooth e Access - Biometria

    Compartilhe

    ermaxconsult
    Novato
    Novato

    Respeito às Regras 100%

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

    Access - Bluetooth e Access - Biometria

    Mensagem  ermaxconsult em Sab 09 Jan 2010, 23:36

    Jpaulo

    E a primeira vez que estou postando neste forum, e gostaria de saber se alguem tem algum material explicativo , exemplo ou algum código para estes dois tópicos, ou seja:
    - Integração do MS-Access com bluetooth ;
    - Integração do MS-Accesso utilizando biometria como leitura de dados e reconheimento de senhas
    Fico no aguardo e desde já agradeço

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: Access - Bluetooth e Access - Biometria

    Mensagem  JPaulo em Seg 11 Jan 2010, 12:03

    Ola bom dia seja bem vindo ao fórum;

    Na primeira questão, nunca ouvi ou li nada relacionado com interacção de Bluetooth vs Ms Access.

    Na segunda questão, o ano passado um colega meu, tentou fazer algo que encontrou num forum, mas não sei se conseguiu, pois ele não trabalha mais aqui.
    Veja e tente, se precisar de ajuda estamos aqui:


    Biometric Questions vs Ms Access



    A dica do Federico tambem pode ajudar:
    ***********************************************************************************************************************

    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.



    Amigo, o caminho é esse. Espero ter ajudado de alguma forma e se eu puder ajudar em mais alguma coisa é só falar.



    Atenciosamente,



    Frederico

    Maringá - PR
    *********************************************************************************************************************


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    jpaulorh
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Biometria

    Mensagem  jpaulorh em Qui 04 Fev 2010, 21:38

    Olá amigos...Alguém tem algum exemplo funcionando para biometria... Hoje trabalho com códigos de barras, com a biometria seria mais prático com alguns sistemas.

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: Access - Bluetooth e Access - Biometria

    Mensagem  HARYSOHN em Ter 02 Ago 2011, 14:29

    Caro JP como entrar em contacto com o colega frederico para ver se o mesmo me ajuda com biometria?

    Grato


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    bobcav
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 26/12/2014

    Duvidas sobre alguns itens!!!

    Mensagem  bobcav em Seg 29 Dez 2014, 13:35

    O rst é uma variavel recordset sei que é para acesso em nivel de edição!?O que seria objIndexSearch ?

      Data/hora atual: Sab 03 Dez 2016, 19:38