在開始討論這個問題前，我們需要瞭解幾個背景知識，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
%>
刪除資料記錄
如果已經真正地理解了我們在上面討論的一些方法(Edit、Update和AddNew)，也許有的讀者已經知道該如何在Oracle資料庫中刪除記錄了。
<%
'刪除所有符合上麵條件的記錄 OraDynaset.Delete
%>
在Oracle8i中搜尋和更新資料記錄的代碼
1)搜尋
<%
'RetriveRecProc.asp -使用ASP的Oracle Objects for OLE更新資料記錄
%>
<% '定義作為OLE對象的變數
Dim OraSession
Dim OraDatabase
Dim OraDynaset
'建立OraSession對象
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
'通過開啟Oracle資料庫的一個串連建立OraDatabase對象
'一定要使用自己的使用者名稱和口令訪問Oracle資料庫
Set OraDatabase = OraSession.OpenDatabase("", "user/password", _
Cint(0))
'建立OraDynaset對象執行SQL語句
Set OraDynaset = OraDatabase.DbCreateDynaset(_
"select * from mytable1", cint(0))
%>
<html>
<body>
<H3>Retrieve All Records in MYTABLE1 Table ( in Oracle)
Using oo4o</H3>
<table border=1 ID="Table1">
<%
Do While(OraDynaset.EOF = FALSE)
Response.Write("<tr><td>")
Response.write(OraDynaset.Fields("ID"))
Response.Write("</td><td>")
Response.write(OraDynaset.Fields("UserName"))
Response.Write("</td><td>")
Response.write(OraDynaset.Fields("Phone"))
Response.Write("</td><td>")
Response.write(OraDynaset.Fields("Email"))
Response.Write("</td></tr>")
OraDynaset.MoveNext
Loop
'刪除OraSession Set OraSession = Nothing
%>
</table>
<a href="javascript:window.history.go(-1)">
Back previous Page</a> |
<a href="index.html"> Back home Page</a>
</body>
</html>
2)更新
<% 'UpdateRecProc.asp -使用ASP的Oracle Objects for OLE更新資料記錄
%>
<%
'定義作為OLE對象的變數。
Dim OraSession
Dim OraDatabase
Dim OraDynaset
'從提交的表格中擷取欄位值
fID = request.form("ID")
fUserName = request.form("UserName")
fPhone = request.form("Phone")
fEmail = request.form("Email")
'建立OraSession對象
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
'通過開啟Oracle資料庫的一個串連建立OraDatabase對象
Set OraDatabase = OraSession.OpenDatabase("", "user/password", _ Cint(0))
'建立ID= fID的記錄的OraDynaset對象
Set OraDynaset = OraDatabase.CreateDynaset(_ "select * from MYTABLE1 where ID= "& fID, cint(0))
'使用Edit方法更新ID=fID記錄的欄位
Do While(OraDynaset.EOF = FALSE)
OraDynaset.Edit
OraDynaset.Fields("UserName").Value = fUserName
OraDynaset.Fields("Phone").Value = fPhone
OraDynaset.Fields("Email").Value = fEmail
OraDynaset.Update
OraDynaset.MoveNext Loop
%>
<html>
<body> <H3>Update A Record in MYTABLE1 Table Oracle) Using oo4o</H3>
The record (ID=<%=fID%>) has been updated successfully!<br>
You can view the result <a href="RetrieveAllRec.asp"> here</a>
<a href="javascript:window.history.go(-1)"> Back previous Page</a>
&bnsp;&bnsp;
<a href="javascript:window.history.go(-2)"> Back home Page</a>
<%
'刪除OraSession對象
Set OraSession = Nothing
%>
</body>
</html>
至此，我們已經討論了如何在ASP代碼中使用Oracle Objects for OLE來處理Oracle資料庫中的資料。
使用預存程序
我們已經討論了如何在ASP中訪問Oracle資料庫，所有的SQL語句都可以嵌入在ASP網頁中。如果在ASP中使用預存程序，將更能夠更有效地處理資料。我建議讀者除在ASP中嵌入SQL語句外，還應當使用PL/SQL預存程序。在Oracle資料庫中建立預存程序已經超出了本文章的範圍，在這裡就不再進行介紹了。
ASP和Oracle資料庫是二種比較流行的技術，都有相當廣泛的使用者群，如果能夠有機地將二者結合起來，將能夠給工作帶來許多方便，希望這篇文章能夠起到拋磚引玉的作用，使讀者能夠更好地探索將這二種技術結合使用的途徑。
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
