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
|
