|
Imports System.Data.SqlClient
Imports System.Threading
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
BindData()
End Sub
Private Sub BindData()
Dim ConStr As String = "Data Source=.;Initial Catalog=Northwind;Persist Security Info=True;User ID=sa;Pwd=sa;Asynchronous Processing=true"
Dim QueryStr As String = "select * from Customers"
Using con As SqlConnection = New SqlConnection(ConStr)
Dim cmd As SqlCommand = New SqlCommand(QueryStr,con)
Dim AsynResult As IAsyncResult
Dim Dr As SqlDataReader
Try
con.Open()
AsynResult = cmd.BeginExecuteReader(CommandBehavior.CloseConnection)
While (Not AsynResult.IsCompleted)
Console.WriteLine("异步查询方式:")
AsynResult.AsyncWaitHandle.WaitOne(1000,True)
'system.threading .thread sleep(3000);
End While
Dr = cmd.EndExecuteReader(AsynResult)
Dim bs As BindingSource = New BindingSource
bs.DataSource = Dr
DataGridView1.DataSource = bs
'While Dr.Read
' Console.WriteLine(Dr.Item(1).ToString)
'End While
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Using End SubEnd Class （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
