SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: ikiki en Miércoles 12 de Julio de 2006, 15:39
-
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
-
Por ahora te puedo decir que Access 2000 y 97 no son compatibles por ello el error.
Creo que tienes que descargar un paquete que te soluciona este error, investiga o espera que alguien te dé más información.
-
Microsoft DAO 3.51 Object Library <--- Access 97
Microsoft DAO 3.6 Object Library <--- Access 2000