|
在ASP中使用Oracle数据库技巧(2)
初始化Oracle Objects for OLE、OraSession对象和OraDatabase接口，为连接ORACLE数据库作准备。
首先，使用CreateObject创建OraSession对象，然后通过打开一个与Oracle的连接创建OraDatabase对象，如下所示：
<%
Set OraSession = CreateObject("OracleInProCServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("", _
"username/passWord", Cint(0))
%>
“username”和“password”是你所使用的关系数据库的用户名和口令。
2)创建OraDynaset对象执行SQL命令。我们可以使用CreateDynaset或DbCreateDynaset创建记录集。
<%
'execute SQL Set OraDynaset = OraDatabase.DbCreateDynaset( _ "select * from
mytable1", cint(0))
%>
3)存取数据并删除创建的对象。
<%
Do While(OraDynaset.EOF = FALSE)
Response.write(OraDynaset.Fields("ID"))
Response.write(OraDynaset.Fields("UserName"))
... others ...
... ...
OraDynaset.MoveNext
Loop
'remove OraSession
Set OraSession = Nothing
%>
编辑数据记录
我们将使用OraDynaset的方法实现对数据记录的编辑。
1)使用SQL语句创建OraDynaset对象。
<%
'创建ID= fID的记录的OraDynaset对象。
Set OraDynaset = OraDatabase.CreateDynaset(_
"select * from MYTABLE1 where ID= "& fID, cint(0))
%>
fID是想插入更更新的记录的ID值。
2)执行OraDynaset更新或添加数据记录。
<%
'使用Edit方法更新ID=fID记录的域。
'或使用AddNew插入一个新记录
OraDynaset.Edit
OraDynaset.Fields("Phone").Value = fPhone
OraDynaset.Update
' 删除创建的对话
Set OraSession = Nothing
%>
删除数据记录
如果已经真正地理解了我们在上面讨论的一些方法(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")
| 
