• Viernes 8 de Noviembre de 2024, 14:41

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - fdo_tintore

Páginas: [1]
1
VBA / Error '430' en tiempo de ejecucion.
« en: Viernes 13 de Mayo de 2011, 18:19 »
Saludos
Tengo este problema con una aplicacion que esta desarrollada en vb6, el .exe funcionaba perfectamente, fue desarrollado bajo el sistema windows xp profesional.
hace unos dias cambiaron los equipos a windows 7, migre la aplicacion y realize unos cambios insignificastes en el codigo y compile el .exe, al distribuir el .exe me empezo a salir este mensaje en los equipos pero en mi maquina no me pasa.

Como puedo resolverlo...

Estuve checando donde se atora y es aquí

Private Sub Form_Load()

xxxxx
xxxxx
           
        LOGEO_SPLASH.TXTINICIO.Text = "Cargando Conexion..."
        LOGEO_SPLASH.Refresh

       
        ''''''''''''''''
        ' CONEXION SQL '
        ''''''''''''''''
       
        ' LLENAR LISTA DE USUARIOS
        FILTRO = "SELECT * FROM USUARIOS"
       
        ' TOMAR DATOS DE LA CONEXION
        mSQL = Trim(LSQL.Caption)                           ' TIPO DE SQL A USAR 2000 O 2005
        mDATA = Trim(LDATA.Caption)                         ' NOMBRE DEL SERVIDOR SQL
       
=>     RS.CursorLocation = adUseClient
        cn.CursorLocation = adUseClient
       
        ' se existe algun error lo muestra
        'On Error Resume Next
        Screen.MousePointer = vbHourglass
        ABORTAR = 1

Páginas: [1]