¿Como llamar programas AS/400 desde VB con ADO vía ODBC?
 

HOla a Todos :adios:

Vuelvo a tener problemas: :molesto:

Resulta que necesito llamar a un programa hecho en Cobol/400 desde VB con ADO vía ODBC, pero me sale el sgte. error:
"Programa en Alexis de tipo *N no encontrado"

Mi código es el sgte:

Public Conexión As New Connection
Public Comando As New Command
Public RS As New Recordset

Public Sub Prepara_Saludo()
Set Comando = New Command
Comando.CommandType = adCmdText
Comando.CommandText = "Call Alexis.Programa (?,?)"
Comando.ActiveConnection = Conexión
Set Par1 = Comando.CreateParameter("ENTRADA", adChar, adParamInput, 4, CStr(Principal.Caja_Saludo.Text))
Set Par2 = Comando.CreateParameter("SALIDA", adChar, adParamOutput, 4, "")
Comando.Parameters.Append Par1
Comando.Parameters.Append Par2
End Sub

Public Sub Salúdame()
Set RS = New Recordset
RS.CursorLocation = adUseClient
Set RS.Source = Comando
RS.Open
End Sub

¿Será que no se puede llamar a programas as/400 con este método? :pensando:

¡Alguien me puede ayudar! :'(