欢迎来到天天文库
浏览记录
ID:47359486
大小:62.50 KB
页数:6页
时间:2019-08-04
《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、“创建实例法”:⑴、定义:PublicExAsObjectPublicExw
2、bookAsObjectPublicExsheetAsObject ⑵、打开与关闭: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_
3、cssz……Exwbook.CloseEx.DisplayAlerts=TrueEx.QuitSetExsheet=NothingSetExwbook=NothingSetEx=Nothing⑶、EXCEL控制命令:在VB中控制EXCEL只需在VBA语句前加上相应的对象名(或将原来的workbooks、sheet替换为自己设置的变量Exwbook、Exsheet)即可。如:Exwbook.sheet.add‘增加工作表Exsheet.cells(1,1)=”试验”……2、使用ADO方法:6(具体参见下一部分)Pu
4、blicAdoconAsADODB.Connection‘链接PublicAdorstAsADODB.Recordset‘记录集Adocon.Open"Provider=Microsoft.Jet.OLEDB.4.0;"&_"DataSource=C:Book1.xls;"&"ExtendedProperties=""Excel8.0;"""Adorst.Open"Select*from[Sheet1$]",Adocon,adOpenStatic'打开Sheet1,也可以是定义的名称,或一个Range。三、VB
5、(VBA)控制ACCESSVB(VBA)控制ACCESS有几种方法,这里只讨论ADO。1、定义:PublicAdoconAsADODB.Connection‘键接PublicAdorstAsADODB.Recordset‘记录集2、打开与关闭:SetAdocon=NewADODB.ConnectionSetAdorst=NewADODB.RecordsetAdocon.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&P_Wjlj&P_lssjwjm‘P_Wjl
6、j、P_lssjwjm分别为文件路径与文件名Adorst.OpenP_lssj,Adocon,adOpenStatic,adLockReadOnly,adCmdTable‘P_lssj:变量,表名P_lssjjlzs=Adorst.RecordCount'记录总数IfP_lssjjlzs>0ThenP_sjqsj=Adorst!f_rq'第一条记录日期字段内容Adorst.MoveLastP_zxsjrq=Adorst!f_rq'最后一条记录日期字段内容EndIfAdorst.CloseAdocon.CloseS
7、etAdorst=NothingSetAdocon=Nothing说明:Adocon.Open方法中参数:ConnectionString,UserID,Password,OptionsConnectionString 可选,连接字符串UserID 可选,字符串,包含建立连接时所使用用户名。Password 可选,字符串,包含建立连接时所使用密码。Options 可选,ConnectOptionEnum值。决定该方法是在连接建立之后(异步)还是连接建立之前(同步)返回。可以是如下某个常量:常量说明
8、adConnectUnspecified(默认)同步打开连接。adAsyncConnect异步打开连接。ConnectComplete事件可以用于决定连接何时可用。Adorst.Open方法中参数:Source,ActiveConnection,CursorType,LockType,Options6Source:主要用到两种,一种打开所有记录(直接是表名),一种是部分查
此文档下载收益归作者所有