ENLACE CON SERVIDOR AS/400 CON ADO

[Sánchez@discussions.microsoft.com Víctor Sánchez]

Buenas tardes:
Inicalmente agradesco quién pudiera ayudarme en el siguiente problema:
Construí una base de datos en un servidor as/400 IBM y necesito conectarme
con una aplicación en VB que estoy construyendo en adelante escribo el código
que utilice, al cargar el formulario me da un error por no encontrar el
objeto ole que sirve de proveedor al connection "donde dice AQUI", donde
consigo un objeto que proveea d' este servicio, tengo todos los paquetes de
ADO los skd, mdac...actualizados en mi computador de ADO utilizó visual
basic 6.0, y Client Access IBM 5.0 con todas las actualizaciones.

¿Cual objeto utilizó para la conexión?
¿Debo insertarlo en mi formulario?
¿Cómo debo configurarlo?

El client access de IBM, tiene asistentes para la conexión pero quiero
controlar las consultas y ingresos por mi cuenta, y no me da mayor
información sobre que objeto utiliza, lo que si se que usa un DATA link 4.0 o
algo así..

Dim cndatabase As ADODB.Connection
Dim rsestado As ADODB.Recordset
Dim strconn As Variant
Dim strsql As Variant
Private Sub Command1_Click()
Set cndatabase = New ADODB.Connection
strconn ="provider=AQUI; data source=QS105T10M;initial catalog=PROYECTMSI;_
user id=aniupre password=xxxxx;"
cndatabase.Open strconn
Set rsestado = New ADODB.Recordset
strsql = "SELECT ESTADO. COD_ESTADO, ESTADO.NOM_ESTADO, ESTADO.COD_ZONA
From S105T10M.ANAPRO.ESTADO ESTADO"
rsestado.Open strsql, cndatabase

end sub

Agradezco de antemano quien me pueda ayudar, pueden hacerlo por este medio o
escribirme a: vsan...@toyota.com.ve
Muchas gracias

[Julio Cesar]

Cual es el proveedor de la BD que te quieres conectar??

"Víctor Sánchez" <Vctor S nc...@discussions.microsoft.com> escribió en el
mensaje news:8E3B0F13-992F-4998...@microsoft.com...

[pablo crosio]

hola!

realmente nunca trabaje con el oledb para AS400 pero por lo que comentas
tenes instalado el cliente oledb en el equipo desde el que te queres conectar

podes probar creando un archivo de extension udl, luego le das doble click y
alli te apareceran los clientes oledb instalados que podes utilizar... fijate
si te aparece el de AS400... luego configuras todas las opciones... una vez
finalizado esto, podes editar el archivo udl con un notepad o editpad y alli
encontraras la cadena de conexion.....

todo esto claro si decis que tenes instalado correctamente el cliente oledb
para AS400..

salu2!!

pablo

"Víctor Sánchez" escribió:

[Víctor Sánchez]

GRACIAS POR LA ATENCIÓN PRESTADA A MI PROBLEMA, HICE LO QUE ME DIJISTE Y EN
EFECTO CONSEGUI LA CADENA DE CONEXION, EXCELENTE...

Ahora, una pregunta más, tengo creado un DNS de sistema creado en el
administrador de ODBC de windows xp justamente configurado para conectarse
con la base de datos del OS400 de IBM, cual sería el código de conexión en
ADO para hacer la conexión e intentado con un control Adodc1 y me da
problemas a continuación el código:

Adodc1.ConnectionString = "DSN=prueba;uid=anapro;pwd=bar1"

gracias de nuevo...

[Víctor Sánchez]

Hice lo que dijo pablo y consegui que el proveedor al que me quiero conectar
se llama IBMDA400 y ademas tengo la cadena de conexión, estoy en estos
momentos haciendo las pruebas, tengo un DNS de sistema conectado a la base de
datos, ¿cual sería el código para conectarme un sando el DNS? e intentado
usar un control ado pero me trae continuos inconvenientes, me estoy guiando
con un manual de ADO y ahí voy...

Gracias por el interes...

Adodc1.ConnectionString = "DSN=prueba;uid=anipre;pwd=xxx"
gracias por la ayuda...

"Julio Cesar" escribió:

[pablo crosio]

hola!

proba con la misma cadena de conexion que obtuviste....

Adodc1.ConnectionString = "cadena_obtenida_del_udl"

y si te da error, podes transcribirlo para verlo....

[Carlos Rey]

Hola Víctor, yo acabo de tener una cruda experiencia con AS400, al fin haye
la mejor opcion para conectarme, via OLEDB..

Yo hice lo siguente:

Cree el DSN de sistma con el controlador ODBC del client access(debe estar
instalado) con las bd requeridas, con el adodc genere una cadena de
conección utilizando cómo cliente el OleDb - ODBC, luego generé la cadena de
conección con el asistente del ADODC y la copie para usarla en VB6, me
deshice del data control y funciona optimamente..

En las pruebas haye la manera de conectarme via OleDb sin necesidad de usar
el proveedor ODBC, pero es una trauma y además para realizar una consulta
sql tenia que pasar cientos de parametros, la biblioteca, la base, la tabla,
en fin toda una tragedia.

Si quieres un ejemplo de la cadena de conexión puedo pasartela en horas del
dia de mañana...

Saludos Cordiales..

"Víctor Sánchez" <Vctor S nc...@discussions.microsoft.com> escribió en el
mensaje news:8E3B0F13-992F-4998...@microsoft.com...

[Alejandro]

Interesante, me gustaria saber como lo hiciste, tengo algo parecido pero por
ODBC, y me gustaria desligarme de esa forma, ya que requeriere agregar a cada
cliente un ODBC, que si se olvida empiezan las puteadas.....
gracias....