hola a todos, a ver si me explico bien. tengo una aplicacion hecha con vb, que utiliza una conexion ODBC para llamar a una BBDD en Access 97. Lo que pasa es que quiero que se abra en Access 2000 y no se como hacerlo. Ya no tengo instalado en el PC Access 97 (no puedo volver a instalarlo) y con el Access 2000 me da error. No se si sera problema de Dll o en la llamada a la BBDD desde Visual, igual deberia retocar esto pero no se como.
aqui es donde tengo la conexion y me da el error.
Function existe(codigo As String) As Boolean
Dim registro_temp As Recordset
Set registro_temp = BD.OpenRecordset("select num_invt from userid.equipo " & _
"where num_invt='" & codigo & "'", dbOpenDynamic)
existe = Not (registro_temp.EOF)
registro_temp.Close
End Function
Function abre_base(b_datos As String) As Boolean
On Error GoTo errror
Set wrkjet = CreateWorkspace("", "admin", "", dbUseODBC)
wrkjet.BeginTrans
Set BD = wrkjet.OpenDatabase(b_datos, _
dbDriverNoPrompt, True, _
"ODBC;DATABASE=" & b_datos & ";UID=;PWD=;DSN=" & b_datos)
abre_base = True
Exit Function
errror:
abre_base = False
End Function
