Ayuda con Webservice

[hunabku]

Saludos bueno apenas me inicio en esto del Web service ya realize uno en mi localhost con uno parametros como buenas tardes, buenos dias,buenas noches, quisiera saber como desde visual basic conectarme a este webservice invocando estos parametros

[hunabku]

Nadie tiene una idea de como explotar datos de un webservice desde VB6

[hunabku]

Ya lei el ejemplo de la pagina de Guille pero la verdad no me corrio muy bien nadie tiene algun otro manual o ejemplo

[tazzito]

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

[hunabku]

Gracias tazzito deja lo pruebo y te comento como me fue

[hunabku]

Iniciado por tazzito

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

como quedaria con esta servicio web

http://www.elguille.info/NET/WebServ...MundoWebS.asmx

[tazzito]

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

[hunabku]

Muchas gracias tazzito la verdad me ayudaste mucho

[hunabku]

Iniciado por tazzito

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???

[tazzito]

Iniciado por hunabku

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???

ya veamos primeo que e rs? me imagino que un recordset y la funcion devuelve un string, tienes 2 opciones creo.... aun no me manejo mucho en .net
devulves un recordset... que llegaria como xml (segun creo) o un

return rs.getxml

y asi devolveras en formato xml mmm para capturarlo desde vb es un problema :S jaja imagino por que eso no lo eh trabajado.

[hunabku]

Iniciado por tazzito

ya veamos primeo que e rs? me imagino que un recordset y la funcion devuelve un string, tienes 2 opciones creo.... aun no me manejo mucho en .net
devulves un recordset... que llegaria como xml (segun creo) o un

return rs.getxml

y asi devolveras en formato xml mmm para capturarlo desde vb es un problema :S jaja imagino por que eso no lo eh trabajado.

mm no me jalo pero de echo esa metodo pra hacer una busqueda es la misma que utuilizo en vb6 claro solo cambia un poco pero es casi identica o dime tu como crear un parametro para que te aroje una consulta a de tu base de datos

[msantamaria]

tazzito:
Espero que todavia estes viendo este foro, te paso mi problema, yo estuve intentando consumir los servicios web de la misma manera que propones vos, utilizando vb6 pero no logro hacerlo andar. Lo que me llama la atención es que al poner MiSoapws.Saludar no me encuentra el metodo y desde ya que existe.

Dim MiSoapWS As New MSSOAPLib30.SoapClient30
ruta = "http://www.elguille.info/NET/WebServices/HolaMundoWebS.asmx?WSDL"
MiSoapWS.MSSoapInit ruta
res = MiSoapWS.Saludar (error 5409)

sabes que puede ser?

Connector: Host not found .....etc etc etc.

[hunabku]

hace tiempo resolvi ese tema no recuerdo muy bien como pero si deseas puedo buscar ese antigui proyecto y te envio el metodo

[msantamaria]

Si, claro, me lo podrias pasar? te juro que ya no sé que tengo que revisar o mirar en el codigo o en la web. Mi mail es [email protected]

Gracias

[msantamaria]

Hunabku, me lo podras pasar o darme un mano? te juro que no sé que puede llegar a ser. Gracias

[jimylu]

hola quisiera que me ayudaran con webservice de magento desde vb 6.0

http://www.forosdelweb.com/f69/visua...agento-998682/