VB.NET线程访问数据库实用技巧分享

大家通过对VB.NET编程语言的学习之后，可以知道，它在对数据库方面的应用时很灵活的。比如今天为大家介绍的VB.NET线程访问数据库的相关方法，就可以一种灵活方便的方式来实现。#t#

创新互联公司主要从事成都做网站、网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务细河,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

线程是操作系统分配处理器时间的基本单元,线程可以在单个执行线程执行的同时运行多个活动,支持抢先多任务处理的操作系统可以创建多个线程并通过时间片轮转的方式使它们同时运行。在需要良好用户交互的应用以及与网络和数据库进行通讯的应用中,使用多线程能提供良好的交互体验,能对用户的要求做出快速的反应。本文主要介绍.NET中的线程在数据库编程中的具体应用(用VB.NET实现)。

VB.NET线程访问数据库1 创建数据库访问线程

在数据库应用中,特别是网络数据库访问,因为可能要访问的数据量较大,因此需要比较长的时间来得到结果,而一个良好的程序应具有良好的交互性,在访问数据库时应允许你的应用程序对用户的活动尽快做出响应,以提供丰富的用户体验。利用多线程机制可以让需要大量时间的操作在后台运行以快速响应用户的活动。下面的代码访问数据库并返回数据表:

 
 
 
    
  
  
  
  1. Private sub GetData
    FromDataBase()  
    2.   
  
  
  2. …  
    3.   
  
  
  3. m_table.Clear()  
    4.   
  
  
  4. m_sqlDataAdapter.
    Fill(m_table)  
    5.   
  
  
  5. …  
    6.   
  
  
  6. End Sub 
    7.

创建Thread对象的新实例,需创建新的线程代理.ThreadStart线程代理可以指定生成线程时要执行的方法名,但线程代理并不实际运行线程.创建ThreadStart对象时,需指定线程开始执行时要运行的方法的指针,该方法不能接受任何参数。下面我们将上面的代码分配给一个线程处理,并且启动它:

 
 
 
    
  
  
  
  1. Dim myThreadStart as ThreadStart
     =New ThreadStart(AddressOf 
    GetDataFromDataBase)  
    2.   
  
  
  2. Dim myThread as Thread=New 
    Thread(myThreadStart)  
    3.   
  
  
  3. myThread.Start() 
    4.

这样当进行数据库的访问时,用户可以继续进行处理。

VB.NET线程访问数据库2 将数据库访问方法封装到类

上面提到,线程要执行的方法不能接受任何参数,如果要传入方法特定条件,可以将方法放在一个类中,在类中定义类的属性,需要时可以设置类的属性,然后用方法调用这些属性以实现方法参数类似的功能。同时,因为生成的线程在主应用程序线程之外运行,.NET Framework提供线程隔离,这时如果要用新的线程操纵主应用程序中的对象便不被允许。***的办法也是将线程要访问的对象包装在类中。下面我们创建一个类,封装属性和数据库访问方法:

 
 
 
    
  
  
  
  1. Public Class dealDataBase  
    2.   
  
  
  2. Private m_sqlDataAdapter As 
    SqlDataAdapter  
    3.   
  
  
  3. Private m_table As DataTable  
    4.   
  
  
  4. Public Property setDataAdapter()
     As SqlDataAdapter  
    5.   
  
  
  5. Get  
    6.   
  
  
  6. setDataAdapter=m_sqlDataAdapter 
    7.   
  
  
  7. End Get  
    8.   
  
  
  8. Set(ByVal value As SqlDataAdapter)  
    9.   
  
  
  9. m_sqlDataAdapter=value 
    10.   
  
  
  10. End Set  
    11.   
  
  
  11. End Property  
    12.   
  
  
  12. Public Property setDataTable() 
    As DataTable  
    13.   
  
  
  13. Get  
    14.   
  
  
  14. setDataTable=m_table 
    15.   
  
  
  15. End Get  
    16.   
  
  
  16. Set(ByVal value As DataTable)  
    17.   
  
  
  17. m_DataTable=value 
    18.   
  
  
  18. End Set  
    19.   
  
  
  19. End Property  
    20.   
  
  
  20. Public sub GetDataFromDataBase()  
    21.   
  
  
  21. …  
    22.   
  
  
  22. m_table.Clear()  
    23.   
  
  
  23. m_sqlDataAdapter.Fill(m_table)  
    24.   
  
  
  24. …  
    25.   
  
  
  25. End Sub  
    26.   
  
  
  26. End Class  
    27.

下面是创建线程并运行线程的代码:

 
 
 
    
  
  
  
  1. Dim myDB As New dealDataBase ()  
    2.   
  
  
  2. Dim myThreadStart as ThreadStart  
    3.   
  
  
  3. Dim myThread as Thread  
    4.   
  
  
  4. myDB.setDataAdapter=Me.DataAdapter1
     'DataAdapter1是本窗体内定义的数据适配器  
    5.   
  
  
  5. myDB.setDataTable=Me.DataTable1 
    'DataTable1是本窗体定义的数据表  
    6.   
  
  
  6. …  
    7.   
  
  
  7. myThreadStart=New ThreadStart
    (AddressOf myDB.GetDataFromDataBase)  
    8.   
  
  
  8. myThread=New Thread(myThreadStart)  
    9.   
  
  
  9. myThread.Start()  
    10.   
  
  
  10. …  
    11.   
  
  
  11. End Sub 
    12.

VB.NET线程访问数据库3 使用事件

调用了线程的start方法，并不能确保其中的方法马上执行完，而要得到数据访问的结果又必须等其中的方法执行完毕。如果在运行线程后采用循环查询的方法显然影响了交互性，事件是从线程方法返回数据的好方法。只要在线程方法所在的类中定义一个事件，在线程方法中发出事件，而在窗体类中生成代理。
首先在dealDataBase类声明后加进事件：

 
 
 
    
  
  
  
  1. Public Class dealDataBase  
    2.   
  
  
  2. Public Event GetDataComplete
    (ByVal e As DtatTable)  
    3.   
  
  
  3. …  
    4.   
  
  
  4. End Class  
    5.   
  
  
  5. 在类dealDataBase的GetDataFromDataBase()
    方法中加入发出事件的代码，放在
    m_sqlDataAdapter.Fill(m_table)后：  
    6.   
  
  
  6. Public sub GetDataFromDataBase()  
    7.   
  
  
  7. …  
    8.   
  
  
  8. m_sqlDataAdapter.Fill(m_table)  
    9.   
  
  
  9. RasiseEvent GetDataComplete(m_table)  
    10.   
  
  
  10. …  
    11.   
  
  
  11. End Sub  
    12.

下面在窗体类中生成代理

 
 
 
    
  
  
  
  1. Private Sub dealData 
    (ByVal e As DataTable)  
    2.   
  
  
  2. '处理数据表  
    3.   
  
  
  3. End Sub  
    4.

在创建线程并运行线程的代码中进行事件连接,事件连接代码放在运行线程前, dealDataBase类实例化后：

 
 
 
    
  
  
  
  1. AddHandler myDB. 
    GetDataComplete,AddressOf
     dealData   
    2.

这样，当线程方法执行完毕就会发出事件，而dealData方法会响应事件并做出处理。

VB.NET线程访问数据库4 同步机制

当多个线程需要共享相同的对象时,因为每个线程都能改变对象的状态,因此会互相破坏对方的执行。为防止多个线程同时访问共享对象就需要同步。.Net框架使用SyncLock…End SyncLock标识限制线程访问的代码段。 SyncLock可得到一个对象引用的唯一锁，只要将该对象传送给SyncLock.通过得到这个唯一锁，你可以确保多个线程不会访问共享的数据.比如要防止数据表DataTable1被多个进程同时访问，可以对要处理DataTable1的代码做如下处理:

 
 
 
    
  
  
  
  1. SyncLock(DataTable1)  
    2.   
  
  
  2. '处理DataTable1数据表的代码  
    3.   
  
  
  3. End SyncLock  
    4.

5 总结

VB.NET线程访问数据库的使用可以提高程序的效率和提供对用户活动的快速响应。但线程的使用比较复杂,并有死锁的可能,因此使用多线程一定要详细考虑资源的要求和潜在的冲突。

本文标题：VB.NET线程访问数据库实用技巧分享
链接URL：http://www.shufengxianlan.com/qtweb/news49/530099.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联

猜你还喜欢下面的内容

品牌网站制作知识

同城分类信息

自贡网站建设　　 　云服务器　　 　高端网站设计推广　　 　网站建设方案　　 　seo优化　　 　大足网站建设　　 　高端品牌网站建设　　 　成都品牌官网设计公司　　 　重庆app软件开发　　 　艾名斯智能　　 　四川中建建业　　 　雅安电信机房　　 　成都商城网站建设　　 　成都网站设计公司　　 　关键词优化　　 　成都展柜厂　　 　成都400电话　　 　成都西信机房　　 　成都网站改版　　 　成都展柜制作