Ver Mensaje Individual
  #9 (permalink)  
Antiguo 26/09/2007, 15:52
hunabku
 
Fecha de Ingreso: diciembre-2003
Mensajes: 595
Antigüedad: 21 años, 3 meses
Puntos: 1
Re: Ayuda con Webservice

Cita:
Iniciado por tazzito Ver Mensaje
Dim MiSoapWS As New SoapClient30
'On Local Error Resume Next
MiSoapWS.MSSoapInit "http://www.elguille.info/NET/WebServices/HolaMundoWebS.asmx?wsdl"

if VariableMetodoElejido="Saludar" then
TxtResultado.Text = MiSoapWS.Saludar
elseif VariableMetodoElejido="Saludo" then
TxtResultado.Text = MiSoapWS.Saludo("hunabku")
Endif
Set MiSoapWS = Nothing


Oye tazzito una pregunta estaba probando en un webservice que tengo local y realize 2 parametros uno como el siguiente


<WebMethod(Description:="Ejemplo de texto")> _
Public Function TextoUno() As String
Return "PRUEBA"

End Function


qne en efecto me devolvio el stringo de PRUEBA



pero quise meter este otro:

<WebMethod(Description:="Consulta de ABONOS")> _
Public Function abonos() As String
cmd.ActiveConnection = rs
cmd.CommandType = ADODB.CommandTypeEnum.adCmdText
cmd.CommandText = "select * from cajcautmovtoabono "

rs = cmd.Execute()
Return rs
End Function


el cual segun yo me deberia arojar el resultado de esa consulta en el text1 pero me envia error sabras si esta mal mi funcion???