在向大家详细介绍VBNET Access数据库连接之前首先让大家了解下VBNET的简介然后全面介绍VBNET Access数据库连接
Visual BasicNET 是从 Visual Basic 语言演变而来的是一种为高效地生成类型安全和面向对象的应用程序而设计的语言Visual Basic 允许开发人员开发面向 WindowsWeb 和移动设备的程序与所有面向 Microsoft NET Framework 的语言一样使用 Visual Basic 编写的程序都具有安全性和语言互操作性方面的优点这一代 Visual Basic 延续了为您提供一种简单快捷的方法来创建基于 NET Framework 的应用程序的传统
VBNET的简介
VBNET是微软最新平台技术frameworkSDK的一种语言VBNET和VC#NET在功能上没有区别编译以后生成的可执行文件被称为Assembly即程序集的版本号是VB它的运行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虚拟器上的其实它的机制和Java差不多
VBNET Access数据库连接
采用OleDbConnection对象
PrivateFunctiongetAccessConnection()AsOleDbConnection
DimdbConnectionStringAsString=Provider=MicrosoftJetOLEDB;
DataSource=|DataDirectory|\Resources\magmdb;PersistSecurityInfo=true
DimdbConnectionAsOleDbConnection=NewOleDbConnection(dbConnectionString)
Try
dbConnectionOpen()
CatchExAsException
MsgBox(ErrDescription)
EndTry
ReturndbConnection
EndFunction
privateSubfillDataGridView()
DimsqlStrAsString=select*fromTable
DimDataAdapterAsNewOleDbDataAdapter
DimdataSetAsNewDataSet
DimDataGridViewAsNewDataGridView
DimdbConnectionAsOleDbConnection=getAccessConnection()
IfdbConnectionStateToString=ClosedThen
MsgBox(Chr()&access数据库连接失败&Chr()警告)
ExitSub
EndIf
DataAdapterSelectCommand=NewOleDbCommand(sqlStrdbConnection)
Try
DataAdapterFill(dataSetTable)
DataGridViewDataSource=dataSetTables(Table)DefaultView
CatchExAsException
MsgBox(ErrDescription)
Finally
dataSetDispose
DataAdapterDispose
dbConnectionClose
dbConnectionDispose
EndTry
EndSub
VBNET Access数据库文件可以通过 My Project > 资源 > 添加资源 > 添加现有文件 这样的方式来添加调试状态下每次运行项目Resources下面的数据库将会覆盖Debug下的数据库
