Error 429. El componente ActiveX no pued crear el
Publicado por cientocien (67 intervenciones) el 09/01/2003 00:55:49
Error 429. El componente ActiveX no puede crear el objeto.
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
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
Valora esta pregunta


0