¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas

Documentos
Conectarse al iSeries 400 desde Visual Basic

Usando el componente ADO
Ejemplo:

Function Usuario()
Dim Con as ADODB.Connection
Dim Rst as ADODB.Recorset
Set Con = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
Con.Open "DSN=PRUEBA ODBC" - esta es tu ODBC de Usuario
Rst.Open "Select *From Archivo.Biblioteca",Con - este es tu
filtro de selección en que estableces la conexión a una archivo
especifico del as400
End Function

Una vez establecida la conexión, puedes leer tu Recordset
Ejemplo:

Rst.MoveFirst
Do While Not Rst.EOF()
Aquí debes agregar tu líneas de código
Rst.MoveNext
Loop

Este documento ha sido elaborado con la respuesta de Sergio Puentes a un mensaje del foro

11-09-2001

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049