vb控制ACCESS及EXCEL

《vb控制ACCESS及EXCEL》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB控制EXCEL及ACCESS局域网Access数据库用ADO连接cnnAccess.Open"provider=Microsoft.jet.OLEDB.4.0;datasource=\数据库所在机器ID数据库文件夹db1.mdb;JetOLEDB:DatabasePassword=123"一、概述使用ACCESS存取数据肯定比EXCEL快，数据量越大越明显（本程序当数据量突破1000时，感觉比较明显）。二、VB控制EXCEL1、“创建实例法”：⑴、定义：PublicExAsObjectPublicExwbookAsObjectPublicExsheetAsObject 

2、⑵、打开与关闭：SetEx=CreateObject("Excel.Application")Ex.Visible=FalseSetExwbook=NothingSetExsheet=NothingEx.DisplayAlerts=False'默认回答SetExwbook=Ex.Workbooks.Open(P_csszqwjm)‘打开P_csszqwjm文件SetExsheet=Exwbook.Sheets(P_cssz)'设置当前工作表为P_cssz……Exwbook.CloseEx.DisplayAlerts=TrueEx.QuitSetExsheet=NothingSet

3、Exwbook=NothingSetEx=Nothing⑶、EXCEL控制命令：在VB中控制EXCEL只需在VBA语句前加上相应的对象名(或将原来的workbooks、sheet替换为自己设置的变量Exwbook、Exsheet)即可。如：Exwbook.sheet.add‘增加工作表Exsheet.cells(1,1)=”试验”……2、使用ADO方法：6(具体参见下一部分)PublicAdoconAsADODB.Connection‘链接PublicAdorstAsADODB.Recordset‘记录集Adocon.Open"Provider=Microsoft.Jet.OLE

4、DB.4.0;"&_"DataSource=C:Book1.xls;"&"ExtendedProperties=""Excel8.0;"""Adorst.Open"Select*from[Sheet1$]",Adocon,adOpenStatic'打开Sheet1，也可以是定义的名称，或一个Range。三、VB(VBA)控制ACCESSVB(VBA)控制ACCESS有几种方法，这里只讨论ADO。1、定义：PublicAdoconAsADODB.Connection‘键接PublicAdorstAsADODB.Recordset‘记录集2、打开与关闭：SetAdocon=NewA

5、DODB.ConnectionSetAdorst=NewADODB.RecordsetAdocon.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&P_Wjlj&P_lssjwjm‘P_Wjlj、P_lssjwjm分别为文件路径与文件名Adorst.OpenP_lssj,Adocon,adOpenStatic,adLockReadOnly,adCmdTable‘P_lssj：变量，表名P_lssjjlzs=Adorst.RecordCount'记录总数IfP_lssjjlzs>0ThenP_sjqsj=Adorst!f_rq'

6、第一条记录日期字段内容Adorst.MoveLastP_zxsjrq=Adorst!f_rq'最后一条记录日期字段内容EndIfAdorst.CloseAdocon.CloseSetAdorst=NothingSetAdocon=Nothing说明：Adocon.Open方法中参数：ConnectionString,UserID,Password,OptionsConnectionString   可选，连接字符串UserID   可选，字符串，包含建立连接时所使用用户名。Password   可选，字符串，包含建立连接时所使用密码。Options   可选，ConnectOpt

7、ionEnum值。决定该方法是在连接建立之后（异步）还是连接建立之前（同步）返回。可以是如下某个常量：常量说明adConnectUnspecified（默认）同步打开连接。adAsyncConnect异步打开连接。ConnectComplete事件可以用于决定连接何时可用。Adorst.Open方法中参数：Source,ActiveConnection,CursorType,LockType,Options6Source：主要用到两种，一种打开所有记录（直接是表名），一种是部分查