在ASP中使用Oracle資料庫技巧（一）

 Oracle是世界上用得最多的資料庫之一，活動伺服器網頁(ASP)是一種被廣泛用於建立動態網頁的功能強大的伺服器端指令碼語言。許多ASP開發人員一直在考慮，能否在開發互連網應用、電子商務網站、互連網管理系統時結合使用ASP和Oracle資料庫？這個問題的答案是肯定的，我們還可以使用VB訪問Oracle資料庫。在本篇文章中，我們將主要討論如何使用ASP來處理Oracle資料庫中資料的方法。

　　在開始討論這個問題前，我們需要瞭解幾個背景知識，Oracle Objects for OLE就是其中之一。Oracle Objects for OLE是Oracle開發的一個中介軟體，它允許使用微軟的OLE標準的用戶端應用程式訪問Oracle的資料庫。也許會有讀者說，我們也可以使用ODBC訪問Oracle的資料庫。當然，可以使用ODBC訪問Oracle資料庫，但我認為，Oracle Objects for OLE比ODBC更安全，而且完全支援PL/SQL。PL/SQL是Oracle對SQL命令集的擴充，開發人員能夠利用它對非結構化的SQL命令塊進行流量控制和邏輯設計。如果安裝的是Oracle8i資料庫，我相信你已經在使用Oracle Objects for OLE。如果還沒有使用Oracle Objects for OLE，可以從Oracle的網站上下載它。

　　另外，我們還需要瞭解Oracle針對Visual Basic開發的二個對象和一個介面：OraSession、OraDynaset對象和OraDatabase介面。OraSession對象管理應用程式的OraDatabase、OraConnection和OraDynaset，它是由ASP的CreateObject而不是Oracle Objects for OLE建立的一個對象。OraDatabase介面向Oracle資料庫表示表現使用者對話，並為SQL、PL/SQL的執行提供方法。它們每個都有一些屬性和方法。例如，OraDynaset對象有BOF、EOF、Bookmark、Connection等屬性以及AddNew、Update、Delete、Edit、Refresh、Clone等10個方法。

　　下面我們就開始切入主題，討論如何使用ASP處理Oracle資料庫中的資料。

　　準備工作

　　我們需要什麼樣的環境和工具？

　　1)我使用了Oracle8i、IIS5.0、Windows2000專業版作為應用程式的開發和運行環境。
   　　
　　2)在Oracle資料庫中建立一個名字為MYTABLE1或類似的表。

        ID (type: number) User Name(type: varchar2) Phone(type: varchar2) Email(type: varchar2)   100 Colin Tong 999-999-8888 colinjava@hotmail.com   111 John White 888-888-8888 johnw@yahoo.com   101 Don Wod 416-333-3344 donwod@test.com

　　資料的訪問和存取

　　1) Instantiate OO4O Object, OraSession and interface OraDatabase for connecting to ORACLE.    　　
　　
　　初始化Oracle Objects for OLE、OraSession對象和OraDatabase介面，為串連ORACLE資料庫作準備。

　　首先，使用CreateObject建立OraSession對象，然後通過開啟一個與Oracle的串連建立OraDatabase對象，如下所示：

　　<% 

　　Set OraSession = CreateObject("OracleInProcServer.XOraSession")

　　Set OraDatabase = OraSession.OpenDatabase("", _ 

　　"username/password", Cint(0))

　　%>   

　　“username”和“password”是你所使用的關聯式資料庫的使用者名稱和口令。   

　　2)建立OraDynaset對象執行SQL命令。我們可以使用CreateDynaset或DbCreateDynaset建立記錄集。

 　　<% 

　　'execute SQL  Set OraDynaset = OraDatabase.DbCreateDynaset( _  "select * from
　　mytable1", cint(0)) 

　　%>

　　3)存取資料並刪除建立的對象。

　　<%

　　Do While(OraDynaset.EOF = FALSE)
 
　　Response.write(OraDynaset.Fields("ID"))

　　Response.write(OraDynaset.Fields("UserName"))

　　... others ...

　　... ...

　　OraDynaset.MoveNext

　　Loop

　　'remove OraSession

　　Set OraSession = Nothing

　　%>

　　編輯資料記錄

　　我們將使用OraDynaset的方法實現對資料記錄的編輯。  

　　1)使用SQL語句建立OraDynaset對象。

　　<% 

　　'建立ID= fID的記錄的OraDynaset對象。

　　Set OraDynaset = OraDatabase.CreateDynaset(_

　　"select * from MYTABLE1 where ID= "& fID, cint(0))

　　%>

　　fID是想插入更更新的記錄的ID值。

　　2)執行OraDynaset更新或添加資料記錄。  

　　<%

　　 '使用Edit方法更新ID=fID記錄的域。

　　'或使用AddNew插入一個新記錄

　　OraDynaset.Edit

　　OraDynaset.Fields("Phone").Value = fPhone

　　OraDynaset.Update

　　' 刪除建立的對話

　　Set OraSession = Nothing

　　 %>