概括VBAccess数据库连接出处：多特软件站时间：2011-06-28人气：1270我要提问我来说两句讲解VB面向对象编程的特性VB实现IEnumerator接口核心提示：在向大家详细介绍VBAccess数据库连接之前，首先让大家了解下VB的简介，然后全面介绍VBAccess数据库连接在向大家详细介绍VBAccess数据库连接之前，首先让大家了解下VB的简介，然后全面介绍VBAccess数据库连接。VisualBasic是从VisualBasic语言演变而来的，是一种为高效地生成类型安全和面向对象的应用程序而设计的语言。VisualBasic允许开发人员开发面向Windows、Web和移动设备的程序。与所有面向MicrosoftFramework的语言一样，使用VisualBasic编写的程序都具有安全性和语言互操作性方面的优点。这一代VisualBasic延续了为您提供一种简单快捷的方法来创建基于Framework的应用程序的传统。VB的简介VB是微软最新平台技术，是frameworkSDK的一种语言。VB和VC#在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即程序集。VB的版本号是VB7.0，它的运行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虚拟器上的。其实，它的机制和Java差不多。VBAccess数据库连接采用OleDbConnection对象PrivateFunctiongetAccessConnection()AsOleDbConnectionDimdbConnectionStringAsString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=|DataDirectory|\Resources\mag.mdb;PersistSecurityInfo=true"DimdbConnectionAsOleDbConnection=NewOleDbConnection(dbConnectionString)TrydbConnection.Open()CatchExAsException’MsgBox(Err.Description)EndTryReturndbConnectionEndFunctionprivateSubfillDataGridView()DimsqlStrAsString="select*fromTable"DimDataAdapterAsNewOleDbDataAdapterDimdataSetAsNewDataSetDimDataGridViewAsNewDataGridViewDimdbConnectionAsOleDbConnection=getAccessConnection()IfdbConnection.State.ToString="Closed"ThenMsgBox(Chr(13)"access数据库连接失败"Chr(13),,"警告")ExitSubEndIfDataAdapter.SelectCommand=NewOleDbCommand(sqlStr,dbConnection)TryDataAdapter.Fill(dataSet,"Table")DataGridVieDataSource=dataSet.Tables("Table").DefaultViewCatchExAsExceptionMsgBox(Err.Description)FinallydataSet.DisposeDataAdapter.DisposedbConnection.ClosedbConnection.DisposeEndTryEndSubVBAccess数据库文件，可以通过MyProject->资源->添加资源->添加现有文件这样的方式来添加调试状态下，每次运行项目，Resources下面的数据库将会覆盖Debug下的数据库。