Option Explicit
Global As400_Con As Object
Global As400_Path As String
Global sSQL As String
Global aS400Rs As Object
Public Function AbreBaseAs400() As Boolean
On Error GoTo Error_AbreBaseAs400
AbreBaseAs400 = False
As400_Path = "DSN=(nombre de la odbc de as400);uid=XXXXX;pwd=XXXXX;"
Set As400_Con = CreateObject("ADODB.Connection")
As400_Con.ConnectionString = As400_Path
As400_Con.Open
AbreBaseAs400 = True
Exit Function
Error_AbreBaseAs400:
MsgBox "Error al abrir la Base de Datos As400 " & Err.Number & " " & Err.Description
End Function
Public Function CierraBaseAs400()
On Error GoTo Error_CierraBaseAs400
As400_Con.Close
Error_CierraBaseAs400:
End Function
Public Function LeeAs400()
If AbreBaseAs400 Then
Set aS400Rs = CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM xxxx.yyyyy" '
aS400Rs.Open sSQL, As400_Con, 0, 1, 1
If Not aS400Rs.EOF Then
Do While Not aS400Rs.EOF
If IsNull(aS400Rs(0)) Then
' si los campos son nulos
Else
' ver la info de cada campo
End If
aS400Rs.movenext
Loop
Else
MsgBox "No hay informacion de la consulta "
aS400Rs.Close
Set aS400Rs = Nothing
End If
End If
Exit Function
End Function
Comentarios sobre la versión: 1.1 (0)
No hay comentarios