Public Sub Callback1(ByVal ar As IAsyncResult)
''这里可以不写任何代码
'这里的代码在调用方运行结束后,开始运行
Try
Dim pds As New DataSet
If ar.IsCompleted Then
pds = wService.EndExecuteSqlPds(ar)
dg.DataSource = pds.Tables(0)
End If
Catch ex As Exception
End Try
End Sub
Private Sub btnAsyn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAsyn.Click
Dim cb As AsyncCallback = New AsyncCallback(AddressOf Callback1)
ar = wService.BeginExecuteSqlPds("select top 10 * from orderlist", cb, wService)
End Sub
以下是ExecuteSqlPds函数的代码
<WebMethod()> Public Function ExecuteSqlPds(ByVal Strsql As String) As DataSet
Dim myConn As SqlConnection = New SqlConnection
Dim pds As DataSet = New DataSet
Try
myConn = New SqlConnection(Application("strconn"))
Dim mycomm As SqlDataAdapter = New SqlDataAdapter(Strsql, myConn)
mycomm.Fill(pds, "Detail")
Catch ex As Exception
Finally
If (myConn.State = ConnectionState.Open) Then
myConn.Close()
End If
End Try
myConn.Close()
Return pds
End Function
Public Sub Callback1(ByVal ar As IAsyncResult)
''这里可以不写任何代码
'这里的代码在调用方运行结束后,开始运行
Try
Dim pds As New DataSet
If ar.IsCompleted Then
pds = wService.EndExecuteSqlPds(ar)
dg.DataSource = pds.Tables(0)
End If
Catch ex As Exception
End Try
End Sub
Private Sub btnAsyn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAsyn.Click
Dim cb As AsyncCallback = New AsyncCallback(AddressOf Callback1)
ar = wService.BeginExecuteSqlPds("select top 10 * from orderlist", cb, wService)
End Sub