ACCESS是一个Client/Server的优秀前端开发工具具有易学易用界面友好开发简单和其他数据库接口灵活但是它要对大量数据处理时速度比较慢当有大量数据需要处理时不能在Client端处理而必须在Server端处理 但ACCESS和Server端之间多数通过ODBC来连接这样就增加了调用后台存储过程的难度笔者通过在实际工作中长期的摸索根据不同的业务需要可以用下面三种方法去调用后台存储过程
一 Access 向后台提交作业这一个个作业对应一个个的存储过程在SQL Server 中通过Task Manager 来建立相应的Task; 而在Oracle 中通过Managing Job Queue 来建立相应的Job在Access中在job_list表中插入一个作业这些作业一般每天晚上运行一次这些作业对应的业务一般是需要处理非常大量数据而实时性又是较低的在我们的业务中比较典型的例子是每天晚上大量的电费计算
二 在Server端建立一些触发器(Trigger)在Access中激活这些触发器在SQL Server 和Oracle 中都是通过Create Trigger 来实现在Access中根据不同的业务通过插入修改删除记录来激活不同触发器在我们的业务中一个例子是当业务人员修改用户的电表读数后激活计算电费的触发器能立即重新计算该用户的电费这样子既可以和批量计算电费共享同一程序不用在Access端重新开发有可以加快前端的响应速度
三 以上二种方法只可以说是间接调用后台存储过程Access还提供一种直接调用的方法可以用Access 传递查询直接将命令发送到数据库服务器
建立Access 传递查询步骤如下
() 在数据库窗口中单击查询选项卡然后单击新建按钮
() 在新建查询对话框中单击设计视图选项然后单击确定按钮
() 在显示表对话框内单击关闭按钮
() 在查询菜单上指到SQL 语句条件然后单击传递命令
() 在工具栏上请单击属性按钮 以显示查询属性表
() 在查询属性表中请设置ODBC 连接字符串属性来指定要连接的数据库信息可以输入连接信息: ODBC;DSN=ntserver;UID=sa;PWD=;DATABASE=BMS或用生成器按钮生成
() 因存储过程不用返回记录所以将返回记录属性设置为否
() 在SQL 传递查询窗口中输入传递查询: exec statisticsStatistics 是SQL Server 数据库的一个存储过程
() 关闭查询保存查询为stat_query
运行传递查询的方法有
() 用Microsoft Access的宏 OpenQuery
() 用下面的事件过程
Private Sub 统计_Click()
Dim dbs As Database qdf As QueryDef
Dim tmq As Dynaset
Dim strSQL As String
Set dbs = CurrentDb
打开上面建的传递查询stat_query
Set qdf = dbsOpenQueryDef(stat_query )
qdfExecute
Set dbs = Nothing
End Sub
这种方法在SQL Server 中实现完全没问题在Oracle 中不能实现错误信息为ORA invalid SQL statement 由于这种方法不需要一个中间的表去排队或激活后台存储过程所以它的应用面就很广凡是需要处理大量数据的业务都可以放到Server端去处理如统计报表
通过以上三种方法解决了Access对大量数据处理速度慢的弱点大大加大了深圳供电局数据处理能力
