VB.NET与Access数据库如何建立连接- VB

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

Visual Basic.NET 是从 Visual Basic 语言演变而来vb.net教程

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

VB.NET的简介

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

VB.NET Access数据库连接

采用OleDbConnection对象

Private Function getAccessConnection() As OleDbConnection   
Dim dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;   
Data Source=|DataDirectory|\Resources\mag.mdb;Persist Security Info=true"   
Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)   
Try   
dbConnection.Open()   
Catch Ex As Exception   
’MsgBox(Err.Description)   
End Try   
Return dbConnection   
End Function 

private Sub fillDataGridView()   
 
Dim sqlStr As String = "select * from Table"  
Dim DataAdapter As New OleDbDataAdapter   
Dim dataSet As New DataSet   
Dim DataGridView As New DataGridView   
Dim dbConnection As OleDbConnection = getAccessConnection()   
 
If dbConnection.State.ToString = "Closed" Then   
MsgBox(Chr(13) & " access 数据库连接失败 " & Chr(13), , "警告")   
Exit Sub   
End If   
 
DataAdapter.SelectCommand = New OleDbCommand(sqlStr,dbConnection)   
 
Try   
DataAdapter.Fill(dataSet,"Table")   
DataGridView.DataSource = dataSet.Tables("Table").DefaultView   
Catch Ex As Exception   
MsgBox(Err.Description)   
 
Finally   
dataSet.Dispose   
DataAdapter.Dispose   
dbConnection.Close   
dbConnection.Dispose   
End Try   
 
End Sub