在向大家详细介绍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对象

 
  
  1. Private Function getAccessConnection() As OleDbConnection http://open.189works.com/product/product.htm  
  2. Dim dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;  
  3. Data Source=|DataDirectory|\Resources\mag.mdb;Persist Security Info=true"  
  4. Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)  
  5. Try  
  6. dbConnection.Open()  
  7. Catch Ex As Exception  
  8. ’MsgBox(Err.Description)  
  9. End Try  
  10. Return dbConnection  
  11. End Function 
 
  
 
 
  
 
  
  1. private Sub fillDataGridView()  
  2.  
  3. Dim sqlStr As String = "select * from Table" 
  4. Dim DataAdapter As New OleDbDataAdapter  
  5. Dim dataSet As New DataSet  
  6. Dim DataGridView As New DataGridView  
  7. Dim dbConnection As OleDbConnection = getAccessConnection()  
  8.  
  9. If dbConnection.State.ToString = "Closed" Then  
  10. MsgBox(Chr(13) & " access 数据库连接失败 " & Chr(13), , "警告")  
  11. Exit Sub  
  12. End If  
  13.  
  14. DataAdapter.SelectCommand = New OleDbCommand(sqlStr,dbConnection)  
  15.  
  16. Try  
  17. DataAdapter.Fill(dataSet,"Table")  
  18. DataGridView.DataSource = dataSet.Tables("Table").DefaultView  
  19. Catch Ex As Exception  
  20. MsgBox(Err.Description) http://open.189works.com/product/product.htm  
  21.  
  22. Finally  
  23. dataSet.Dispose  
  24. DataAdapter.Dispose  
  25. dbConnection.Close  
  26. dbConnection.Dispose  
  27. End Try  
  28.  
  29. End Sub 
 
  
VB.NET Access数据库文件，可以通过 My Project -> 资源 -> 添加资源 -> 添加现有文件 这样的方式来添加调试状态下，每次运行项目，Resources下面的数据库将会覆盖Debug下的数据库