Esto ya se me va de las manos espero que alguien pueda dar una luz.

El sistema de codificación CSSID del sistema me remite datos que ADO no puede leer, o sea, los datos que leo no son más que ???????????? me han comentado que es debido al tipo este CSSID.

¿Alguien sabe como conectar al sistema con la conversión de esta cosa? me imagino que deberá establecerse en la cadena de conexión ADO al sistema DB2. Si no es así como debería ser?

Quizá en la apertura del Recordset?

Gracias. Un saludo.

OOOOOOOOOOOOOeeeeeeeeeeeeeeeee ooooooooooooooooooeeeeeeee ooooooooooooooeeee oooooooooooeeeee

:smt012 :smt012 :smt012

Estimados amigos me satisface comentaros que acabo de solucionar el problema más grabe con el que me había encontrado. Os quiero obsequiar con la solución.

Mil gracias a todos por vuestra paciancia y comprensión.

SOLUCIÓN:

Definimos la variable que contendrá nuestra conexión ADO

Public cnnSQL As ADODB.Connection

Módulo de conexión al AS400. Cualquier otra máquina que tenga el CCSID distinto a la página de códigos del Windows debe llevar un número entre 0 y 65535. Para el AS400 es 0.

Public Sub ConexionAS400()

Set cnnAS400 = New ADODB.Connection
cnnAS400.ConnectionTimeout = 30
cnnAS400.ConnectionString = "Provider=IBMDA400;Data source=xxx.xxx.xxx.xxx;Cursor Sensitivity=2;User ID=USUARIO;Password=PASS"
cnnAS400.Properties("Force Translate") = 0
cnnAS400.Open

End Sub

Con esta conexión forzamos la conversión del código CCSID. CUIDADO CON LA VERSIÓN del AS400 que atacais.

Página de refencia de IBM.

http://www-912.ibm.com/

http://www-912.ibm.com/s_dir/SLKBase...5?OpenDocument

Gracias, un saludo.