当前位置:编程学习 > asp >>

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

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

上一个:披著羊皮的大野狼 Session
下一个:在ASP中使用Oracle数据库技巧(1)

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,