Error al conectar con access 2007
Publicado por OMAT (8 intervenciones) el 29/03/2010 07:38:46
Saludos a todos,
Veran mi problema esque cuando realizon una coneccion a una base de datos en una pc si lo hace correctamente y cuando trato de correr el programa en otra me dice que el proveedor no esta instalado, una tiene acces 2010 (la que conecta) y la otra 2007 (la que no conecta), hasta donde sé ambas versiones del access tienen el mismo proveedor, ojla me puedan ayudar, dejo el codigo con el que hago la coneccion:
Private Function ConectaBaseAccess() As Boolean
On Error GoTo ErrCatch
Conect.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\PagosVariables.accdb;Persist Security Info=False"
Conect.Open
If (Conect.State = 1) Then
ConectaBaseAccess = True
Else
ConectaBaseAccess = False
End If
Exit Function
ErrCatch:
MsgBox "Error inesperado!!" & vbCrLf & Err.Description, vbCritical, "Conecta Base Access"
ConectaBaseAccess = False
End Function
Veran mi problema esque cuando realizon una coneccion a una base de datos en una pc si lo hace correctamente y cuando trato de correr el programa en otra me dice que el proveedor no esta instalado, una tiene acces 2010 (la que conecta) y la otra 2007 (la que no conecta), hasta donde sé ambas versiones del access tienen el mismo proveedor, ojla me puedan ayudar, dejo el codigo con el que hago la coneccion:
Private Function ConectaBaseAccess() As Boolean
On Error GoTo ErrCatch
Conect.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\PagosVariables.accdb;Persist Security Info=False"
Conect.Open
If (Conect.State = 1) Then
ConectaBaseAccess = True
Else
ConectaBaseAccess = False
End If
Exit Function
ErrCatch:
MsgBox "Error inesperado!!" & vbCrLf & Err.Description, vbCritical, "Conecta Base Access"
ConectaBaseAccess = False
End Function
Valora esta pregunta
0