conectar con ODBC visual Basic

Miguel A. Peinador Wed, 21 Jul 2004 05:24:00 -0700

Tengo un programa que trabaja con ODBC en visual basic y conecta bien con CA (NO express), estoy intentando instralarlo en otro pc instalardo CA express y tengo el siguiente problema al conectar:

----------------------------------------------------------------------------------------------------------------

                       Informaci�n Adicional de Mensaje

ID de mensaje . . . . :   CPIAD0B       Gravedad . . . . . . . :   00
Tipo de mensaje. . . . :   Informaci�n
Fecha env�o . . . . . :   21/07/04      Hora env�o . . . . . . :   11:02:10

Mensaje . . . . :   El trabajo del servidor *SIGNON 206590/QUSER/QZSOSIGN est�
   procesando la petici�n del usuario PCSUSR en 21/07/04 11:02:10 en el
   subsistema QSYSWRK en QSYS.
Causa . . . . . :   El servidor *SIGNON est� procesando la petici�n 1 del
   usuario PCSUSR. Los tipos de peticiones soportadas son las siguientes:
     1 -- Recuperar informaci�n de inicio de sesi�n
     2 -- Cambiar contrase�a
     3 -- Generar testigo de autentificaci�n

                       Informaci�n Adicional de Mensaje

ID de mensaje . . . . :   CPF1164       Gravedad . . . . . . . :   00
Tipo de mensaje. . . . :   Terminaci�n
Fecha env�o . . . . . :   21/07/04      Hora env�o . . . . . . :   11:02:11

Mensaje . . . . :   Trabajo 206590/QUSER/QZSOSIGN finalizado el 21/07/04 a las
11:02:11; se utilizaron 2 segundos; c�digo de finalizaci�n 0

                                        X.
Causa . . . . . :   El trabajo 206590/QUSER/QZSOSIGN se ha completado el
21/07/04 a las 11:02:11 despu�s de utilizar un tiempo de unidad de proceso
de 2 segundos. El trabajo tuvo el c�digo de finalizaci�n 0. El trabajo
finaliz� despu�s de 1 pasos de direccionamiento con un c�digo de
finalizaci�n secundario 0. Los c�digos de finalizaci�n de trabajo y sus
significados son los siguientes:
     0 - El trabajo se complet� normalmente.
    10 - El trabajo se complet� normalmente durante una finalizaci�n

----------------------------------------------------------------------------------------------------------------------

Y ah� se queda, he repasado casi todo pero no se por donde vienen los tiros...

el c�digo de conexi�n es el siguiente:

---------------------------

Private Sub Conecta_Click()

   Screen.MousePointer = vbHourglass
       'se crea y abre objeto conADO (conexi�n ADO)
    Set conADO = New ADODB.Connection
    With conADO
        .Provider = "MSDASQL.1"
        .ConnectionString = "DSN=as400.rschedat"
        .ConnectionTimeout = 10
        .CursorLocation = adUseClient

    End With

    Text1.Text = "Conectando con origen de datos " & conADO.ConnectionString

    conADO.Open

End Sub

�hay que cambiar algo aqui?

�Alguna pista?

Gracias

Miguel

conectar con ODBC visual Basic

Responder a