概括VB.NET Access数据库连接-access连接sql server数据库

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

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 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

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 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.

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

【编辑推荐】