网络编程
位置:首页>> 网络编程>> 数据库>> 在ASP中使用Oracle数据库技巧(3)

在ASP中使用Oracle数据库技巧(3)

  发布时间:2008-05-17 11:47:00 

标签:Oracle,数据库,asp

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数据库是二种比较流行的技术,都有相当广泛的用户群,如果能够有机地将二者结合起来,将能够给工作带来许多方便,希望这篇文章能够起到抛砖引玉的作用,使读者能够更好地探索将这二种技术结合使用的途径。

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com