在ASP中使用Oracle資料庫技巧

來源:互聯網
上載者:User
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

   %>

  刪除資料記錄      

  如果已經真正地理解了我們在上面討論的一些方法(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資料庫是二種比較流行的技術,都有相當廣泛的使用者群,如果能夠有機地將二者結合起來,將能夠給工作帶來許多方便,希望這篇文章能夠起到拋磚引玉的作用,使讀者能夠更好地探索將這二種技術結合使用的途徑。



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。