Vuelvo a tener problemas:
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?
¡Alguien me puede ayudar!
Mode Lineal
