概括VB.NET Access数据库连接

在向大家详细介绍VB.NET Access数据库连接之前，首先让大家了解下VB.NET的简介，然后全面介绍VB.NET Access数据库连接。

Visual Basic.NET 是从 Visual Basic 语言演变而来的，是一种为高效地生成类型安全和面向对象的应用程序而设计的语言。Visual Basic 允许开发人员开发面向 Windows、Web 和移动设备的程序。与所有面向 Microsoft .NET Framework 的语言一样，使用 Visual Basic 编写的程序都具有安全性和语言互操作性方面的优点。这一代 Visual Basic 延续了为您提供一种简单快捷的方法来创建基于 .NET Framework 的应用程序的传统。

VB.NET的简介

VB.NET是微软最新平台技术，是.netframeworkSDK的一种语言。VB.NET和VC#.NET在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即程序集。VB.net的版本号是VB7.0，它的运行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虚拟器上的。其实，它的机制和Java差不多。

VB.NET Access数据库连接

采用OleDbConnection对象

 
 
  
  PrivateFunctiongetAccessConnection()AsOleDbConnection http://www.jb51.cc/tag/51CTO.com 
  
  DimdbConnectionStringAsString="Provider=Microsoft.Jet.OLEDB.4.0; 
  
  DataSource=|DataDirectory|\Resources\mag.mdb;PersistSecurityInfo=true" 
  
  DimdbConnectionAsOleDbConnection=NewOleDbConnection(dbConnectionString) 
  
  Try 
  
  dbConnection.open() 
  
  CatchExAsException 
  
  ’MsgBox(Err.Description) 
  
  EndTry 
  
  ReturndbConnection 
  
  EndFunction

privateSubfillDataGridView() 
  
  
  
  DimsqlStrAsString="select*fromTable"
  
  DimDataAdapterasNewOleDbDataAdapter 
  
  DimdataSetAsNewDataSet 
  
  DimDataGridViewAsNewDataGridView 
  
  DimdbConnectionAsOleDbConnection=getAccessConnection() 
  
  
  
  IfdbConnection.State.ToString="Closed"Then 
  
  MsgBox(Chr(13)&"access数据库连接失败"&Chr(13),"警告") 
  
  ExitSub 
  
  EndIf 
  
  
  
  DataAdapter.SelectCommand=NewOleDbCommand(sqlStr,dbConnection) 
  
  
  
  Try 
  
  DataAdapter.Fill(dataSet,"Table") 
  
  DataGridView.DataSource=dataSet.Tables("Table").defaultview 
  
  CatchExAsException 
  
  MsgBox(Err.Description) http://www.jb51.cc/tag/51CTO.com 
  
  
  
  Finally 
  
  dataSet.dispose 
  
  DataAdapter.dispose 
  
  dbConnection.Close 
  
  dbConnection.dispose 
  
  EndTry 
  
  
  
  EndSub

VB.NET Access数据库文件，可以通过 My Project -> 资源 -> 添加资源 -> 添加现有文件这样的方式来添加调试状态下，每次运行项目，Resources下面的数据库将会覆盖Debug下的数据库

概括VB.NET Access数据库连接

相关文章