SoloCodigo

Hola buenas, soy principiante en esto de vb y bases de datos.

Tengo una base de datos en access 2003. TEngo un problema a la hora de conectar por DAO.


Pongo la linea

Set dbclinica = DBEngine.Workspaces(0).OpenDatabase("C:pruclinica.mdb")

y me da el siguiente error cuando carga el formulario

"No se reconoce el formato de la base de datos"

Cuando lo hago en otro pc si que se puede.

Gracias por vuestro tiempo.

No se lo que pasa, pero es una base de datos de prueba con dos tablas muy sencilla, es de prueba. Yo la abro con access normal y corriente pero es esa linea que me da error.
Para ver si fuese problema de esa base de datos, cree otra igual y lo probe de nuevo con el mismo error y ahi sigo.


Muchas gracias.

Volvi a instalar MS Office y no funciono.Puedes ser por VB 6?
Algun componente que falte o que este mal instalado?

Instale el SP6 lo mismo. No hay que activar ningun control?.

Me dice no puedo encontrar el origen de datos. Me da el error 440.
Stoy desesperao ya no se ni que hacer 2 horas y media y nada sigue igual.

Premio, un error resuelto.

Solucion:
Os descargais la DAO 3.6


La debeis pegar en esta ruta:

%systemdrive%Archivos de programaArchivos comunesMicrosoft SharedDAO

Ir a VB 6, Quitar la referencia a la 3.51 que en este caso es la que tenia yo y agregar la nueva.


Otro problema
Tras la desesperacion y el chute me aprece otro mensaje. Este es el codigo. Lo que estoy haciendo es un login casero para mi programa. En la base de datos hay una tabla llamada USUARIOS.
Ahora lo que me aparece es error
Error 3370 Microsoft JET  no reconoce yo como un nombre de campo o expresion validos
Dim criterio As String
 Dim sw As Boolean
 Dim x As Integer
 Dim contador As Integer
 
 Do Until contador = 3
 sw = False
    criterio = "nomUSER =" & txtusuario.Text

    registrousuarios.FindFirst criterio rem El error me lo da aqui.

    If Not registrousuarios.NoMatch Then
        criterio = "passUSER =" & txtusuario.Text
        registrousuarios.FindFirst criterio
            If Not registrousuarios.NoMatch Then
                sw = True
            Else
                x = MsgBox("Contraseña no es correcto", vbOKOnly, "Clinica Login")
            End If
           
    Else
      x = MsgBox("Usuario no es correcto", vbOKOnly, "Clinica Login")

    End If
    If sw = True Then
        frmlogin.Show
    Else
       
        contador = contador + 1
         
    End If
    Loop
    Unload Me

Gracias sinceramente por vuestro tiempo.

Cuando necesiteis algo pa eso estamos.