23/08/2005, 17:23
|
| | | Fecha de Ingreso: marzo-2005 Ubicación: Sevilla
Mensajes: 277
Antigüedad: 19 años, 1 mes Puntos: 2 | |
| Pues mira que curioso:
Dim data_base As Database
Dim result As Recordset
Set data_base = OpenDatabase("bd1.mdb", True, False, "Access 2000;")
Set result = data_base.OpenRecordset("Select Acceso from Empleados where Usuario = '" & Text1.Text & "' And Pass = '" & Text2.Text & "'", dbOpenDynaset)
result.MoveFirst
con este codigo me dice que me falta un archivo isam instalable (me lei el faq pero no me funciona lo que dice en el o me equivoco al hacerlo)
pero con este otro me dice que no hya ningun registro activo :S:S
Dim esapce As Workspace
Dim data_base As DAO.Database
Dim result As DAO.Recordset
Set espace = CreateWorkspace("", "admin", "", dbUseJet)
Set data_base = espace.OpenDatabase("users.mdb", True, False , ";PWD=mipass")
Set result = data_base.OpenRecordset("Select Acceso from Empleados where Usuario = '" & Text1.Text & "' And Pass = '" & Text2.Text & "'", dbOpenDynaset)
result.MoveFirst
las dos bases de datos son diferentes, una usa contraseña y la otra no... ¿ALguien me explica lo de que falta el isam?ya me lei el faq pero no entiendo que archivo es... no lo encuentro... nada, creo k es el formato de access 2000, acabo de instalar la librearia mdac 2.8 y nada de nada, la selecciono en preferencias y sigue sin funcionar. Algo falla? |