数据的访问和存取
1) Instantiate OO4O Object, OraSession and interface OraDatabase for connecting to ORACLE.
1）初始化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
%＞ |
