WebServices asincroinicos

No es exactamente lo que pides pero espero que te sirva. Este ejemplo es de
un servicio web que devuelve un dataset y en la aplicacion se le asigna a un
datagrid para rellenarlo.


Private Sub RellenarGrid_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RellenarGrid.Click

Dim func As New fvidal.Funcioness()
Dim AsyCB As New AsyncCallback(AddressOf EsperaRespuesta)
Try
func.BeginRellena("CALL Datos_Pedido('147400')", AsyCB, func)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub EsperaRespuesta(ByVal AsyRes As IAsyncResult)
Dim func As New fvidal.Funcioness(), ds As System.Data.DataSet
func = AsyRes.AsyncState
Try
ds = func.EndRellena(AsyRes)
DataGrid1.DataSource = ds.Tables(0)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Si estás con ASMX 2.0 (WS de .NET 2.0 - VS.2005), en lugar de utilizar los
métodos "BeginXXXXX()", normalmente usas los nuevos métodos generados en el
proxy de tipo "xxxxAsync()"
como:
proxy.MiMetodoAsync();
Y creando un Event-Handler para el retorno automático una vez ha acabado la
ejecución asíncrona del WebMethod.
CESAR DE LA TORRE
Software Architect
[Microsoft MVP - XML Web Services]
[MCSE] [MCT]

Renacimiento
[Microsoft GOLD Certified Partner]


"FcoVidal" escribió:

No es exactamente lo que pides pero espero que te sirva. Este ejemplo es de
un servicio web que devuelve un dataset y en la aplicacion se le asigna a un
datagrid para rellenarlo.


Private Sub RellenarGrid_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RellenarGrid.Click

Dim func As New fvidal.Funcioness()
Dim AsyCB As New AsyncCallback(AddressOf EsperaRespuesta)
Try
func.BeginRellena("CALL Datos_Pedido('147400')", AsyCB, func)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub EsperaRespuesta(ByVal AsyRes As IAsyncResult)
Dim func As New fvidal.Funcioness(), ds As System.Data.DataSet
func = AsyRes.AsyncState
Try
ds = func.EndRellena(AsyRes)
DataGrid1.DataSource = ds.Tables(0)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Muchas gracias

Aca va el codigo:

Public Class Form1

Dim oWS As New TestAsyncWS.Service

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

oWS.HelloWorldAsync("Sarasa")

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

AddHandler oWS.HelloWorldCompleted, AddressOf HelloWorldCompleted

End Sub

Private Sub HelloWorldCompleted(ByVal sender As Object, ByVal args As
HelloWorldCompletedEventArgs)

'Display the return value

lblHello.Text = args.Result

End Sub

End Class