cientocien
09 de Enero del 2003

este error me sale cuando intento ejecutar la aplicacion en otro ordenador, y se produce cuando intento conectar con la base de datos este es el codigo:

Dim db As Database
Dim RS As Recordset
Dim ws As Workspace
Dim dbnombre As String
Dim usuario As String
Dim contraseña As String

dbnombre = "C:\DBocaso\DBocaso.mdb"


usuario = txtnombre.Text
contraseña = txtcontraseña.Text
globalUsuario = usuario
globalContraseña = contraseña


\'CREO EL WORKSPACE
Set ws = DBEngine.CreateWorkspace(usuario, usuario, contraseña)

Set db = ws.OpenDatabase(dbnombre)

Set ows = ws
Set odb = db
\'COMPRUEBO LA CONEXION GENERANDO UN RECORDSET

Set RS = db.OpenRecordset("select * from clientes")
If (UCase$(globalUsuario) <> "ADMIN") Then
inicio.gestionUsuarios.Enabled = False

End If

lblConectando.Visible = False
LblUsuario.Visible = True
LblContraseña.Visible = True
txtnombre.Visible = True
txtcontraseña.Visible = True

Me.Hide
MsgBox "Usuario " & txtnombre.Text & " conectado satisfactoriamente !", vbInformation, "SUCESO"
inicio.agentes.Enabled = True
inicio.configuracion.Enabled = True
inicio.cliente.Enabled = True
inicio.MenuPolizas.Enabled = True
inicio.salir.Enabled = True
inicio.BarraHerramientas.Visible = True
Unload Me

webJose
09 de Enero del 2003

Probablemente necesita instalar Microsoft Jet en esa computadora. Para información acerca de cómo realizar esto, diríjase a http://www.microsoft.com/data.