概括VBNET Access数据库连接

概括 Access数据库连接

出处：多特软件站时间：2011-06-28 人气：1270我要提问我来说两句

讲解面向对象编程的特性实现IEnumerator接口

核心提示：在向大家详细介绍 Access数据库连接之前，首先让大家了解下的简介，然后全面介绍 Access数据库连接

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

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

的简介

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

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

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