文档介绍:ESS
ess数据库用ADO连接
"provider=;data source=\\数据库所在机器ID\数据库文件夹\;Jet OLEDB:Database Password=123"
一、概述
ESS存取数据肯定比EXCEL快,数据量越大越明显(本程序当数据量突破1000时,感觉比较明显)。
二、VB控制EXCEL
1、“创建实例法”:
⑴、定义:
Public Ex As Object
Public Exwbook As Object
Public Exsheet As Object
 
⑵、打开与关闭:
Set Ex = CreateObject("")
= False
Set Exwbook = Nothing
Set Exsheet = Nothing
= False '默认回答
Set Exwbook = (P_csszqwjm) ‘打开P_csszqwjm文件
Set Exsheet = (P_cssz) '设置当前工作表为P_cssz
……
= True
Set Exsheet = Nothing
Set Exwbook = Nothing
Set Ex = Nothing
⑶、EXCEL控制命令:
在VB中控制EXCEL只需在VBA语句前加上相应的对象名(或将原来的workbooks、sheet替换为自己设置的变量Exwbook、Exsheet)即可。如:
‘增加工作表
(1,1)=”试验”
……
2、使用ADO方法:
(具体参见下一部分)
Public Adocon As ‘链接
Public Adorst As ‘记录集
"Provider=;" & _
"Data Source=C:\;" & "Extended Properties=""Excel ;"""
"Select * from [Sheet1$]", Adocon, adOpenStatic '打开Sheet1,也可以是定义的名称,或一个Range。
三、VB(VBA)ESS
VB(VBA)ESS有几种方法,这里只讨论ADO。
1、定义:
Public Adocon As ‘键接
Public Adorst As ‘记录集
2、打开与关闭:
Set Adocon = New
Set Adorst = New
"Provider=;Data Source=" & P_Wjlj & P_lssjwjm ‘P_Wjlj、P_lssjwjm分别为文件路径与文件名
P_lssj, Adocon, adOpenStatic, adLockReadOnly, adCmdTable ‘P_lssj:变量,表名
P_lssjjlzs = '记录总数
If P_lssjjlzs > 0 Then
P_sjqsj = Adorst!f_rq '第一条记录日期字段内容
P_zxsjrq = Adorst!f_rq '最后一条记录日期字段内容
End If
Set Adorst = Nothing
Set Adocon = Nothing
说明:
:ConnectionString, UserID, Password, Options
ConnectionString   可选,连接字符串
UserID   可选,字符串,包含建立连接时所使用用户名。
Password   可选,字符串,