ASP通過(guò)Oracle Object for OLE對(duì)Oracle查詢(xún)
Oracle Object for OLE是ORACLE公司為了客戶(hù)端存取數(shù)據(jù)庫(kù)所發(fā)展的一個(gè)很需要的產(chǎn)品，它以Windows 95/98/NT 為基礎(chǔ)供所有的與OLE 兼容的應(yīng)用程序與程序語(yǔ)言存取ORACLE數(shù)據(jù)庫(kù)，如ASP、Visual Basic 等 ，Oracle Object for OLE包含了ORACLE對(duì)象服務(wù)器(The Oracle Object Server)、ORCLE 數(shù)據(jù)控制項(xiàng)(The Oracle Data Control)與ORACLE 對(duì)象類(lèi)程序庫(kù)(The Oracle Objects for OLE C++ Class Library)等三項(xiàng)產(chǎn)品。
與ADO相比，ORACLE對(duì)象服務(wù)器是專(zhuān)用于ORACLE數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)的產(chǎn)品，它有以下優(yōu)點(diǎn)：
(1) 與數(shù)據(jù)庫(kù)服務(wù)器的連接的運(yùn)行效率好。因?yàn)锳DO是通過(guò)ODBC來(lái)連接數(shù)據(jù)庫(kù)服務(wù)器的，而ORACLE對(duì)象服務(wù)器是通過(guò)ORACLE的SQL*NET來(lái)連接數(shù)據(jù)庫(kù)服務(wù)器的
(2) 能更好地發(fā)揮ORACLE數(shù)據(jù)庫(kù)的特有功能。如STORED PROCEDURE，STORED FUNCTION、PACKAGE或Multiple Cursor。
本例是一個(gè)通訊錄的查詢(xún)、錄入的小程序，用戶(hù)可以通過(guò)瀏覽器對(duì)通訊錄表進(jìn)行查詢(xún)，也可把自己的信息輸入，供別人查詢(xún)。
通訊錄表的結(jié)構(gòu)如下：
- NAME NOT NULL CHAR(8)
- ADDRESS CHAR(20)
- PHONE CHAR(20)
- EMAIL VARCHAR2(30)
首先，進(jìn)行環(huán)境配置：
在WEB服務(wù)器上安裝以下軟件并進(jìn)行配置：
(1)基本的WEB 服務(wù)器(WEB SERVER)與ASP等軟件。
(2)Oracle Object for OLE2.x。
(3)SQL*Net Client 或 Oracle Net8 Client 8，安裝之后，用Sql*Net Easy Configuration建立數(shù)據(jù)庫(kù)別名(Database Alias)，為ASP連接到數(shù)據(jù)庫(kù)所用的別名。
查詢(xún)：用ASP 取數(shù)據(jù)庫(kù)通訊錄表(TSB1)的數(shù)據(jù)，將數(shù)據(jù)顯示在屏幕上。查詢(xún)的關(guān)鍵在于確定與數(shù)據(jù)庫(kù)的連接成功與否，ORACLE對(duì)象服務(wù)器本身有錯(cuò)誤控制機(jī)制可以報(bào)出數(shù)據(jù)庫(kù)連接方面的錯(cuò)誤，具體的程序如下：
- < html>
- < tile > 查詢(xún)程序 < /title >
- < body>
- < %
- on error resume next
- ’連接數(shù)據(jù)庫(kù)
- set orasession=createobject
- ("OracleInprocServer.XOraSession")
- set oradatabase=orasession.
- dbopendatabase("axp03","scott/tiger",0)
- ’出錯(cuò)處理
- if err.number >0 then
- response.write"< h4 >asp 錯(cuò)誤控制 < /h4 >"
- response.write"asp 錯(cuò)誤來(lái)源:"&err.source &"< br >"
- response.write"asp 錯(cuò)誤代碼:"&err.number&"< br >"
- response.write"asp 錯(cuò)誤說(shuō)明:"&err.description&"< br >"
- err.clear
- response.write"< h4 >ORACLE OLE 錯(cuò)誤控制< /h4 >"
- response.write"ORACLE 錯(cuò)誤代碼:
- "&OraSession.LastServerErr&"< br >"
- response.write"ORACLE 錯(cuò)誤說(shuō)明:
- "&OraSession.LastServerErrText&"< br >"
- else
- ’查詢(xún)
- sql="select * from tsb1"
- set oradynaset=oradatabase.dbcreatedynaset(sql,0)
- response.write"< h3 >result< /h3 >"
- response.write"< table border=5 >< tr >"
- for i=0 to oradynaset.fields.count-1
- response.write"< td >"
- response.write oradynaset.fields(i).name & " "
- response.write"< /td >"
- next
- %>
- </body>
- </html>
將上面的文件保存為.asp的格式，然后再I(mǎi)IS上運(yùn)行，即可在瀏覽器中看到輸出結(jié)果。
【編輯推薦】
