当前位置:首页 > 开发教程 > VB.NET教程 >

概括Access数据库连接

时间:2013-09-18 11:50 来源: 作者: 收藏

2345软件教程,为您打造全面的软件教程手册,无论是新奇小软件的操作还是专业软件的使用技巧,2345软件教程都会为您解疑释惑。

核心提示:在向大家详细介绍VB.NET Access数据库连接之前,首先让大家了解下VB.NET的简介,然后全面介绍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对象


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

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


VB.NET教程阅读排行

最新文章