24/09/2007, 07:50
|
 | | | Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 18 años, 8 meses Puntos: 2 | |
| Re: Ayuda con Webservice
yo hice algo asi y no es complicado te paso el codigo
agrega si la referencia al soapclient 30
Dim MiSoapWS As New SoapClient30
'On Local Error Resume Next
MiSoapWS.MSSoapInit Ruta ? Wsdl
If Me.Combo1.ListIndex = 0 Then
Text1.Text = MiSoapWS.Metodo1(parametros)
ElseIf Me.Combo1.ListIndex = 1 Then
Text1.Text = MiSoapWS.metodo2(parametros)
Else
Text1.Text = MiSoapWS.metodofececto(parametros)
End If
Set MiSoapWS = Nothing
y listo en el text1 aparece el resultado entregado por el web service |