llamr un rpg desde VB 6

oqueller
07 de Abril del 2005
Dim CNX As New ADODB.Connection
Dim CMD As String
CNX.Open "Provider=MSDASQL.1;Data Source=QGPL;", "", ""
CMD = "{{CALL CLFTP}}"
If Err.Number <> 0 Then
MsgBox "Error al conectar con el AS400" & vbCrLf & _
Err.Description
End If
CNX.Execute CMD
se me gunda el VB alguien me puede ayudar

Alejandro Tello
07 de Abril del 2005
Hola, sería mejor si pusieras un pequeño mensaje de cuál es el problema, y que hace el proceso, yo he trabajado con AS400 con Rumba y Client Access y no entiendo. Por favor descríbelo un poco. También te invito a publicarlo en www.kognos.com.mx/foro