[Resolvido]Access X Biometria

Amigos... tenho este código que funciona com um Front accdb e Back mdb

Mas ao tentar utilizar o Back End am accdb ele diz que não foi possivel conectar a base de dados..

O que fazer?



Option Explicit
Option Base 0

' the database we'll be connecting to
'Const DBFile = "../../../GrFingerSample.mdb"
'nova tunix
Const DBFile = "GrFingerSample.accdb"
Const ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

' the connection object
Dim connection As New ADODB.connection

' Open connection
Public Function OpenDB() As Boolean
On Error GoTo cantopen
connection.Open (ConnectionString & CurrentProject.Path & "\" & DBFile)
OpenDB = True
Exit Function
cantopen:
On Error GoTo 0
OpenDB = False
End Function

' Close conection
Public Sub closeDB()
If connection.State = adStateOpen Then connection.Close
End Sub

' Clear database
Public Sub clearDB()
' run "clear" query
connection.Execute "DELETE FROM enroll"
End Sub

' Add template to database. Returns added template ID.
Public Function AddTemplate(ByRef template() As Byte) As Long
Dim rs As New ADODB.Recordset
rs.Open "enroll", connection, adOpenStatic, adLockOptimistic
' Add a new row.
rs.AddNew
rs("template") = template

rs.Update
' return ID
AddTemplate = rs("ID")
End Function

' Returns a ADODB.recordset with all enrolled templates from database.
Public Function getTemplates() As ADODB.Recordset
Dim rs As New ADODB.Recordset
rs.Open "select * from enroll", connection, adOpenDynamic, adLockReadOnly
Set getTemplates = rs
End Function

' returns template with the supplied ID.
Public Function getTemplate(ID As Long) As Byte()
Dim rs As New ADODB.Recordset
' Get query response
rs.Open "select * from enroll where ID = " & ID, connection, adOpenDynamic, adLockReadOnly
' No results?
If rs.EOF And rs.BOF Then
Dim tptVazio(0) As Byte
rs.Close
getTemplate = tptVazio
Else
' Deserialize template and return it
Dim tpt() As Byte
tpt = rs("template")
rs.Close
getTemplate = tpt
End If
End Function


Saudações

Bote um exemplo do bruto aí para a gente dar uma cutucada

Tai amigão.. so não sei se ele tentará executar a conexão sem um leitor conectado

http://dl.dropbox.com/u/26441349/Exemplo%20Para%20Access.rar

Saudações

Você já deu uma olhada no site do desenvolvedor? Como eu vi que precisa de uma dll chamada grfinger.dll, botei esse nome no google e um dos primeiros links levou ao site do desenvolvedor. Lá tem um forum, tem drivers para download, activex e tutoriais.

A dll esta registrada.. como disse.. se o be é mdb conecta.. mas se o transformo em acddb não...

da erro no modulo na linha relacionada com o JET

O problema deve estar na versão da referência usada. Por que não tenta trocar o ado pelo DAO?

Ou dê uma olhada aqui: http://msdn.microsoft.com/pt-br/library/cc280478.aspx

Pode me ajudar com o código ai acima amigão? pois nunca fiz nada com o JET etc...

No 2007 não se usa o JET 4.0, conforme explicado no link que eu postei. Dê uma estudada nesse link, talvez consiga visualizar a solução.

Li.. ativei a referencia Microssoft 12... e não consegui... bem.. irei tentando.. se caso consiga algo me avise amigão..

Saudações

Bem, só se eu tivesse o aparelho mesmo para testar alem disso. Se quiser me dar um de presente, depois eu mando meu endereço - brincadeirinha, claro

Amigos por hora este tópico está resolvido, pois modifiquei a sistematica do sistema...

Assim que pornto posto no repositório

Saudações