在ACCESS 中調(diào)用后臺(tái)存儲(chǔ)過(guò)程
2024-09-07 19:05:02
供稿：網(wǎng)友
access是一個(gè)Client/Server的優(yōu)秀前端開發(fā)工具，具有易學(xué)易用，界面友好，開發(fā)簡(jiǎn)單，和其他數(shù)據(jù)庫(kù)接口靈活。但是，它要對(duì)大量數(shù)據(jù)處理時(shí)，速度比較慢。深圳供電局現(xiàn)有60萬(wàn)用戶，下面有6個(gè)營(yíng)業(yè)所，通過(guò)64K DDN 和局相連，如果有一個(gè)營(yíng)業(yè)所要對(duì)1萬(wàn)用戶進(jìn)行處理的話，要花2~3小時(shí)，嚴(yán)重影響其他業(yè)務(wù)的開展。所以，當(dāng)有大量數(shù)據(jù)需要處理時(shí)，不能在Client端處理，而必須在Server端處理。 但ACCESS和Server端之間多數(shù)通過(guò)ODBC來(lái)連接，這樣就增加了調(diào)用后臺(tái)存儲(chǔ)過(guò)程的難度。筆者通過(guò)在實(shí)際工作中長(zhǎng)期的摸索，根據(jù)不同的業(yè)務(wù)需要，可以用下面三種方法去調(diào)用后臺(tái)存儲(chǔ)過(guò)程。
一、 Access 向后臺(tái)提交作業(yè)，這一個(gè)個(gè)作業(yè)對(duì)應(yīng)一個(gè)個(gè)的存儲(chǔ)過(guò)程。在SQL Server 6.5中，通過(guò)Task Manager 來(lái)建立相應(yīng)的Task; 而在Oracle 8.0中，通過(guò)Managing Job Queue 來(lái)建立相應(yīng)的Job。在Access中，在job_list表中插入一個(gè)作業(yè)，這些作業(yè)一般每天晚上運(yùn)行一次。這些作業(yè)對(duì)應(yīng)的業(yè)務(wù)一般是需要處理非常大量數(shù)據(jù)，而實(shí)時(shí)性又是較低的，在我們的業(yè)務(wù)中比較典型的例子是每天晚上大量的電費(fèi)計(jì)算。
二、 在Server端建立一些觸發(fā)器（Trigger），在Access中激活這些觸發(fā)器。在SQL Server 6.5 和Oracle 8.0中，都是通過(guò)Create Trigger 來(lái)實(shí)現(xiàn)。在Access中，根據(jù)不同的業(yè)務(wù)，通過(guò)插入、修改、刪除記錄來(lái)激活不同觸發(fā)器。在我們的業(yè)務(wù)中一個(gè)例子是，當(dāng)業(yè)務(wù)人員修改用戶的電表讀數(shù)后，激活計(jì)算電費(fèi)的觸發(fā)器，能立即重新計(jì)算該用戶的電費(fèi)。這樣子，既可以和批量計(jì)算電費(fèi)共享同一程序，不用在Access端重新開發(fā)，有可以加快前端的響應(yīng)速度。
三、 以上二種方法，只可以說(shuō)是間接調(diào)用后臺(tái)存儲(chǔ)過(guò)程，Access還提供一種直接調(diào)用的方法，可以用Access 傳遞查詢直接將命令發(fā)送到數(shù)據(jù)庫(kù)服務(wù)器。
建立Access 傳遞查詢步驟如下：
(1) 在數(shù)據(jù)庫(kù)窗口中單擊“查詢”選項(xiàng)卡，然后單擊“新建”按鈕。
(2) 在“新建查詢”對(duì)話框中單擊“設(shè)計(jì)視圖”選項(xiàng)，然后單擊“確定”按鈕。
(3) 在“顯示表”對(duì)話框內(nèi)單擊“關(guān)閉”按鈕。
(4) 在“查詢”菜單上，指到“SQL 語(yǔ)句條件”，然后單擊“傳遞”命令。
(5) 在工具欄上，請(qǐng)單擊“屬性”按鈕 以顯示查詢屬性表。
(6) 在查詢屬性表中，請(qǐng)?jiān)O(shè)置“ODBC 連接字符串”屬性來(lái)指定要連接的數(shù)據(jù)庫(kù)信息?？梢暂斎脒B接信息: ”O(jiān)DBC;DSN=ntserver0;UID=sa;PWD=;DATABASE=BMS”，或用“生成器”按鈕生成。
(7) 因存儲(chǔ)過(guò)程不用返回記錄，所以將“返回記錄”屬性設(shè)置為“否”。
(8) 在“SQL 傳遞查詢”窗口中，輸入傳遞查詢: exec statistics。Statistics 是SQL Server 數(shù)據(jù)庫(kù)的一個(gè)存儲(chǔ)過(guò)程。
(9) 關(guān)閉查詢，保存查詢?yōu)椋簊tat_query。
運(yùn)行傳遞查詢的方法有：
(1) 用Microsoft Access的宏 OpenQuery。
(2) 用下面的事件過(guò)程：
PRivate Sub 統(tǒng)計(jì)_Click()
Dim dbs As Database, qdf As QueryDef
Dim tmq As Dynaset
Dim strSQL As String
Set dbs = CurrentDb
'打開上面建的傳遞查詢stat_query
Set qdf = dbs.OpenQueryDef("stat_query ")
qdf.Execute
Set dbs = Nothing
End Sub
這種方法在SQL Server 6.5 中實(shí)現(xiàn)完全沒(méi)問(wèn)題，在Oracle 8.0中不能實(shí)現(xiàn)，錯(cuò)誤信息為：ORA-00900 invalid SQL statement. 由于這種方法不需要一個(gè)中間的表去排隊(duì)或激活后臺(tái)存儲(chǔ)過(guò)程，所以它的應(yīng)用面就很廣，凡是需要處理大量數(shù)據(jù)的業(yè)務(wù)，都可以放到Server端去處理，如統(tǒng)計(jì)報(bào)表。
通過(guò)以上三種方法，解決了Access對(duì)大量數(shù)據(jù)處理速度慢的弱點(diǎn)，大大加大了深圳供電局?jǐn)?shù)據(jù)處理能力。
