vb通过dao访问aess数据库

《vb通过dao访问aess数据库》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、.VB通过DAO访问Access数据库http://www.sina.com.cn2001/11/08 14:06中国电脑教育报　　文/张喜瑞、毛立夏　　Access是Office系列中功能完备的数据工具，本文将其作为应用程序的后台仓库，即一个数据库可以包括多个二维表，实现各类数据的存储，适合用来作为数据处理的中间桥梁。　　VisualBasic对Access数据库的集成非常紧密，通常由以下几个部分组成。　　引用DAO类型库　　1、从“工程”菜单中选择“引用”菜单项；　　2、在可引用列表框中选择“MicrosoftDAO3.51ObjectLibrary”项。　　3、最后

2、“确定”即可　　设置DAO数据类型变量　　DAO数据类型变量共分成两种：　　1、Database变量　　对应于Access数据库，通常在模块中被定义为Public全程变量：　　PublicAccessDBFAsDatabase　　'定义数据库对象实例AccessDBF　　2、RecordSet变量...　　对应于Access数据库中的一个表，可定义为全程变量或局部变量，亦可作为函数参数进行传递：　　DimthePrintTableAsRecordSet　　'定义一个表对象实例thePrintTable　　打开DAO数据类型　　1、打开Access的方法　　通常可设置一个专

3、门的Public函数用来打开一个Access数据库，并且该函数在启动窗体的PrivateSubForm_load()过程中被调用，函数定义格式如下：　　PublicSubOpenDatabase()　　DimsConeectAsString　　SConnect=";PWD=8830428;UID=admin"　　'设置打开时的用户名、口令等参数　　SetAccessDBF=Nothing　　'确认关闭对象实例　　SetAccessDBF=WorksPaces(0).OpenDatabase(App.Path&&"/ToXls.MDB",False,sConnect)　　'

4、打开当前路径的ToXls.MDB数据库　　EndSub...　　2、打开RecordSet的方法　　RecordSet遵循即用即开的原则，所以它通常在函数中打开　　SetthePrintTable=AcessDBF.OpenRecordSet("Table_1",dbOpenSnapshot)　　相关的数据操作　　数据实际需要对Access表中的记录、字段、数据项进行操作。下列双重循环把数据输出到Excel对应的单元格中：　　Forj=0To2　　ForI=0To3　　ThePrintTable.MoveNext　　Excel.Sheet.Range(Trim(chr(7

5、1+j*10+I))+"G").Value=thePrintTable.Fields(0)　　NextI　　Nextj　　关闭数据库　　1、关闭Database　　它通常在整个应用程序的最后进行操作，即通常出现在PrivateSubForm_unload(CannelAsInterger)过程中。命令格式实例如下：　　AccessDBF.Close...　　2、关闭RecordSet　　它遵循用完即关的原则，所以通常出现在函数中。当完成了相关的数据操作后就关闭它，下次再用时再打开即可：　　thePrintTable.Close　　结论：通过系统集成开发应用程序的输入和输出

6、模块，它一方面充分利用了OLE对象程序的优点，轻松完成人机界面设计，使程序员从繁琐而又简单的点、线、框等定位中脱离出来；另一方面，由于充分利用了用户操作熟练的软件作为人机界面，使用户有亲切感和熟练操作的能力，从而能够充分发挥所开发的应用程序的功能。在vb.net中用ado.net连接Access巧巧电脑网络 2007-12-27 qqread 逃の妖豆 论坛 收藏此文大中小在ADO.net中，微软为我们提供了OleDB和SqlClient两种数据库的调用方法，对于微软的SQLServer，我们使用SqlClient来处理在速度上比较快，而OleDB可用于其它各种类型的数据

7、库。SqlClient在vb.net中命名空间为System.Data.SqlClient，OleDB的命名空间为System.Data.OleDb。对于连接Access数据库，则可以使用OleDB来实现。一个数据库连接，最重要的是建立一个Connection，对于一个Access数据库，其Connection的标准ConnectionString为以下语句：Connection.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=somepathmy