ASP数据篇:3.3在ASP中使用Oracle数据库（第2页）-远方教程

删除数据记录

　　如果已经真正地理解了我们在上面讨论的一些方法（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> <p> <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数据库是二种比较流行的技术，都有相当广泛的用户群，如果能够有机地将二者结合起来，将能够给工作带来许多方便，希望这篇文章能够起到抛砖引玉的作用，使读者能够更好地探索将这二种技术结合使用的途径。

' 删除创建的对话

第1页 第2页