在ASP中使用Oracle資料庫技巧(二)

來源:互聯網
上載者:User

如果已經真正地理解了我們在上面討論的一些方法(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>

  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 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。