在ASP中使用Oracle数据库(2)（转）

在ASP中使用Oracle数据库（下）[@more@]

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

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/9417382/viewspace-937374/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/9417382/viewspace-937374/