llamr un rpg desde VB 6
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
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