Imports System.Data.sqlClient
Imports System.Threading
Public Class FrmMain
Private Sub btnLoad_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnLoad.Click
Dim cn As New sqlConnection’定义连结字符串，并且要注意加ASYNCHRONOUS PROCESSING=TRUE
cn.ConnectionString = "Data Source=WANGLI;Initial Catalog=PlcData;Persist Security Info=True;User ID=sa;pwd=sa;Asynchronous processing=true"
cn.open()
Dim strsql As String = "select * from tbdata"
Dim mycommand As New sqlCommand(strsql,cn)
Dim itfAsynch As IAsyncResult ’定义一个异步读取变量
itfAsynch = mycommand.BeginExecuteReader(CommandBehavior.CloseConnection) ’执行异步读写
While Not itfAsynch.IsCompleted’ 等待执行,
Console.WriteLine("Working on main thread...")
Thread.Sleep(1000)
End While
Console.WriteLine()
Dim dt As New DataTable ’执行完结后将数据写入datatable中
Dim MydataReader As sqlDataReader = mycommand.EndExecuteReader(itfAsynch)
'While MydataReader.Read
' Console.WriteLine("序号:" & MydataReader(0).ToString)
'End While
dt.Load(MydataReader)
DataGridView1.DataSource = dt
MydataReader.Close()
Console.ReadLine()
End Sub End Class
原文地址：https://www.jb51.cc/vb/261033.html
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
